Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSSLOOK

Package: Pharmacy Data Management

Routine: PSSLOOK


Information

PSSLOOK ;BIR/WRT-Drug file lookup ;02/03/00

Source Information

Source file <PSSLOOK.m>

Call Graph

Call Graph Total: 6

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Data Management 2 PSS LOOK  PSSWRNE  

Entry Points

Name Comments DBIA/ICR reference
LPDNW ;Display Dose Unit and Numeric Dose fields, added with patch PSS*1*147
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

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All