Routine: PSSNFI

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	1	^DIR

Package	Total	Caller Graph
Pharmacy Data Management	1	PSSNFI

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ASKA
TASK
ASK
DEV
DVC
QUEUE
START	;
LOOP
DATE
RSET
DTEXT
DTX
PDTEXT1
PDTEXT
NOTHG
POI
POITXT
OI
POOI
PPOITXT
MCLS
REPRT
OUT
ITEXT
TITLE	;
END	;
DONE	;

External References

Name	Field # of Occurrence
^%ZIS	DVC
^%ZISC	DONE+2
^%ZTLOAD	QUEUE
^DIR	EN+2, EN+7, ASKA+3, ASK+1, DEV+3, TITLE+1, END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report shows the dispense drugs and orderable items",!,"with the formulary information associated with them." Line Location: PSSNFI+4
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: EN+7
Function Call: WRITE	Prompt: !!,"To see drugs beginning with the letter 'A', enter 'A', or whichever letter you",!,"wish to see. To see drugs in a range, for example drugs starting with the",!,"letters 'G', 'H', 'I' and 'J', enter in the format 'G-J'.",! Line Location: ASKA+1
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: ASKA+3
Function Call: WRITE	Prompt: !!,"Invalid response, enter a letter, 'A', 'B', etc., or a range, 'C-F', 'M-R', etc.",! Line Location: ASKA+4
Function Call: WRITE	Prompt: !!,"Invalid response.",! Line Location: ASKA+5
Function Call: WRITE	Prompt: !!,"You have the choice to print the drug text information.",!,"If you answer ""yes"" to the question, you will print all the drug text",!,"information for both dispense drug and orderable items." Line Location: TASK+0
Function Call: WRITE	Prompt: !,"If you answer ""no"", you will print only formulary designations." Line Location: TASK+1
Function Call: WRITE	Prompt: $C(7),!!,"This report requires 132 columns.",! Line Location: TASK+2
Function Call: WRITE	Prompt: !,"You may queue the report to print, if you wish.",! Line Location: TASK+3
Function Call: WRITE	Prompt: !!,"Report will be for drugs starting with the letter "_$G(PSSBEG)_",",!,"and ending with drugs starting with the letter "_$G(PSSEND)_".",! Line Location: DEV+0
Function Call: WRITE	Prompt: !!,"This report will be for drugs with leading numerics.",! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"This report will be for all drugs.",! Line Location: DEV+2
Function Call: WRITE	Prompt: ! Line Location: DEV+3
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: DVC+0
Function Call: WRITE	Prompt: !,"Report queeud to print.",! Line Location: QUEUE+0
Function Call: WRITE	Prompt: !,"Dispense Drug text:" Line Location: PDTEXT1+0
Function Call: WRITE	Prompt: !?5,TXNFO Line Location: PDTEXT+0
Function Call: WRITE	Prompt: !?3,"Orderable Item: "_OINM_" "_OIFS Line Location: OI+0
Function Call: WRITE	Prompt: !,"Orderable Item text:" Line Location: POOI+0
Function Call: WRITE	Prompt: !?5,INFO Line Location: PPOITXT+0
Function Call: WRITE	Prompt: !!,PSSLCL,?43,LOC,?51,VISN,?58,NAT,?69,DEA,?83,APU,?93,TXT Line Location: REPRT+0
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+3
Function Call: WRITE	Prompt: !,?40,$S(PSSSRT="N":"Formulary Information Report for Drugs with Leading Numerics",PSSSRT="A":"Formulary Information Report for All Drugs",1:"Formulary Information Report for Drugs from "_PSSBEG_" through "_PSSEND),! Line Location: TITLE+3
Function Call: WRITE	Prompt: !,"Date printed: ",Y,?116,"Page: ",PSSPGCT,! Line Location: TITLE+4
Function Call: WRITE	Prompt: !,"Generic Name",?43,"Local",?51,"Visn",?58,"National",?69,"Restriction",?83,"Appl",?93,"Drug",! Line Location: TITLE+5
Function Call: WRITE	Prompt: ?83,"Pkg",?93,"Text",!,?83,"Use",! Line Location: TITLE+6
Function Call: WRITE	Prompt: "-" Line Location: TITLE+7
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: END+1
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Routine Call	%ZIS Line Location: DVC
Routine Call	DIR Line Location: EN+2 EN+7 ASKA+3 ASK+1 DEV+3 TITLE+1 END+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+4
^PS(50.606 - [#50.606]	POI
^PS(50.7 - [#50.7]	POI, POITXT, ITEXT
^PS(51.7 - [#51.7]	DTEXT, PDTEXT, PPOITXT, ITEXT
^PSDRUG - [#50]	DATE, DTEXT, DTX, NOTHG, POI, POITXT, MCLS
^PSDRUG("B"	EN+6, LOOP, LOOP+1

Label References

Name	Line Occurrences
ASKA	ASKA+4, ASKA+5
DATE	LOOP+1
DONE	EN+2, EN+7, ASKA+3, DVC, QUEUE
DTEXT	DATE
DTX	NOTHG
EN	DEV+3
END	LOOP+2
ITEXT	DATE
MCLS	NOTHG
NOTHG	DATE
OI	POI
OUT	ASK+1
PDTEXT	DTEXT+3
PDTEXT1	DTEXT+1
POI	DATE
POITXT	NOTHG
POOI	ITEXT+1
PPOITXT	ITEXT+3
REPRT	NOTHG
RSET	LOOP+1
TASK	EN+4, EN+10
TITLE	START+4, DTEXT+2, PDTEXT1+1, PDTEXT+1, OI+1, POOI+1, PPOITXT+1, REPRT, ITEXT+2

Naked Globals

Name	Field # of Occurrence
^("I"	DATE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC!*
%ZSI	QUEUE!
APU	RSET, NOTHG, REPRT, DONE+1!
DEA	RSET, NOTHG, REPRT, DONE+1!
DF	POI*, DONE+1!
DFPTR	POI*, DONE+1!
DIR	EN+2!, EN+7!, ASKA+3!, ASK!, ASK+1!, DEV+3!, TITLE+1!, END+1!, DONE+1!
DIR("?"	EN+3, EN+9, ASKA+2, ASK
DIR("A"	EN+2, EN+7, ASKA+3, ASK, DEV+3, END+1
DIR("B"	EN+2, EN+7, ASK, DEV+3
DIR(0	EN+2, EN+7, ASKA+3, ASK, DEV+3, TITLE+1, END+1*
DRTX	RSET*, DONE+1!
DT	DATE, DTEXT, ITEXT, TITLE+4
>> DTOUT	EN+2, EN+7, ASKA+3, OUT
>> DUOUT	EN+2, EN+7, ASKA+3
INDT	DONE+1!
INFO	PPOITXT*, DONE+1!
IO	START+1
IO("Q"	QUEUE, DONE+1!
IOF	TITLE+3, END+3
IOP	DVC!, DONE+1!
IOSL	START+3, PDTEXT1+1, PDTEXT+1, OI+1, POOI+1, PPOITXT+1
IOST	START+2
LOC	RSET, NOTHG, REPRT, DONE+1!
MJT	TITLE+7*, DONE+1!
NAT	RSET, MCLS, REPRT, DONE+1!
OIFS	RSET, POI, OI, DONE+1!
OINM	RSET, POI, OI, DONE+1!
OITM	POITXT*, DONE+1!
>> POINT	DTEXT*, PDTEXT
POINTR	PPOITXT, ITEXT*, DONE+1!
POP	DVC!, DONE+1!
PSF	DTEXT, DTEXT+1, ITEXT, ITEXT+1, DONE+1!
PSSB	LOOP+1*, DATE, DTEXT, DTX, NOTHG, POI, POITXT, MCLS, DONE+1!
PSSBEG	EN+1!, EN+4, ASKA!, ASKA+5, ASKA+6*, DEV, START+5, TITLE+3, DONE+2!
PSSDAT	DONE+1!
PSSDAY	DTEXT*, DONE+1!
PSSDAY1	ITEXT*, DONE+1!
PSSDV	START+2*, TITLE+1, END+1, END+2, DONE+2!
PSSEND	EN+1!, EN+4, ASKA!, ASKA+5, ASKA+6, DEV, START+6, LOOP, TITLE+3, DONE+2!
PSSFLAG	ASK, ASK+1!, OUT, OUT+1*, DONE+1!
PSSHOW	EN+1!, EN+4*, DONE+2!
PSSLCL	START+5, START+6, LOOP*, LOOP+1, REPRT, DONE+1!
PSSMC	MCLS*, DONE+1!
PSSNUMB	EN+6*, EN+11!
PSSNUMBX	EN+1!, EN+6*, EN+7, EN+10, EN+11!
PSSOUT	START+2, LOOP, DTEXT+2, PDTEXT1+1, PDTEXT+1, OI+1, POOI+1, PPOITXT+1, REPRT, ITEXT+2 , TITLE+1, END+1, DONE+2!
PSSPGCT	START+3, TITLE+1, TITLE+4, TITLE+8, DONE+1!
PSSPGLNG	START+3*, DTEXT+2, REPRT, ITEXT+2, DONE+1!
PSSPRT	START+3, REPRT+1, DONE+1!
PSSSRT	EN+1!, EN+4, EN+10, ASKA+7*, DEV, DEV+1, DEV+2, START+5, START+6, LOOP , TITLE+3, DONE+2!
PSSSTR	DONE+2!
PSSTX	ASK, ASK+1!, ASK+2, DTEXT, ITEXT, DONE+1!
PSSUSE	DONE+1!
PSSVCL	DONE+1!
PSSX	START+5*, DONE+2!
PT1	POI*, ITEXT, DONE+1!
TD	DTEXT*, DONE+1!
TDD	ITEXT*, DONE+1!
TXNFO	PDTEXT*, DONE+1!
TXT	RSET, DTX, POITXT, REPRT, ITEXT, DONE+1!
VISN	RSET, NOTHG, REPRT, DONE+1!
X	ASKA+4*, ASKA+5, ASKA+6, ASK+1!, ASK+2, OUT+1, DONE+1!
Y	EN+2, EN+4, EN+7, EN+10, ASKA+3, ASKA+4, DEV+3, TITLE+1, TITLE+4*, DONE+1!
ZERO	NOTHG*, DONE+1!
>> ZTDESC	QUEUE*
>> ZTQUEUED	DONE+2
>> ZTREQ	DONE+2*
>> ZTRTN	QUEUE*
>> ZTSAVE("PSSBEG"	QUEUE*
>> ZTSAVE("PSSEND"	QUEUE*
>> ZTSAVE("PSSHOW"	QUEUE*
>> ZTSAVE("PSSSRT"	QUEUE*
>> ZTSAVE("PSSTX"	QUEUE*

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSNFI

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: