Routine: AZFMCM

Package

Total

Call Graph

^%DT

Name	Comments	DBIA/ICR reference
CNT	;R !,"DO NOT PRINT DRUG IF COUNT IS LESS THAN: 20//",X:DTIME S:X="" X=20
APSP	;I DRGNAME'["U/D",DRGNAME[" TAB"!(DRGNAME[" CAP") D CONVERT
RX	;
CONVERT	; Strips TAB or CAP from Drug Name
INIT	;
EXIT	;
DATE	;
QUE	;
CHECK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: INIT+2
Function Call: WRITE	Prompt: "Pharmacy Dispensed Drug List ",!! Line Location: INIT+3
Function Call: WRITE	Prompt: !?5,*7,"PLEASE ENTER A NUMBER." Line Location: CNT+1
Function Call: WRITE	Prompt: ! Line Location: QUE+1
Function Call: WRITE	Prompt: !!,"Sorry, you cannot queue to your screen or to a slave printer.",! Line Location: QUE+5
Routine Call	%ZIS Line Location: QUE+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	DATE+7!
^PSDRUG - [#50]	CHECK+5, CHECK+6, CHECK+8
^PSRX - [#52]	CHECK+1, CHECK+4
^PSRX("AD"	DATE+1, RX+2, CHECK+2
^TMP("PSOZCOM1"	INIT+1!, EXIT+1!, APSP+2, APSP+3, APSP+7
^TMP("PSOZCOM2"	INIT+1!, EXIT+2!

Name	Field # of Occurrence
^(0	CHECK+4

Name	Field # of Occurrence
%DT	INIT+5*, EXIT+4!
%DT("A"	INIT+4, INIT+9
%IS	QUE+2*, EXIT+4!
>> APSPOU	CHECK+8*, APSP+2, APSP+3, APSP+7
BD	INIT+8*, DATE+1, EXIT+3!
DATE	DATE+1*, EXIT+3!, RX+2, CHECK+2
DRGNAME	EXIT+5!, CHECK+8, APSP+2, APSP+3, APSP+7, APSP+9!, CONVERT+1, CONVERT+2, CONVERT+3
DRGNUM	EXIT+5!, CHECK+4*, CHECK+5, CHECK+6, CHECK+8, APSP+9!
ED	INIT+12*, DATE+1, EXIT+3!
I	EXIT+5!
IO	QUE+5, QUE+6, QUE+7
IO("C"	EXIT+5!
IO("Q"	QUE+5!, QUE+6, EXIT+5!
IO(0	QUE+5, QUE+6
IOF	INIT+2
IRXN	EXIT+3!, RX+2*, CHECK+1, CHECK+2, CHECK+4
POP	QUE+4, EXIT+4!
PSFILL	CHECK+2*, APSP+4, APSP+9!
PSZCNT	EXIT+3!
QTY	CHECK+4*, APSP+6, APSP+9!
RNUM	EXIT+3!
TAB	EXIT+5!, CONVERT+2*, CONVERT+3
U	CHECK+6, CHECK+8, APSP+4, APSP+5, APSP+6
UTL	EXIT+5!, APSP+3, APSP+4, APSP+5, APSP+6, APSP+7, APSP+9!
X	INIT+11, EXIT+5!
Y	INIT+7, INIT+8, INIT+11, INIT+12, EXIT+5!
ZTDESC	QUE+8*, EXIT+4!
ZTIO	QUE+7*, EXIT+3!
ZTRTN	QUE+7*, EXIT+3!
ZTSAVE	EXIT+4!
ZTSAVE("BD"	QUE+7*
ZTSAVE("ED"	QUE+7*, EXIT+3!
ZTSAVE("PSZCNT"	QUE+8*
ZTSK	DATE+7, EXIT+4!

Information