Routine: PSACON2

Information

PSACON2 ;BIR/LTL-Display Connected Drug and Procurement History - CONT'D ;7/23/97

Package	Total	Caller Graph
Drug Accountability	1	PSACON

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HIS+2
Function Call: WRITE	Prompt: ! Line Location: HIS+3
Function Call: WRITE	Prompt: ! Line Location: HIS+8
Function Call: WRITE	Prompt: !,"Sorry, no history for that particular Control Point.",! Line Location: HIS+9
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+0
Function Call: WRITE	Prompt: ?32,Y Line Location: LOOP+4
Function Call: WRITE	Prompt: PSALN,!!,"Average ordered/month: ",X,?34,"TOTAL ORD: ",$J($G(PSAQ),3),?50,"TOTAL $: " Line Location: LOOP+10
Function Call: WRITE	Prompt: X Line Location: LOOP+10
Function Call: WRITE	Prompt: ! Line Location: END+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: @IOF Condition for execution: $Y Line Location: HEADER+2
Function Call: WRITE	Prompt: !,$E($P($G(^PSDRUG(+PSA,0)),U),1,40) Line Location: HEADER+2
Function Call: WRITE	Prompt: "=> from ",$G(PSADT),?60,"PAGE: ",PSAPG,!,PSALN,!,"PO #",?10,"VENDOR",?33,"PO DATE",?45,"QTY ORD",?57,"COST",?70,"QTY RECD",!,PSALN,! Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIC Line Location: HIS+8
Routine Call	DIR Line Location: HIS+2 HIS+3 END+1 HEADER
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^PRC(441 - [#441]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HIS+4, LOOP+4
^PRC(441 - [#441]	PSACON2+9, HIS+1, HIS+6, HIS+7, HIS+9, LOOP+1, LOOP+10
^PRC(442	LOOP+1, LOOP+2, LOOP+3, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9
^PSDRUG - [#50]	HEADER+2
^VA(200 - [#200]	HEADER+1

Name	Field # of Occurrence
^(0	LOOP+6
^(2	LOOP+8

Name	Field # of Occurrence
%ZIS	DEV~*
%ZIS("A"	DEV*
>> DA(1	HIS+8*
DIC	HIS+8*!
DIC("W"	HIS+8*
DIC(0	HIS+8*
DIR	HIS+2!, HIS+3!, END+1!, HEADER!
DIR("A"	HIS+2, HIS+3, END+1*
DIR("B"	HIS+2, HIS+3
DIR(0	HIS+2, HIS+3, END+1, HEADER
DIRUT	HIS~, HIS+2, HIS+3
DUZ	HEADER+1
IO("Q"	DEV!, DEV+1, END+2!
IOF	END, HEADER+2
IOP	DEV~
IOSL	LOOP+1
IOST	END, END+1, HEADER
POP	DEV~
PSA	END+3!, HEADER+2
PSA(1	PSACON2+9, HIS+1, HIS+6, HIS+7, HIS+8, HIS+9, LOOP+1, LOOP+5, LOOP+10
PSA(10	HIS+1*, HIS+2
PSA(11	LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10
PSA(12	LOOP+5*, LOOP+6, LOOP+7, LOOP+8, LOOP+9
PSA(13	HIS+3*, HIS+5, LOOP+1
PSA(14	LOOP+1*, LOOP+4
PSA(9	HIS, HIS+1, HIS+6, HIS+7, HIS+8, HIS+9, LOOP+1, LOOP+10
PSAB	HIS~, LOOP+8*, LOOP+10
PSACON	HIS!, END+3!
PSAD	HIS~, HIS+5*, LOOP+10
PSADT	HIS~, HIS+4*, HEADER+3
PSALN	LOOP~, LOOP+10, HEADER+2*, HEADER+3
PSAOUT	PSACON2+9, HIS~, HIS+2, HIS+8, DEV, DEV+1, LOOP+1, END+1, HEADER, HEADER+1*
PSAPG	LOOP~, HEADER, HEADER+2, HEADER+3
PSAQ	HIS~, LOOP+6*, LOOP+10
PSARPDT	LOOP~
U	LOOP+1, LOOP+2, LOOP+3, LOOP+6, LOOP+7, LOOP+8, LOOP+9, HEADER+1, HEADER+2
>> X	HIS+5, LOOP+10*
>> X1	HIS+5*
>> X2	HIS+5, LOOP+10
>> X3	LOOP+10*
>> Y	HIS+2, HIS+3, HIS+4, HIS+6, HIS+8, LOOP, LOOP+1, LOOP+4, LOOP+9, HEADER
ZTDESC	DEV+1~*, HEADER+1
ZTDTH	DEV+1~
ZTIO	DEV+1~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+1~*
ZTSAVE	DEV+1~
ZTSAVE("PSA*"	DEV+1*
ZTSK	DEV+1~, HEADER+1