Routine: PSALND

Package	Total	Caller Graph
Drug Accountability	2	PSA NDC REPORT PSALNA

Entry Points

Name	Comments	DBIA/ICR reference
START	;compiles and prints data for report
HEADER	;prints header info
LOOP
DEV	;asks device and queueing info
QUIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: ?40,$G(^PRC(441,+PSAIT,1,1,0)) Line Location: LOOP+9
Function Call: WRITE	Prompt: @IOF Line Location: QUIT+0
Function Call: WRITE	Prompt: !! Line Location: QUIT+1
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+3
Function Call: WRITE	Prompt: !?2,"Unlinked DRUG/ITEM MASTER file entries by common NDC",?55,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"DRUG file",?40,"ITEM MASTER file" Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIR Line Location: QUIT+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	LOOP+4, LOOP+6, LOOP+7, LOOP+9, LOOP+11, HEADER+4
^PSDRUG - [#50]	LOOP, LOOP+7, LOOP+8, HEADER+4
^PSDRUG("AB"	LOOP+6
^UTILITY($J	LOOP+10!
^VA(200 - [#200]	HEADER+2

Name	Line Occurrences
HEADER	START+2, LOOP, LOOP+11
QUIT	DEV+1, DEV+2, LOOP

Name	Field # of Occurrence
^(2	LOOP
^(3	LOOP+4

Name	Field # of Occurrence
%ZIS	DEV+1~*
DIR	DEV+1~, HEADER+1!
DIR("A"	QUIT+1*
DIR(0	QUIT+1, HEADER+1
DIRUT	START+2~
>> DIWF	LOOP+10*
>> DIWL	LOOP+10*
>> DIWR	LOOP+10*
DT	START+2
DTOUT	DEV+1~
DUOUT	DEV+1~
DUZ	HEADER+2
IO("Q"	DEV+1!, DEV+2, QUIT+2!
IOF	QUIT, HEADER+3
IOP	DEV+1~
IOSL	LOOP, LOOP+11
IOST	QUIT, QUIT+1, HEADER+1
POP	DEV+1~, START+2~
PSA	START+2~, LOOP+11, LOOP+12*, HEADER+4
PSAB	START+2~
PSAD	START+2~, LOOP, LOOP+7, LOOP+8, HEADER+4
PSAD(1	LOOP*, LOOP+1
PSADD	START+2~
PSAIA	START+2~, LOOP+3, LOOP+4, LOOP+5
PSAIT	START+2~, LOOP+1*, LOOP+2, LOOP+4, LOOP+6, LOOP+7, LOOP+9, LOOP+11, HEADER+4
PSALN	START+2~, HEADER+3*
PSAOUT	DEV+1~, DEV+2, START+2, LOOP, LOOP+11, QUIT+1, HEADER+1, HEADER+2*
PSAPG	START+2~, HEADER+1, HEADER+3
PSARPDT	START+2~*, HEADER+3
U	LOOP, LOOP+4, LOOP+7, LOOP+8, HEADER+2, HEADER+4
X	START+2~, LOOP+11*
Y	START+2~*, HEADER+1
ZTDESC	DEV+2~*, HEADER+2
ZTDTH	DEV+2~
ZTIO	DEV+2~
>> ZTQUEUED	QUIT+2
>> ZTREQ	QUIT+2*
ZTRTN	DEV+2~*
ZTSAVE	DEV+2~
ZTSK	DEV+2~, HEADER+2