Routine: APCLRX91

Information

APCLRX91 ; IHS/CMI/LAB - RX'S DISPENSED BY DATE/TIME ;

Source file <APCLRX91.m>

Package	Total	Call Graph
Patient Care Component Reports	1	$$DEMO^APCLUTL

Name	Comments	DBIA/ICR reference
EOJ
T1900	;Counts 7:00- 8:00
T2000	;Counts 8:00-9:00
T1300	;Counts 1:00 - 2:00
T1200	;Counts 12:00-1:00
T2200	;Counts 10:00-11:00
DOCOUNT	;Start Count by hour
T1400	;Counts 2:00 - 3:00
V1	;
T1700	;Counts 5:00 - 6:00
TBEFORE	;Before 8:00 am RX's
T1600	;Counts 4:00 - 5:00
T0900	;Counts 9:00 - 10:00
START	;
XIT	;
T2100	;Counts 9:00 - 10:00
V	; Run by visit date
T0800	;Counts for 8:00 to 9:00 RX's
PROC1	;Captures refill release date stats
HRSTART	;Start Hour Counts <8>8>9>10>11 8 hour day
T1100	;Counts 11:00-12:00
TAFTER	;Counts 11:00-11:59
T1000	;Counts 10:00-11:00
T1500	;Counts 3:00 - 4:00
T1800	;Counts 6:00 - 7:00
PROC	;

Name	Field # of Occurrence
$$DEMO^APCLUTL	PROC1+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PROC+3
^PSRX - [#52]	V1+8, PROC1+1, PROC1+4, PROC+1, HRSTART+2
^PSRX("AL"	V+1, V1+6, V1+7
^XTMP("APCLCV"	START+3!

Name	Field # of Occurrence
^(0	V1+8

Name	Field # of Occurrence
>> APCL1	START+1, TBEFORE+1
>> APCL10	START+1, T1600+1
>> APCL11	START+1, T1700+1
>> APCL12	START+1, T1800+1
>> APCL13	START+2, T1900+1
>> APCL14	START+2, T2000+1
>> APCL15	START+2, T2100+1
>> APCL16	START+2, T2200+1
>> APCL17	START+2, TAFTER+1
>> APCL2	START+1, T0800+1
>> APCL3	START+1, T0900+1
>> APCL4	START+1, T1000+1
>> APCL5	START+1, T1100+1
>> APCL6	START+1, T1200+1
>> APCL7	START+1, T1300+1
>> APCL8	START+1, T1400+1
>> APCL9	START+1, T1500+1
APCLAP	EOJ!
>> APCLBT	START+1*, START+3
APCLCLN	EOJ!
>> APCLDEMO	PROC1+3
APCLDISC	EOJ!
APCLDPTR	EOJ!
>> APCLED	V+1
>> APCLET	XIT+2*
>> APCLG	START+1*
>> APCLGO	START+1*
>> APCLGTOT	START+2, DOCOUNT+2
>> APCLJOB	START+1*, START+3
>> APCLLOC	PROC1+1, PROC+1
APCLLOCC	EOJ!
>> APCLRXHR	PROC1+5, HRSTART+3, DOCOUNT+1, DOCOUNT+3, DOCOUNT+4, DOCOUNT+5, DOCOUNT+6, DOCOUNT+7, DOCOUNT+8, DOCOUNT+9 , DOCOUNT+10, DOCOUNT+11, DOCOUNT+12, DOCOUNT+13, DOCOUNT+14, DOCOUNT+15, DOCOUNT+16, DOCOUNT+17, DOCOUNT+18, DOCOUNT+19
>> APCLRXTM	PROC1+4, PROC1+5, HRSTART+2, HRSTART+3
>> APCLSD	V+1*, V1+6, V1+7
APCLSKIP	EOJ!
>> APCLVBZL	V1+7*, V1+9, PROC1+1, PROC1+4
>> APCLVIEN	V1+6*, V1+7, V1+8, PROC1+1, PROC1+4, PROC+1, HRSTART+2
APCLVLOC	EOJ!
APCLVREC	V1+8*, PROC1+2, PROC+2, EOJ!
>> DFN	PROC1+2, PROC1+3, PROC+2, PROC+3
U	PROC1+1, PROC1+2, PROC1+4, PROC+1, PROC+2, PROC+3, HRSTART+2
X	EOJ+1!
X1	EOJ+1!
X2	EOJ+1!