Routine: PSSLOOK

Package	Total	Call Graph
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
Pharmacy Data Management	2	$$DAWEXT^PSSDAWUT ^PSSWRNE
National Drug File	1	($$FORMI,$$FORMRX,$$PROD2,$$PSJDF,$$PSJST,$$VAGN)^PSNAPIS

Package	Total	Caller Graph
Pharmacy Data Management	2	PSS LOOK PSSWRNE

Entry Points

External References

Name	Field # of Occurrence
^DIC	PICK
$$GET1^DIQ	NDF+2, FORMAT+13, FORMAT+34
^DIR	FSCRN
$$FORMI^PSNAPIS	PACK+27
$$FORMRX^PSNAPIS	PACK+30
$$PROD2^PSNAPIS	NDF+1, PACK+27
$$PSJDF^PSNAPIS	NDF1
$$PSJST^PSNAPIS	UNCALC+2
$$VAGN^PSNAPIS	NDF
$$DAWEXT^PSSDAWUT	FORMAT+14
^PSSWRNE	FORMAT+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PICK+0
Function Call: WRITE	Prompt: ?14,SYNM,?55,INT,! Line Location: SYN1+0
Function Call: WRITE	Prompt: ?16,SYNM,?57,INT,! Line Location: SYN2+0
Function Call: WRITE	Prompt: @IOF,?21,GN,! Line Location: FORMAT+2
Function Call: WRITE	Prompt: "=" Line Location: FORMAT+3
Function Call: WRITE	Prompt: ! Line Location: FORMAT+4
Function Call: WRITE	Prompt: !,"ORDERABLE ITEM TEXT: ",! Line Location: FORMAT+7
Function Call: WRITE	Prompt: !,"SYNONYM(S): " Line Location: FORMAT+9
Function Call: WRITE	Prompt: !,"MESSAGE: ",MESS,! Line Location: FORMAT+9
Function Call: WRITE	Prompt: "-" Line Location: FORMAT+10
Function Call: WRITE	Prompt: ! Line Location: FORMAT+11
Function Call: WRITE	Prompt: "DEA, SPECIAL HDLG: ",DEA,?48,"NDC: ",?63,NDC Line Location: FORMAT+12
Function Call: WRITE	Prompt: !,"DAW CODE: ",DAW," - ",$$DAWEXT^PSSDAWUT(DAW) Line Location: FORMAT+14
Function Call: WRITE	Prompt: !,"CS FEDERAL SCHEDULE: ",$G(CSF) Line Location: FORMAT+15
Function Call: WRITE	Prompt: !,"INACTIVE DATE: ",ACT Line Location: FORMAT+16
Function Call: WRITE	Prompt: ?19,"NO SUCH WARNING LABEL" Line Location: FORMAT+18
Function Call: WRITE	Prompt: !,"WARNING LABEL SOURCE is " Line Location: FORMAT+22
Function Call: WRITE	Prompt: "set to 'NEW'" Line Location: FORMAT+23
Function Call: WRITE	Prompt: !,"NEW WARNING LABEL:" Line Location: FORMAT+26
Function Call: WRITE	Prompt: "-" Line Location: FORMAT+29
Function Call: WRITE	Prompt: ! Line Location: FORMAT+30
Function Call: WRITE	Prompt: "ORDER UNIT: ",?27 Line Location: FORMAT+31
Function Call: WRITE	Prompt: OU Condition for execution: $D(OU) Line Location: FORMAT+31
Function Call: WRITE	Prompt: ?40,"PRICE/ORDER UNIT: ",?67,PPOU Line Location: FORMAT+31
Function Call: WRITE	Prompt: !,"DISPENSE UNIT: ",?27,DU Line Location: FORMAT+32
Function Call: WRITE	Prompt: ?40,"VA DISPENSE UNIT: ",?67,VADU Condition for execution: $D(VADU) Line Location: FORMAT+32
Function Call: WRITE	Prompt: !,"DISPENSE UNITS/ORDER UNIT: ",?21,DUPOU,?40,"PRICE/DISPENSE UNIT: ",?67,PPDU Line Location: FORMAT+33
Function Call: WRITE	Prompt: !,"NCPDP DISPENSE UNIT: ",$$GET1^DIQ(50,IFN,82),?40,"NCPDP QUANTITY MULTIPLIER: ",?67,$J($$GET1^DIQ(50,IFN,83),8,3) Line Location: FORMAT+34
Function Call: WRITE	Prompt: !,"APPL PKG USE:" Line Location: FORMAT+35
Function Call: WRITE	Prompt: ?13,APPL Line Location: PACK+6
Function Call: WRITE	Prompt: !,"STRENGTH: ",$S($E($P(PSSNODE,U),1)=".":"0",1:"")_$P(PSSNODE,U),?35,"UNIT: ",$G(PSSCALC) Line Location: PACK+9
Function Call: WRITE	Prompt: !,"POSSIBLE DOSAGES:" Line Location: PACK+10
Function Call: WRITE	Prompt: !," DISPENSE UNITS PER DOSE: ",$S($E($P(POSDOS,U),1)=".":"0",1:"")_$P(POSDOS,U),?40,"DOSE: ",$S($E($P(POSDOS,U,2),1)=".":"0",1:"")_$P(POSDOS,U,2),?55,"PACKAGE: ",$P(POSDOS,U,3) Line Location: PACK+13
Function Call: WRITE	Prompt: !," BCMA UNITS PER DOSE: ",$P(POSDOS,U,4) Line Location: PACK+14
Function Call: WRITE	Prompt: !,"LOCAL POSSIBLE DOSAGES:" Line Location: PACK+15
Function Call: WRITE	Prompt: !," LOCAL POSSIBLE DOSAGE: " Line Location: PACK+18
Function Call: WRITE	Prompt: $P(LPDOS,U),?55,"PACKAGE: ",$P(LPDOS,U,2) Line Location: PACK+19
Function Call: WRITE	Prompt: !,?10,$P(LPDOS,U),!,?55,"PACKAGE: ",$P(LPDOS,U,2) Line Location: PACK+20
Function Call: WRITE	Prompt: !," BCMA UNITS PER DOSE: ",$P(LPDOS,U,3) Line Location: PACK+21
Function Call: WRITE	Prompt: ! Line Location: PACK+22
Function Call: WRITE	Prompt: "-" Line Location: PACK+22
Function Call: WRITE	Prompt: !,"VA CLASS: ",$G(CLASS) Line Location: PACK+23
Function Call: WRITE	Prompt: !,"LOCAL NON-FORMULARY: ",$G(NF)," ","VISN NON-FORMULARY: ",$G(VNF) Line Location: PACK+24
Function Call: WRITE	Prompt: !,"National Formulary Indicator: "_$S($G(XX1)=1:"YES",$G(XX1)=0:"NO",1:"Not Matched to NDF") Line Location: PACK+28
Function Call: WRITE	Prompt: ?26,$P($G(^PSDRUG(LDFPTR,0)),"^"),! Line Location: PACK+29
Function Call: WRITE	Prompt: !,LIST(XX2,0) Line Location: PACK+30
Function Call: WRITE	Prompt: !,"Local Drug Text: ",! Line Location: PACK+31
Function Call: WRITE	Prompt: WPT,! Line Location: LDT+0
Function Call: WRITE	Prompt: TEXT,! Line Location: OITXT+0
Function Call: WRITE	Prompt: !?5,"NUMERIC DOSE: "_PSSLKL3,?38,"DOSE UNIT: "_PSSLKL4 Line Location: LPDNW+6
Function Call: WRITE	Prompt: !?5,"NUMERIC DOSE: "_PSSLKL3 Line Location: LPDNW+7
Function Call: WRITE	Prompt: !?38,"DOSE UNIT: "_PSSLKL4 Line Location: LPDNW+8
Routine Call	DIC Line Location: PICK
Routine Call	DIR Line Location: FSCRN

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls, GET1^DIQ
^PSNDF(50.68 - [#50.68]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	INACT
^DIC(51.5 - [#51.5]	NOD66
^PS(50.605 - [#50.605]	GETDATA+2
^PS(50.606 - [#50.606]	TWOA
^PS(50.607 - [#50.607]	PACK+7
^PS(50.608 - [#50.608]	NDF
^PS(50.609 - [#50.609]	NDF
^PS(50.7 - [#50.7]	TWOA, OITXT
^PS(51.24 - [#51.24]	LPDNW+4
^PS(51.7 - [#51.7]	LDT, OITXT, IDATE
^PS(54 - [#54]	FORMAT+18
^PS(59.7 - [#59.7]	FORMAT+22, FORMAT+23
^PSDRUG - [#50]	NDDATA, INACT, GETDATA, GETDATA+1, GETDATA+3, GETDATA+4, GETDATA+5, NOD66, SYN, IFCAP , FORMAT+21, FORMAT+27, PACK+11, PACK+12, PACK+16, PACK+17, PACK+26, PACK+29, PACK+31, LDT , UNCALC+2
^TMP("PSSWRNB"	FORMAT+27*, FORMAT+28!

Label References

Name	Line Occurrences
FORMAT	PICK+1
FSCRN	FULL
FULL	SYN1, FORMAT+9, FORMAT+10, FORMAT+12, FORMAT+14, FORMAT+15, FORMAT+16, FORMAT+17, FORMAT+18, FORMAT+19 , FORMAT+26, FORMAT+29, FORMAT+30, FORMAT+32, FORMAT+33, FORMAT+34, FORMAT+35, PACK+9, PACK+10, PACK+13 , PACK+14, PACK+15, PACK+18, PACK+21, PACK+22, PACK+23, PACK+24, PACK+28, PACK+29, PACK+30 , LDT, OITXT, LPDNW+6, LPDNW+7, LPDNW+8
GETDATA	PICK+1
IDATE	OITXT
INACT	PICK+1
KILL	START, DONE, PICK+1
LDT	PACK+31
LPDNW	PACK+21
NDDATA	PICK+1
NDF	NDDATA
NDF1	NDDATA
NOD66	PICK+1
OITXT	FORMAT+7
PACK	FORMAT+35
PICK	START
SYN	FORMAT+9
SYN1	SYN
TWOA	GETDATA+5
UNCALC	PACK+8

Naked Globals

Name	Field # of Occurrence
^(0	FORMAT+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	INACT*, FORMAT+16, KILL!
APP	GETDATA+5*, PACK, PACK+1, PACK+2, PACK+3, PACK+4, KILL!
APPL	PACK, PACK+2, PACK+3, PACK+4, PACK+5*, PACK+6, KILL+1!
CL	GETDATA*, GETDATA+2, KILL!
CLASS	GETDATA, GETDATA+2, PACK+23, KILL!
CLPTR	NDDATA*, GETDATA+2, KILL!
CMOP	GETDATA+3*, FORMAT+5, KILL!
CMOPID	NDF+1, IT, FORMAT+5, KILL!
CSF	NDF+2*, FORMAT+15, KILL+2!
D0	KILL+1!
DA	NDF, NDF+1, NDF1, PACK+25~, KILL+1!
DAW	FORMAT+1~, FORMAT+13*, FORMAT+14
DDD	KILL+1!, OITXT*
DEA	GETDATA*, FORMAT+12, KILL!
DF	TWOA*, KILL!
DFP	KILL+1!
DFPTR	TWOA*, KILL!
DFRM	KILL+1!
DIC	PICK!*
DIC(0	PICK*
DIR	KILL+1!, FSCRN!
DIR("A"	FSCRN*
DIR(0	FSCRN*
DRUG	FORMAT+20~
DU	NOD66*, FORMAT+32, KILL!
DUPOU	NOD66*, FORMAT+33, KILL+1!
DUPOUGN	KILL!
FA	PACK+29*, KILL+1!
FM	DONE!, GETDATA+5, TWOA
FMS	DONE!, TWOA*
GN	GETDATA*, FORMAT+2, KILL+1!
IFCAPNM	IFCAP*, KILL!
IFN	PICK+1*, NDDATA, INACT, GETDATA, GETDATA+1, GETDATA+3, GETDATA+4, GETDATA+5, NOD66, SYN , IFCAP, FORMAT+13, FORMAT+21, FORMAT+27, FORMAT+34, PACK+11, PACK+12, PACK+16, PACK+17, PACK+26 , PACK+29, PACK+31, LDT, KILL!, UNCALC+2
INT	SYN, SYN1, SYN2*, KILL!
IOF	FORMAT+2, FSCRN
IOSL	FULL
K	NDF+1*, NDF1, PACK+25~, KILL+1!
LDFPTR	PACK+29*, KILL+1!
LIST	PACK+25~, PACK+30
LIST(	PACK+30
LPDOS	PACK+17*, PACK+19, PACK+20, PACK+21, KILL+2!, LPDNW+3
MESS	GETDATA*, FORMAT+9, KILL!
NDC	GETDATA+5*, FORMAT+12, KILL!
NDE	NOD66*, KILL!
NDNODE	NDDATA*, NDF, NDF+2, KILL!
NF	GETDATA*, PACK+24, KILL!
NOD66	KILL!
NODE0	GETDATA*, KILL!
NODE2	GETDATA+5*, KILL!
OI	TWOA*, KILL!
OINM	GETDATA+5, TWOA, FORMAT+6, KILL!
OIPTR	GETDATA+5*, TWOA, FORMAT+7, KILL!, OITXT
OU	NOD66*, FORMAT+31, KILL!
OUPTR	NOD66*, KILL!
P3	NDF*, NDF+1, KILL!
PD	FORMAT+8, KILL!
PDPTR	GETDATA+5*, KILL!
PDS	PACK+11, PACK+12, PACK+16, PACK+17, KILL+2!
POSDOS	PACK+12*, PACK+13, PACK+14, KILL+2!
PPDU	NOD66*, FORMAT+33, KILL!
PPOU	NOD66*, FORMAT+31, KILL!
PPP	LDT*, KILL+1!
PS	NDF*, KILL!
PSDOSUN	KILL+2!
PSSCALC	PACK+7, PACK+9, KILL+2!, UNCALC+1!, UNCALC+6
PSSDASH	UNCALC+1~, UNCALC+2, UNCALC+3, UNCALC+5, UNCALC+6
PSSDASH2	UNCALC+1~, UNCALC+5*
PSSDASH3	UNCALC+1~, UNCALC+5*
PSSDASH5	UNCALC+1~, UNCALC+5*, UNCALC+6
PSSFG	START, DONE!, PICK
PSSLKL1	LPDNW+1~, LPDNW+3*, LPDNW+4
PSSLKL2	LPDNW+1~, LPDNW+3*, LPDNW+5
PSSLKL3	LPDNW+1~, LPDNW+5*, LPDNW+6, LPDNW+7
PSSLKL4	LPDNW+1~, LPDNW+2, LPDNW+4, LPDNW+6, LPDNW+8
PSSLOOK	FORMAT+19*, FORMAT+21!, FORMAT+28!
PSSNDFS	UNCALC+1~, UNCALC+2*, UNCALC+3, UNCALC+5
PSSNODE	GETDATA+1*, PACK+7, PACK+9, KILL+2!
PSSSTR	PACK+7*, KILL+2!, UNCALC+3, UNCALC+5
PSSUNIT	PACK+7*, PACK+8, KILL+2!, UNCALC+4, UNCALC+6
PSSVA	UNCALC+1~, UNCALC+4*, UNCALC+6
PSSVA1	UNCALC+1~, UNCALC+4*, UNCALC+6
PSSVB	UNCALC+1~, UNCALC+4*, UNCALC+5
PSSVB1	UNCALC+1~, UNCALC+4*, UNCALC+5
PSSWRN	FORMAT+25!, FORMAT+28!
>> PSSWSITE	FORMAT+22*, FORMAT+23
PSSXX	START*, DONE!
PST	LDT*, KILL+1!
PSXDN	PACK+25~, PACK+26*
PSXGN	PACK+25~, PACK+26!*, PACK+27, PACK+30
PSXVP	PACK+25~, PACK+26!*, PACK+27, PACK+30
PT	NDF*, KILL!
QDM	GETDATA+4*, FORMAT+17, FORMAT+29, KILL+1!
QQQ	IFCAP*, KILL+1!
QUIT	START, DONE!, SYN1, FORMAT+9, FORMAT+10, FORMAT+12, FORMAT+14, FORMAT+15, FORMAT+16, FORMAT+17 , FORMAT+18, FORMAT+19, FORMAT+26, FORMAT+29, FORMAT+30, FORMAT+32, FORMAT+33, FORMAT+34, FORMAT+35, PACK+9 , PACK+10, PACK+13, PACK+14, PACK+15, PACK+18, PACK+21, PACK+22, PACK+23, PACK+24, PACK+28 , PACK+29, PACK+30, LDT, KILL+1!, OITXT, FULL, FSCRN, LPDNW+6, LPDNW+7, LPDNW+8
SS	NOD66*, KILL!
SYNM	SYN*, SYN1, SYN2, KILL!
SZPTR	NDDATA*, NDF, KILL!
TEXPTR	LDT*, KILL+1!
TEXT	KILL+1!, OITXT*
TEXTPTR	KILL+1!, OITXT*, IDATE
TXT	KILL+1!, OITXT*
TXT1	LDT*, KILL+1!
TXTPTR	KILL+1!
TYPTR	NDDATA*, NDF, KILL!
U	PACK+7, PACK+9, PACK+13, PACK+14, PACK+19, PACK+20, PACK+21
VADF	NDF1*, FORMAT+6, KILL+1!
VADU	NDF+1*, FORMAT+32, KILL!
VAGN	NDF*, KILL!
VAGNPTR	NDDATA*, NDF, NDF+1, KILL!
VAPN	NDDATA*, FORMAT+5, FORMAT+6, KILL!
VAPRN	NDF+1*, FORMAT+5, KILL!
VNF	GETDATA*, PACK+24, KILL+1!
WARN	GETDATA*, KILL!
WPT	LDT*, KILL+1!
WRN	GETDATA*, FORMAT+18, KILL!
X	NDF, NDF+1!, IT, NDF1, FORMAT+18!, PACK+25~, PACK+27*
XX	FORMAT+3, FORMAT+10, FORMAT+29, PACK+22, KILL!
XX1	PACK+25~, PACK+27*, PACK+28
XX2	PACK+25~, PACK+30*
Y	PICK, PICK+1, INACT*, KILL+1!, FSCRN
Y2K	DONE!, OITXT, IDATE*
Z0	FORMAT+18*, KILL+1!
Z1	FORMAT+18*, KILL+1!
ZZZ	SYN*, KILL!

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSLOOK

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LPDNW	;Display Dose Unit and Numeric Dose fields, added with patch PSS1147
FORMAT	; BEGIN WRITING
DONE
PICK
NDDATA
INACT
GETDATA
FSCRN
IDATE
OITXT
FULL
LDT
IT
NDF
NDF1
NOD66
UNCALC	;
IFCAP
START
SYN
TWOA
KILL
SYN1
SYN2
PACK