Routine: PSACON1

Information

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

Source file <PSACON1.m>

Package	Total	Call Graph
Kernel	3	HOME^%ZIS ^%ZISC $$S^%ZTLOAD
IFCAP	1	($$DESCR,$$UNITCODE,$$VENNAME)^PRCPUX1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSACON

Name	Comments	DBIA/ICR reference
VEN
HEADER

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: VEN+15
Function Call: WRITE	Prompt: ! Line Location: VEN+16
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($$DESCR^PRCPUX1(0,PSA(1)),1,45),?50,PSARPDT,?70,"PAGE: ",PSAPG,!,PSALN,!,"VENDOR",?23,"PKG",?32,"COST/PKG",?45,"COST/UNIT",?60,"PRICE DATE CONTRACT",!,PSALN Line Location: HEADER+3
Routine Call	%ZIS Line Location: VEN+17
Routine Call	DIR Line Location: VEN+16 HEADER

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	VEN+1, VEN+11
^PRC(440	VEN+13
^PRC(441 - [#441]	VEN+2
^TMP("PSA"	VEN+2*, VEN+4, VEN+5, VEN+18!
^VA(200 - [#200]	HEADER+1

Name	Line Occurrences
HEADER	VEN+1, VEN+4

Name	Field # of Occurrence
DIR	VEN+16!, HEADER!
DIR("A"	VEN+16*
DIR(0	VEN+16, HEADER
DT	VEN+1, VEN+13
DUZ	HEADER+1
IO("Q"	VEN+17!
IOF	VEN+15, HEADER+2
IOSL	VEN+4
IOST	VEN+15, VEN+16, HEADER
>> PSA(1	VEN+2, HEADER+3
>> PSA(4	VEN+6*, VEN+8, VEN+9
>> PSA(44	VEN+13*, VEN+14!
>> PSA(5	VEN+10
>> PSA(55	VEN+13*
>> PSA(66	VEN+5*, VEN+6, VEN+8, VEN+9, VEN+10, VEN+11
>> PSA(7	VEN, VEN+2, VEN+3, VEN+4, VEN+5
>> PSA(77	VEN+3, VEN+4, VEN+5, VEN+7, VEN+13
>> PSA(8	VEN+10
PSALN	VEN~, HEADER+2*, HEADER+3
>> PSAOUT	VEN, VEN+4, VEN+16, HEADER, HEADER+1
PSAPG	VEN~, HEADER, HEADER+2, HEADER+3
PSARPDT	VEN~, VEN+1*, HEADER+3
U	VEN+2, VEN+6, VEN+8, VEN+9, VEN+10, VEN+11, VEN+13, HEADER+1
>> Y	VEN+1, VEN+11, VEN+12, VEN+16, HEADER
>> ZTDESC	HEADER+1
>> ZTQUEUED	VEN+17
>> ZTREQ	VEN+17*
>> ZTSK	HEADER+1