source: WorldVistAEHR/trunk/r/RECORD_TRACKING-RT/RTREP.m@ 1714

Last change on this file since 1714 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1RTREP ;JLU/TROY ISC RPW/BUF;RT Pull List Retrieval Rates; 2-19-87
2 ;;v 2.0;Record Tracking;**25**;10/22/91
30 S RT=0,DIR(0)="S^1:Date Range;2:One Day;3:Single Pull List",DIR("?",1)="1 Date Range A range of days",DIR("?",2)="2 One Day A single day"
4 S DIR("?",3)="3 Single Pull List Only one pull list",DIR("?")=" ^ Stop"
5 D ^DIR K DIR G:Y=U END
6 S RTX=Y,RTX1=RTX G:(RTX=1)!(RTX=2)!(RTX=3) @RTX W !,"??",*7 G 0
71 ;Date Range
8 D RTDSF G:Y=U END
910 W ! S %DT="AEX",%DT("A")="From Date: " D ^%DT G:Y<0 END S RTDT1=Y,%DT("A")=" To Date: " D ^%DT G:Y<0 END S RTDT2=Y
10 I RTDT2<RTDT1 W !,*7,"ENDING 'to' date is before the STARTING 'from' date" G 10
11 S ZTRTN="EN1^RTREP" D RTCOM1,RTCOM G:RT=1 END
12EN1 D INITS,INITS1,HDR^RTREP1:RTDSF,INITS2^RTREP1:RTDSF
13 F RTDT=RTDT1-.1:0 S RTDT=$O(^RTV(194.2,"C",RTDT)) Q:RTDT'>0!(RTDT>RTDT2) D 11
14 I 'RTDSF D PRNT^RTREP1 G END
15 I RTDSS="D" D DPRT^RTREP1,PRNT^RTREP1 I 1
16 E D APRT^RTREP1,PRNT^RTREP1
17 G END
18 ;
1911 F RTPLN=0:0 S RTPLN=$O(^RTV(194.2,"C",RTDT,RTPLN)) Q:RTPLN'>0 I $P(^RTV(194.2,RTPLN,0),U,6)'="x",$P(^(0),U,15)=+RTAPL D @$S('RTDSF:"RTLP^RTREP1",RTDSS="D":"DSORT",1:"ASORT")
20 Q
21 ;
222 ; One Date
23 D RTDSF G:Y=U END S %DT="AEX" D ^%DT G:Y<0 END S RTDT1=Y
24 S ZTRTN="EN2^RTREP" D RTCOM1,RTCOM G:RT=1 END
25EN2 D INITS,INITS1,HDR^RTREP1:RTDSF,INITS2^RTREP1:RTDSF
26 F RTPLN=0:0 S RTPLN=$O(^RTV(194.2,"C",RTDT1,RTPLN)) Q:RTPLN'>0 I $P(^RTV(194.2,RTPLN,0),U,6)'="x",$P(^(0),U,15)=+RTAPL D @$S('RTDSF:"RTLP^RTREP1",RTDSS="D":"DSORT",1:"ASORT")
27 I 'RTDSF D PRNT^RTREP1 G END
28 I RTDSS="D" D DPRT^RTREP1,PRNT^RTREP1 I 1
29 E D APRT^RTREP1,PRNT^RTREP1
30 G END
31 ;
323 ;One Pull List
33 S RTDSF=1,DIC="^RTV(194.2,",DIC(0)="AEQM" D ^DIC G:Y<0 END S RTLN=$P(Y,U,2),RTPLN=+Y
34 S ZTRTN="EN3^RTREP" D RTCOM1,RTCOM G:RT=1 END
35EN3 D INITS1 W @IOF D INITS,HDR^RTREP1,INITS2^RTREP1,RTLP^RTREP1
36 ;
37END K %DT,%ZIS,RTSF,RTDT,RTDT2,RTDTT,RTI,RTINE,RTPAGE,RTPLN,RTRTN,RTST,RTX,DIC,RTNAM,RTXP,RTLN,RTX1,RTDSF,DIC,RTDT1,Y,ZTRTN,RTRD,X1,RT,^TMP($J),RTDSS,RTX3,RTNM,RTNM1,X,DUOUT,DIRUT,RTIST,RTIST1,RTNB,RTX2,RTXP2,RTP1
38 D ^%ZISC
39 K IO("Q"),ZTIO
40 Q
41ASORT ; Alpha Sort
42 S ^TMP($J,$P(^RTV(194.2,RTPLN,0),U),RTPLN)=""
43 Q
44DSORT ; Division Sort
45 S ^TMP($J,$P(^RTV(194.2,RTPLN,0),U,12),$P(^(0),U),RTPLN)=""
46 Q
47 ;Input Prompt
48RTDSF S DIR(0)="S^D:Detailed;S:Summary",DIR("B")="Summary",DIR("A")="Type of Report",DIR("?")="Summary - Total of all pull lists, Detailed - Totals for each pull list." D ^DIR K DIR S RTDSF=$S(Y="D":1,1:0)
49 Q:Y'="D"
50RTDSS S DIR(0)="S^D:Division;A:Alphabetic",DIR("B")="Alphabetic",DIR("A")="Sorted by",DIR("?")="Division - Groups of Divisions and subtotals, Alphabetic - Alphabetic list." D ^DIR K DIR S RTDSS=Y
51 Q
52 ;Initialize Variables
53INITS F RTI=0,1,2 F RTX="c","x","r","n" S RTST(RTI,RTX)=0
54 S RTINE="=" F RTI=1:1:IOM-2 S RTINE=RTINE_"="
55 S U="^",RTPAGE=0,%DT="" D NOW^%DTC S Y=$E(%,1,12) D D^DIQ S RTDTT=Y K ^TMP($J)
56 Q
57INITS1 U IO K ZTSK Q
58RTCOM I $D(IO("Q")) S ZTDESC="RT Retrievability Report",RT=1,ZTSAVE("RT*")="",ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL D ^%ZTLOAD K IO("Q"),ZTSK,ZTRT
59 Q
60RTCOM1 S %ZIS="QM",%=0 D ^%ZIS I POP S RT=1 Q
61QU I (RTDSF!(RTX1=3))&(IOM=80) W !,*7,?8,"Margin for Detailed usually 132 ",!,?8,"Are you sure 80 Y,N" D YN^DICN G RTCOM1:%=2
62 Q
Note: See TracBrowser for help on using the repository browser.