Routine: PSNHFRM

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

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT NOW^%DTC

Package	Total	Caller Graph
National Drug File	1	PSNFRMLY

Package

Total

Caller Graph

National Drug File

PSNFRMLY

Entry Points

Name	Field # of Occurrence
^%DT	TITLE+2
NOW^%DTC	GETDATE+1, DATE0+1
^%ZIS	DVC, QUEUE1
^%ZISC	QUEUE+1, DONE+1
^%ZTLOAD	QUEUE+1

Interaction Calls

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 Line Location: TITLE+1
Function Call: WRITE	Prompt: ?55,"Date printed: ",Y,!?55,"Page: ",PSNPGCT,!! Line Location: TITLE+2
Function Call: WRITE	Prompt: !,"GENERIC/TRADE NAME" Line Location: TITLE+3
Function Call: WRITE	Prompt: !,?3,"GENERIC/TRADE NAME",?46,"CLASS",?59,"PRICE / DISP UNT",! Line Location: TITLE+4
Function Call: WRITE	Prompt: "-" Line Location: TITLE+5
Function Call: WRITE	Prompt: " " Condition for execution: PSNLOC="ZZXZZXZZX" Line Location: WRITE+0
Function Call: WRITE	Prompt: ?46,PSNCL,?59,PSNPR,! Line Location: WRITE+0
Routine Call	%ZIS Line Location: DVC QUEUE1

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
BUILD	BUILDIT1
BUILDIT	PRICE1, PRICE2
BUILDIT1	BUILDIT
CHECK	LOOP+3
DATE0	DATE
DONE	DVC, ENQ1+1
DVC	DVC
GETDATE	CHECK, CHECK+1
GETNODE	GETDATE, GETDATE+1
GETPRIC	GETDATE, GETDATE+1
GETRADE	GETNODE, PRICE1, PRICE2
GETRADE1	GETNODE, PRICE1, PRICE2
LOOP	ENQ+1
LOOP1	ENQ1+1
LOOP2	LOOP1
LOOP3	LOOP2
LOOP4	LOOP3
PRICE1	GETPRIC
PRICE2	GETPRIC
PSNPR1	PRICE2
QUEUE1	ENQ+2
TITLE	ENQ1+1, WRITE
TRADE1	GETRADE
TRADE2	GETRADE
TRADE3	GETRADE
WRITE	LOOP4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC!*, QUEUE+1!
%ZIS("A"	DVC*
%ZIS("B"	DVC*
DU	DONE+1!, GETPRIC*, PRICE1, PSNPR1
IO	ENQ+3
IO("DOC"	QUEUE
IO("Q"	DVC!, QUEUE!, DONE+1!
IOF	ENQ1+1, TITLE, DONE+1
IOM	QUEUE
ION	QUEUE
IOP	DVC!, QUEUE+1!, DONE+1!, QUEUE1*
IOSL	QUEUE, ENQ1
IOST	DVC, QUEUE
MJT	QUEUE+1!, TITLE+5*, DONE!
POP	DVC!, QUEUE+1!, DONE+1!, QUEUE1
PSNAME	DONE!, LOOP+2*, 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, LOOP+1, LOOP+2, LOOP+3, GETDATE, GETDATE+1, GETNODE, GETPRIC, GETRADE1 , GETRADE, TRADE1, TRADE2, TRADE3, DATE, DATE0, DATE0+1, CHECK
PSNCL	DONE!, LOOP3*, LOOP4, WRITE
PSNCLSS	DONE!, LOOP+3*, BUILD
PSNDATE	DONE+1!, GETDATE+1, DATE0+1!
PSNDEV	QUEUE*, DONE!, QUEUE1
PSNFF	DONE!, BUILDIT1*, BUILD
PSNFG	DONE!, BUILD*
PSNFLG	DONE!, LOOP1, WRITE
PSNGG	DONE!, BUILDIT1*, BUILD
PSNKK	DONE!, BUILDIT*, BUILDIT1
PSNLGN	DONE!, LOOP1*, LOOP2, LOOP3, LOOP4, WRITE
PSNLOC	DONE!, LOOP2*, LOOP3, LOOP4, WRITE
PSNPGCT	ENQ1, TITLE, TITLE+2, DONE!
PSNPGLNG	ENQ1*, DONE!, WRITE
PSNPR	DONE!, LOOP4*, WRITE
PSNPRIC	DONE!, GETPRIC*, PRICE1, PRICE2, PSNPR1
PSNPRICE	DONE!, GETNODE, PRICE1, PRICE2, BUILD, PSNPR1
PSNTRD	DONE+1!, GETRADE1, TRADE1, TRADE2, TRADE3
PSNUM	DONE+1!, GETRADE*, TRADE1, TRADE2, TRADE3
SF	DONE+1!, CHECK, CHECK+1
X	TITLE+2*, DONE+1!, GETDATE+1, GETNODE!, DATE0+1!
Y	TITLE+2, DONE!
>> ZTDESC	QUEUE*
ZTDTH	QUEUE!
>> ZTIO	QUEUE*
>> ZTQUEUED	ENQ+2, DONE
>> ZTREQ	DONE*
ZTRTN	QUEUE*, DONE!
ZTSAVE	QUEUE!
ZTSAVE("PSNANS"	QUEUE*
ZTSAVE("PSNDEV"	QUEUE*
ZTSAVE("SF"	QUEUE*
ZTSK	QUEUE!, QUEUE+1!

Customize PDF page

Package: National Drug File

Routine: PSNHFRM

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: