Routine: PSAVIN

Package	Total	Caller Graph
Drug Accountability	1	PSA GIP LINK REPORT

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
LOOK	;Select Inventory point
HEADER	;prints header info
DEV	;asks device and queueing info
START
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$INVNAME^PRCPUX1(PSAINV)_" is NOT linked to a Drug Accountability Location.",!! Line Location: LOOK+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+1
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: !,$E($$INVNAME^PRCPUX1(PSAINV),1,23)_" Items' Link to DRUG file",?50,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"ITEM",?10,"DESCRIPTION",?45,"DRUG FILE LINK" Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: LOOK+1
Routine Call	DIR Line Location: QUIT+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445	LOOP
^PSD(58.8 - [#58.8]	LOOK+2, LOOK+3
^PSDRUG - [#50]	LOOP+1
^PSDRUG("AB"	LOOP+1
^VA(200 - [#200]	HEADER+2

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

Name	Field # of Occurrence
^(0	LOOP+1

Name	Field # of Occurrence
%DT	START~
%ZIS	DEV+1~*
DIC	PSAVIN+9~, LOOK+1*!
DIC("S"	LOOK+1*
DIC(0	LOOK+1*
DIR	PSAVIN+9~, START~, HEADER+1!
DIR("A"	QUIT+1*
DIR(0	QUIT+1, HEADER+1
DIRUT	PSAVIN+9~, START~
DT	START
DTOUT	PSAVIN+9~
DUOUT	PSAVIN+9~
DUZ	HEADER+2
IO("Q"	DEV+1!, DEV+2, QUIT+2!
IOF	QUIT, HEADER+3
IOP	DEV+1~
IOSL	LOOP
IOST	QUIT, QUIT+1, HEADER+1
POP	DEV+1~
PRCPPRIV	LOOK+1*!
PSAD	START~
PSAINV	PSAVIN+9~, LOOK+1*, LOOK+2, LOOK+3, LOOP, LOOP+1, HEADER+3
PSAIT	PSAVIN+9~, LOOK+1, LOOP, LOOP+1
PSALN	START~, HEADER+3*
PSALOC	PSAVIN+9~, LOOK+3*
PSAOUT	PSAVIN+9~, LOOK+1, DEV+1, DEV+2, START~, LOOP, QUIT+1, HEADER+1, HEADER+2
PSAPG	START~, HEADER+1, HEADER+3
PSARPDT	START~*, HEADER+3
U	LOOK+3, LOOP+1, HEADER+2
X	PSAVIN+9~, START~
Y	PSAVIN+9~, LOOK+1, START~*, 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~
ZTSAVE("PSA*"	DEV+2*
ZTSK	DEV+2~, HEADER+2