Routine: PSACONW

Package	Total	Caller Graph
Drug Accountability	1	PSACON

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The Supply Warehouse is the mandatory source for this item.",! Line Location: PSACONW+10
Function Call: WRITE	Prompt: !!,"NO HISTORY!" Line Location: PSACONW+11
Function Call: WRITE	Prompt: !,"There is a procurement history." Line Location: PSACONW+12
Function Call: WRITE	Prompt: ! Line Location: PSACONW+13
Function Call: WRITE	Prompt: ! Line Location: PSACONW+16
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: PSACONW+17
Function Call: WRITE	Prompt: !!,Y Line Location: LOOP+2
Function Call: WRITE	Prompt: !,PSALN,!!,"Average ord/mon: ",X,?24,"TOT ORD: ",$J($G(PSAQ),3),?49,"TOTAL $: " Line Location: LOOP+9
Function Call: WRITE	Prompt: X Line Location: LOOP+9
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+1
Function Call: WRITE	Prompt: !,$E($P($G(^PSDRUG(+PSA,0)),U),1,40),"=> from ",PSAD(2),?60,"PAGE: ",PSAPG,!,PSALN,!?2,"DATE",?16,"TRANSACTION",?33,"QTY",?39,"PKG",?47,"UNIT $",?57,"TOTAL $",?66,"INVENTORY",!,PSALN Line Location: HEADER+3
Routine Call	%ZIS Line Location: PSACONW+18 QUIT+2
Routine Call	DIR Line Location: PSACONW+13 QUIT+1 HEADER
Routine Call	%ZIS Line Location: PSACONW+16

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSACONW+14
^PRCP(445.2	PSACONW+11, LOOP+1
^PSDRUG - [#50]	HEADER+3
^VA(200 - [#200]	HEADER+1

Name	Line Occurrences
HEADER	LOOP, LOOP+1
QUIT	PSACONW+13, PSACONW+17, PSACONW+18, LOOP+1

Name	Field # of Occurrence
^(0	LOOP+1

Name	Field # of Occurrence
%ZIS	PSACONW+16~*
DIR	PSACONW+13!, QUIT+1!, HEADER!
DIR("A"	PSACONW+13, QUIT+1
DIR("B"	PSACONW+13*
DIR(0	PSACONW+13, QUIT+1, HEADER*
>> DIRUT	PSACONW+13
DUZ	HEADER+1
IO("Q"	PSACONW+16!, PSACONW+18, QUIT+2!
IOF	QUIT, HEADER+2
IOP	PSACONW+16~
IOSL	LOOP+1
IOST	QUIT, QUIT+1, HEADER
POP	PSACONW+16~, PSACONW+17
>> PSA	HEADER+3
>> PSA(1	PSACONW+11, LOOP+1
PSAD	PSACONW+9~, PSACONW+13*, PSACONW+15, LOOP+1
PSAD(1	PSACONW+15*, LOOP+9
PSAD(2	PSACONW+14*, HEADER+3
PSAI	PSACONW+9~, LOOP+1
PSALN	LOOP~, LOOP+9, HEADER+2*, HEADER+3
PSAN	PSACONW+9~, LOOP+1*, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+8
PSAN(1	LOOP+5*, LOOP+7
PSAN(2	LOOP+6*, LOOP+7
PSAN(3	LOOP+6*, LOOP+9
>> PSAOUT	PSACONW+9, PSACONW+13, PSACONW+17, PSACONW+18, LOOP+1, QUIT+1, HEADER, HEADER+1
PSAPG	LOOP~, HEADER, HEADER+2, HEADER+3
PSAQ	PSACONW+9~, LOOP+3*, LOOP+9
>> PSAW	PSACONW+11, LOOP+1
U	LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+8, HEADER+1, HEADER+3
>> X	PSACONW+15, LOOP+5, LOOP+6, LOOP+9*
>> X1	PSACONW+15*
>> X2	PSACONW+15, LOOP+5, LOOP+6, LOOP+9
>> X3	LOOP+5, LOOP+6, LOOP+9*
>> Y	PSACONW+13, PSACONW+14, LOOP+2*, HEADER
ZTDESC	PSACONW+18~*, HEADER+1
ZTDTH	PSACONW+18~
ZTIO	PSACONW+18~
>> ZTQUEUED	QUIT+2
>> ZTREQ	QUIT+2*
ZTRTN	PSACONW+18~*
ZTSAVE	PSACONW+18~
ZTSAVE("PSA*"	PSACONW+18*
ZTSK	PSACONW+18~, HEADER+1