Routine: PSNHFRM1

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	^%DT NOW^%DTC

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ENQ1+1
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: !,PSNANS_" FORMULARY (BY VA DRUG CLASS)" Line Location: TITLE+1
Function Call: WRITE	Prompt: ?55,"Date printed: ",Y,!?55,"Page: ",PSNPGCT,!! Line Location: TITLE+2
Function Call: WRITE	Prompt: !,?10,"VA DRUG CLASS",!,?29,"PRICE /" Line Location: TITLE+3
Function Call: WRITE	Prompt: !,"GENERIC NAME",?29,"DISP UNT",?49,"TRADE NAME(S)",! Line Location: TITLE+4
Function Call: WRITE	Prompt: "-" Line Location: TITLE+5
Function Call: WRITE	Prompt: ! Line Location: WRITE+1
Routine Call	%ZIS Line Location: QUEUE1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+2
^PS(50.605 - [#50.605]	LOOP
^PSDRUG - [#50]	LOOP, GETDATE, GETDATE+1, GETNODE, GETPRIC, GETRADE1, GETRADE, TRADE1, TRADE2, TRADE3 , CHECK
^TMP($J	DONE!, BUILD*, LOOP1, LOOP2, LOOP3, LOOP4

Name	Field # of Occurrence
>> %DT	TITLE+2*
>> D0	LOOP
DU	DONE+1!, GETPRIC*, PRICE1, PRICE2
IO("Q"	DONE+1!
IOF	ENQ1+1, TITLE, DONE+1
IOP	DONE+1!, QUEUE1*
IOSL	ENQ1
MJT	TITLE+5*, DONE!
POP	DONE+1!, QUEUE1
PSNAME	DONE!, LOOP*, GETRADE1, TRADE1, TRADE2, TRADE3
PSNANS	TITLE+1, DONE+1!
PSNANSR	DONE+1!
PSNAR	DONE!, GETRADE1!, GETRADE!
PSNAR(	BUILDIT1
PSNAR(1	GETRADE1, TRADE2
PSNAR(2	TRADE3*
PSNAR(3	TRADE1*
PSNB	DONE!, LOOP*, GETDATE, GETDATE+1, GETNODE, GETPRIC, GETRADE1, GETRADE, TRADE1, TRADE2 , TRADE3, CHECK
PSNCL	DONE!, LOOP1*, LOOP2, LOOP3, LOOP4, WRITE
PSNCLSS	DONE!, LOOP*, GETRADE1, TRADE1, TRADE2, TRADE3
PSNCN	DONE+1!, LOOP4*, WRITE
PSNDATE	DONE+1!, GETDATE+1*
PSNDEV	DONE!, QUEUE1
PSNFF	DONE!, BUILDIT1*, BUILD
PSNFG	DONE!, BUILD*
PSNFG1	DONE+1!, LOOP3, WRITE
PSNFG2	DONE+1!, LOOP4, WRITE
PSNFLAGG	DONE+1!, LOOP2, WRITE
PSNFLG	DONE!, LOOP1, WRITE
PSNGG	DONE!, BUILDIT1*, BUILD
PSNHH	DONE+1!, BUILDIT1*, BUILD
PSNKK	DONE!, BUILDIT*, BUILDIT1
PSNLGN	DONE!, LOOP2*, LOOP3, LOOP4, WRITE
PSNLOC	DONE!, LOOP4*, WRITE
PSNPGCT	ENQ1, TITLE, TITLE+2, DONE!
PSNPGLNG	ENQ1*, DONE!, WRITE
PSNPR	DONE!, LOOP3*, LOOP4, WRITE
PSNPRIC	DONE!, GETPRIC*, PRICE1, PRICE2
PSNPRICE	DONE!, GETNODE, PRICE1, PRICE2*, BUILD
PSNQ	DONE+1!, LOOP*
PSNTRD	DONE+1!, GETRADE1, TRADE1, TRADE2, TRADE3
PSNUM	DONE+1!, GETRADE*, TRADE1, TRADE2, TRADE3
PSNVCN	DONE+1!, LOOP*, BUILD
SF	DONE+1!, CHECK, CHECK+1
X	TITLE+2*, DONE+1!, GETDATE+1, GETNODE!
Y	TITLE+2, DONE!
>> ZTQUEUED	DONE
>> ZTREQ	DONE*
ZTRTN	DONE!