Routine: PSSNFI

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

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSNFI

Information

Source Information

Entry Points

Interaction Calls

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	;