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: PSSDRDOS

Package: Pharmacy Data Management

Routine: PSSDRDOS


Information

PSSDRDOS ;BIR/RTR - Display Dosing related information for DRUG File(#50) entry ; Aug 20, 2011@16:00

Source Information

Source file <PSSDRDOS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Pharmacy Data Management 4 SET^PSSDOSLZ  CLEFF^PSSDRDO2  EN^PSSFDBDI  $$UPPER^PSSHRCOM  
VA FileMan 2 ^DIC  ^DIR  
National Drug File 1 ($$OVRIDE,$$PROD0)^PSNAPIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 PSS DRUG DOSING LOOKUP  

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1 ;Come back through to prompt for another drug before exiting option
NOTM ;Jump to here if not matched to National Drug File
WXFPT(PSSVVHCL) ;
PAUSE ;
ELG() ;Is drug Dose Call Eligible, for matched drugs
NGC ;Print First Databank data from Dosing records
NGCK ;
DUP1() ;Screen out duplicates, needed if Min/max records are added back
DUP2() ;
LWRP(PSSDCRL1) ;Print last line, check for wrapping

External References

Name Field # of Occurrence
^DIC EN1+4
^DIR PAUSE+2
$$OVRIDE^PSNAPIS EN1+10
$$PROD0^PSNAPIS EN1+10
SET^PSSDOSLZ NOTM+34
CLEFF^PSSDRDO2 NOTM+55
EN^PSSFDBDI NGC+4
$$UPPER^PSSHRCOM NGC+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NOTM+1
Function Call: WRITE
  • Prompt: !,PSSVVHL1
  • Line Location: NOTM+7
Function Call: WRITE
  • Prompt: !,"VA PRODUCT NAME: "_PSSVVHNM
  • Line Location: NOTM+9
Function Call: WRITE
  • Prompt: !,"NDF DOSAGE FORM: "_$S(PSSVVHDF:$P($G(^PS(50.606,+PSSVVHDF,0)),"^"),1:"")
  • Line Location: NOTM+13
Function Call: WRITE
  • Prompt: !,"DEA, SPECIAL HDLG: "_$P(PSSVVHZR,"^",3)_" VA DRUG CLASS: "_$P(PSSVVHZR,"^",2)
  • Line Location: NOTM+14
Function Call: WRITE
  • Prompt: !,"EXCLUDE DOSAGE FORM FROM DOSAGE CHECKS: "
  • Line Location: NOTM+15
Function Call: WRITE
  • Prompt: $S(PSSVVHPL:"YES",PSSVVHPL=0:"NO",1:"")
  • Line Location: NOTM+15
Function Call: WRITE
  • Prompt: !,"OVERRIDE DOSAGE FORM DOSE CHECK EXCLUSION FOR VA PRODUCT: "
  • Line Location: NOTM+16
Function Call: WRITE
  • Prompt: $S(PSSVVHHH:"YES",PSSVVHHH=0:"NO",1:"")
  • Line Location: NOTM+16
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTM+17
Function Call: WRITE
  • Prompt: !?7,"***DRUG "_$S(PSSVVHLG:"NOT ",1:"")_"ELIGIBLE FOR DOSAGE CHECKS***"
  • Line Location: NOTM+18
Function Call: WRITE
  • Prompt: !,PSSVVHL2
  • Line Location: NOTM+19
Function Call: WRITE
  • Prompt: !,"Strength: "_$S($E($G(PSSVVHA2),1)=".":"0",1:"")_$G(PSSVVHA2)
  • Line Location: NOTM+23
Function Call: WRITE
  • Prompt: " Unit:"
  • Line Location: NOTM+24
Function Call: WRITE
  • Prompt: !,"POSSIBLE DOSAGES:"
  • Line Location: NOTM+29
Function Call: WRITE
  • Prompt: ?65,"PACKAGE: ",$P(PSSVVHA5,U,3)
  • Line Location: NOTM+36
Function Call: WRITE
  • Prompt: !!,"LOCAL POSSIBLE DOSAGES:"
  • Line Location: NOTM+42
Function Call: WRITE
  • Prompt: !," LOCAL POSSIBLE DOSAGE: "
  • Line Location: NOTM+44
Function Call: WRITE
  • Prompt: $P(PSSVVHA8,"^"),?65,"PACKAGE: ",$P(PSSVVHA8,"^",2)
  • Line Location: NOTM+45
Function Call: WRITE
  • Prompt: !,PSSVVHL2
  • Line Location: NOTM+48
Function Call: WRITE
  • Prompt: !?4,"BCMA UNITS PER DOSE: "_PSSVVHC7
  • Line Location: WXFPT+8
Function Call: WRITE
  • Prompt: !?4," NUMERIC DOSE: "_PSSVVHC5,?38,"DOSE UNIT: "_PSSVVHC4
  • Line Location: WXFPT+9
Function Call: WRITE
  • Prompt: !,?4," NUMERIC DOSE: "_PSSVVHC5
  • Line Location: WXFPT+10
Function Call: WRITE
  • Prompt: !,?38,"DOSE UNIT: "_PSSVVHC4
  • Line Location: WXFPT+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !,"FDB ROUTES: "
  • Line Location: NGC+29
Function Call: WRITE
  • Prompt: PSSDCR4
  • Line Location: NGC+31
Function Call: WRITE
  • Prompt: !,"FDB DOSE UNITS: "
  • Line Location: NGC+35
Function Call: WRITE
  • Prompt: PSSDCR4
  • Line Location: NGC+37
Function Call: WRITE
  • Prompt: !,"BSA REQUIRED FOR DOSAGE CHECKS:"
  • Line Location: NGC+52
Function Call: WRITE
  • Prompt: $S(PSSDCRF3="true":" YES",PSSDCRF3="false":" NO",1:"")
  • Line Location: NGC+53
Function Call: WRITE
  • Prompt: " "_PSSDCR4_" "
  • Line Location: NGC+65
Function Call: WRITE
  • Prompt: " "_PSSDCR4_" "
  • Line Location: NGC+74
Function Call: WRITE
  • Prompt: !,"WEIGHT REQUIRED FOR DOSAGE CHECKS:"
  • Line Location: NGC+85
Function Call: WRITE
  • Prompt: $S(PSSDCRF3="true":" YES",PSSDCRF3="false":" NO",1:"")
  • Line Location: NGC+86
Function Call: WRITE
  • Prompt: " "_PSSDCR4_" "
  • Line Location: NGC+98
Function Call: WRITE
  • Prompt: " "_PSSDCR4_" "
  • Line Location: NGC+107
Function Call: WRITE
  • Prompt: "("_$S($P(PSSDCRL1,"^",2)="":"No Dose Type",1:$P(PSSDCRL1,"^",2))_$S($P(PSSDCRL1,"^",2)="MAINTENANCE":" DOSE, ",1:", ")
  • Line Location: LWRP+4
Function Call: WRITE
  • Prompt: $S($P(PSSDCRL1,"^")="":"No Dose Route)",1:$P(PSSDCRL1,"^")_")")
  • Line Location: LWRP+5
Function Call: WRITE
  • Prompt: !?PSSDCRL5,$S($P(PSSDCRL1,"^")="":"No Dose Route)",1:$P(PSSDCRL1,"^")_")")
  • Line Location: LWRP+6
Routine Call
  • DIC
  • Line Location:
    • EN1+4
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] EN1+12, NOTM+13, ELG+6, ELG+7, ELG+8, ELG+9
^PS(50.607 - [#50.607] NOTM+22, NOTM+25, NOTM+27
^PS(50.7 - [#50.7] ELG+6
^PS(51.24 - [#51.24] WXFPT+4
^PSDRUG - [#50] EN1+7, NOTM+21, NOTM+30, NOTM+31, NOTM+43, NOTM+44, NOTM+55, ELG+6
^TMP($J NGC+12, NGC+13, NGC+16, NGC+17, NGC+18, NGC+19, NGCK+1!

Label References

Name Line Occurrences
$$DUP1 NGC+25
$$DUP2 NGC+26
$$ELG EN1+13
EN1 NOTM+6, NOTM+7, NOTM+12, NOTM+13, NOTM+14, NOTM+15, NOTM+16, NOTM+17, NOTM+18, NOTM+19
, NOTM+28, NOTM+29, NOTM+41, NOTM+42, NOTM+47, NOTM+48, NOTM+49, NOTM+56
LWRP NGC+66, NGC+75, NGC+99, NGC+108
NGC NOTM+54
NGCK NOTM+54, NGC+3
NOTM EN1+9
PAUSE NOTM+3, NOTM+4, NOTM+5, NOTM+7, NOTM+9, NOTM+10, NOTM+11, NOTM+13, NOTM+14, NOTM+15
, NOTM+16, NOTM+17, NOTM+18, NOTM+19, NOTM+24, NOTM+25, NOTM+26, NOTM+27, NOTM+29, NOTM+36
, NOTM+37, NOTM+38, NOTM+40, NOTM+42, NOTM+45, NOTM+46, NOTM+48, NOTM+50, NOTM+51, NOTM+52
, NOTM+53, NOTM+55, WXFPT+8, WXFPT+9, WXFPT+10, WXFPT+11, NGC+6, NGC+7, NGC+31, NGC+32
, NGC+37, NGC+38, NGC+53, NGC+65, NGC+74, NGC+86, NGC+98, NGC+107, LWRP+6
WXFPT NOTM+45, NOTM+46

Naked Globals

Name Field # of Occurrence
^(0 NOTM+25, NOTM+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1~, EN1+1!
%DT EN+1~, EN1+1!
D EN+1~, EN1+1!
D0 EN+1~, EN1+1!
DA EN+1~, EN1+1!
DIC EN+1~, EN1+1!, EN1+4!*
DIC(0 EN1+4*
DIDEL EN+1~, EN1+1!
DIR EN+1~, EN1+1!, PAUSE+2!
DIR("A" PAUSE+2*
DIR(0 PAUSE+2*
DIROUT EN+1~, EN1+1!
DIRUT EN+1~, EN1+1!
DLAYGO EN+1~, EN1+1!
DR EN+1~, EN1+1!
DTOUT EN+1~, EN1+1!, EN1+4!
DUOUT EN+1~, EN1+1!, EN1+4!
I EN+1~, EN1+1!
IOF NOTM+1, PAUSE+3
IOSL PAUSE+1
J EN+1~, EN1+1!
PSSDCR1 NGC+1~, NGC+12*, NGC+13, NGC+16, NGC+17, NGC+18, NGC+19
PSSDCR2 NGC+1~, NGC+13*, NGC+14, NGC+15, NGC+24, NGC+25, NGC+26, DUP1+3, DUP2+3
PSSDCR3 NGC+1~, NGC+29*, NGC+31*, NGC+35*, NGC+37*, NGC+59*, NGC+65*, NGC+68*, NGC+74*, NGC+92*
, NGC+98*, NGC+101*, NGC+107*
PSSDCR4 NGC+1~, NGC+30*, NGC+31, NGC+32, NGC+36*, NGC+37, NGC+38, NGC+62*, NGC+63, NGC+64
, NGC+65, NGC+71*, NGC+72, NGC+73, NGC+74, NGC+95*, NGC+96, NGC+97, NGC+98, NGC+104*
, NGC+105, NGC+106, NGC+107, LWRP+3, LWRP+6
PSSDCR5 NGC+1~, NGC+16*, NGC+21
PSSDCR6 NGC+1~, NGC+17*, NGC+21
PSSDCR7 NGC+1~, NGC+18*, NGC+23
PSSDCR8 NGC+1~, NGC+20*, NGC+21, NGC+22*, NGC+23
PSSDCR9 NGC+1~
PSSDCRBS NGC+1~
PSSDCRBS( NGC+25*, NGC+46, NGC+47, NGC+48, NGC+56, NGC+57, NGC+58, DUP1+4, DUP1+5
PSSDCRCO NGC+1~, NGC+24*, NGC+25, NGC+26, DUP1+5, DUP2+5
PSSDCRD1 DUP1+1~, DUP1+3*, DUP1+5
PSSDCRD2 DUP1+1~, DUP1+3*
PSSDCRD4 DUP1+1~, DUP1+4*, DUP1+5
PSSDCRD5 DUP2+1~, DUP2+3*, DUP2+5
PSSDCRD6 DUP2+1~, DUP2+3*
PSSDCRD7 DUP2+1~, DUP2+4*, DUP2+5
PSSDCRDF DUP1+1~, DUP1+2*, DUP1+4, DUP1+5*, DUP1+6
PSSDCRDG DUP2+1~, DUP2+2*, DUP2+4, DUP2+5*, DUP2+6
PSSDCRF1 NGC+1~, NGC+47*, NGC+48, NGC+80*, NGC+81
PSSDCRF2 NGC+1~, NGC+48*, NGC+49, NGC+50, NGC+51, NGC+81*, NGC+82, NGC+83, NGC+84
PSSDCRF3 NGC+1~, NGC+45*, NGC+49*, NGC+50, NGC+51*, NGC+53, NGC+78*, NGC+82*, NGC+83, NGC+84*
, NGC+86
PSSDCRF4 NGC+1~, NGC+45*, NGC+46, NGC+47, NGC+48, NGC+50*, NGC+53, NGC+78*, NGC+79, NGC+80
, NGC+81, NGC+83*, NGC+86
PSSDCRF5 NGC+1~, NGC+63*, NGC+64, NGC+72*, NGC+73, NGC+96*, NGC+97, NGC+105*, NGC+106
PSSDCRG1 DUP1+1~, DUP1+3*
PSSDCRG2 DUP1+1~, DUP1+3*, DUP1+5
PSSDCRG4 DUP2+1~, DUP2+3*
PSSDCRG5 DUP2+1~, DUP2+3*, DUP2+5
PSSDCRJ1 NGC+2~, NGC+55!, NGC+56*, NGC+57, NGC+58, NGC+88!, NGC+89*, NGC+90, NGC+91
PSSDCRJ2 NGC+2~, NGC+55!, NGC+56*, NGC+57, NGC+58, NGC+88!, NGC+89*, NGC+90, NGC+91
PSSDCRJ3 NGC+2~, NGC+55!, NGC+57*, NGC+58, NGC+88!, NGC+90*, NGC+91
PSSDCRJ4 NGC+2~, NGC+55!, NGC+57*, NGC+58, NGC+88!, NGC+90*, NGC+91
PSSDCRJ5 NGC+2~, NGC+55!, NGC+88!
PSSDCRJ5( NGC+58*, NGC+60, NGC+61, NGC+62, NGC+63, NGC+64, NGC+69, NGC+70, NGC+71, NGC+72
, NGC+73, NGC+91*, NGC+93, NGC+94, NGC+95, NGC+96, NGC+97, NGC+102, NGC+103, NGC+104
, NGC+105, NGC+106
PSSDCRJ6 NGC+2~, NGC+55!, NGC+60*, NGC+61, NGC+62, NGC+63, NGC+64, NGC+69*, NGC+70, NGC+71
, NGC+72, NGC+73, NGC+88!, NGC+93*, NGC+94, NGC+95, NGC+96, NGC+97, NGC+102*, NGC+103
, NGC+104, NGC+105, NGC+106
PSSDCRK1 NGC+1~, NGC+64*, NGC+66, NGC+97*, NGC+99
PSSDCRK2 NGC+1~, NGC+73*, NGC+75, NGC+106*, NGC+108
PSSDCRL1 LWRP~, LWRP+2, LWRP+4, LWRP+5, LWRP+6
PSSDCRL2 LWRP+1~, LWRP+2*, LWRP+3
PSSDCRL3 LWRP+1~, LWRP+2*, LWRP+3
PSSDCRL4 LWRP+1~, LWRP+3*, LWRP+5
PSSDCRL5 LWRP+1~, LWRP+6*
PSSDCRMR NGC+1~
PSSDCRMR( NGC+15*, NGC+30
PSSDCRN3 NGC+1~, NGC+19*, NGC+25, NGC+26, DUP1+3, DUP2+3
PSSDCRUN NGC+1~
PSSDCRUN( NGC+21*, NGC+23*, NGC+36
PSSDCRVL NGC+1~, NGC+4
PSSDCRVL(0 NGC+5
PSSDCRWT NGC+1~
PSSDCRWT( NGC+26*, NGC+79, NGC+80, NGC+81, NGC+89, NGC+90, NGC+91, DUP2+4, DUP2+5
PSSDCRX1 NGC+1~, NGC+10*, NGC+25*
PSSDCRX2 NGC+1~, NGC+10*, NGC+26*
PSSDCRXX NGC+1~, NGC+46*, NGC+47, NGC+48, NGC+61*, NGC+62, NGC+63, NGC+64, NGC+70*, NGC+71
, NGC+72, NGC+73, NGC+79*, NGC+80, NGC+81, NGC+94*, NGC+95, NGC+96, NGC+97, NGC+103*
, NGC+104, NGC+105, NGC+106
PSSIEN EN+3~, EN1+3!, NOTM+34*
PSSVVHA1 EN+3~, EN1+3!, NOTM+21*, NOTM+22
PSSVVHA2 EN+3~, EN1+3!, NOTM+22*, NOTM+23
PSSVVHA3 EN+3~, EN1+3!, NOTM+22*, NOTM+24, NOTM+25, NOTM+27
PSSVVHA4 EN+3~, EN1+3!, NOTM+30*, NOTM+31
PSSVVHA5 EN+3~, EN1+3!, NOTM+31*, NOTM+33, NOTM+34, NOTM+36, NOTM+38, NOTM+40
PSSVVHA7 EN+3~, EN1+3!, NOTM+43*, NOTM+44
PSSVVHA8 EN+3~, EN1+3!, NOTM+44*, NOTM+45, NOTM+46
PSSVVHA9 EN+3~, EN1+3!
PSSVVHAR EN+3~, EN1+3!
PSSVVHC1 WXFPT+1~, WXFPT+3*, WXFPT+6
PSSVVHC2 WXFPT+1~, WXFPT+3*, WXFPT+4
PSSVVHC3 WXFPT+1~, WXFPT+3*, WXFPT+5
PSSVVHC4 WXFPT+1~, WXFPT+2*, WXFPT+4*, WXFPT+9, WXFPT+11
PSSVVHC5 WXFPT+1~, WXFPT+5*, WXFPT+7, WXFPT+9, WXFPT+10
PSSVVHC6 WXFPT+1~, WXFPT+7*, WXFPT+9
PSSVVHC7 WXFPT+1~, WXFPT+6*, WXFPT+8
PSSVVHCL WXFPT~, WXFPT+3
PSSVVHDA ELG+1~, ELG+2*, ELG+6*, ELG+7, ELG+8, ELG+9
PSSVVHDF EN+2~, EN1+2!, EN1+6*, EN1+11*, EN1+12, NOTM+13, ELG+2
PSSVVHDX EN+2~, EN1+2!, EN1+6*, EN1+12*, ELG+6*
PSSVVHGC EN+2~, EN1+2!, EN1+6*, EN1+11*, NOTM+2, NOTM+3, NOTM+5, NOTM+49, ELG+5, NGC+4
, NGC+11*, NGC+12, NGC+13, NGC+16, NGC+17, NGC+18, NGC+19
PSSVVHHH EN+3~, EN1+3!, EN1+6*, EN1+10*, NOTM+16
PSSVVHIN EN+2~, EN1+2!, EN1+5*, EN1+7, NOTM+21, NOTM+30, NOTM+31, NOTM+34, NOTM+43, NOTM+44
, NOTM+55, ELG+6
PSSVVHL1 EN+4~, EN+5*, NOTM+7
PSSVVHL2 EN+4~, EN+6*, NOTM+19, NOTM+48
PSSVVHL3 EN+2~, EN1+2!, NOTM+2*, NOTM+3, NOTM+8*, NOTM+9, NOTM+21*, NOTM+22*, NOTM+25
PSSVVHL4 EN+2~, EN1+2!, NOTM+2*, NOTM+3
PSSVVHLG EN+2~, EN1+2!, EN1+6*, EN1+9*, EN1+13*, NOTM+18, NOTM+49
PSSVVHMT EN+2~, EN1+2!, EN1+7*, EN1+8*, EN1+9
PSSVVHN1 EN+2~, EN1+2!, EN1+8*, EN1+10
PSSVVHN3 EN+2~, EN1+2!, EN1+8*, EN1+10, NOTM+55
PSSVVHND EN+2~, EN1+2!, EN1+7*, EN1+8
PSSVVHNM EN+2~, EN1+2!, EN1+6*, EN1+11*, NOTM+8, NOTM+9, NOTM+11
PSSVVHOV EN+2~, EN1+2!, EN1+6*, EN1+10*, ELG+7, ELG+8, ELG+9
PSSVVHPL EN+3~, EN1+3!, EN1+6*, EN1+12*, NOTM+15
PSSVVHQT EN+2~, EN1+2!, EN1+6*, NOTM+4, NOTM+6, NOTM+7, NOTM+10, NOTM+12, NOTM+13, NOTM+14
, NOTM+15, NOTM+16, NOTM+17, NOTM+18, NOTM+19, NOTM+26, NOTM+28, NOTM+29, NOTM+30, NOTM+37
, NOTM+39, NOTM+41, NOTM+42, NOTM+43, NOTM+45, NOTM+46, NOTM+47, NOTM+48, NOTM+50, NOTM+51
, NOTM+52, NOTM+55, WXFPT+8, WXFPT+10, PAUSE+2*, NGC+6, NGC+30, NGC+33, NGC+36, NGC+39
, NGC+60, NGC+61, NGC+62, NGC+63, NGC+65, NGC+67, NGC+69, NGC+70, NGC+71, NGC+72
, NGC+74, NGC+76, NGC+93, NGC+94, NGC+95, NGC+96, NGC+98, NGC+100, NGC+102, NGC+103
, NGC+104, NGC+105, NGC+107, LWRP+6
PSSVVHRS EN+2~, EN1+2!, EN1+10*, EN1+11
PSSVVHXX EN+3~, EN1+3!, NOTM+34*, NOTM+35, NOTM+36
PSSVVHZR EN+2~, EN1+2!, EN1+7*, NOTM+2, NOTM+3, NOTM+4, NOTM+14, ELG+4
U NOTM+36, NOTM+38
X EN+1~, EN1+1!, EN1+4!, NOTM+34*
XX EN+1~, EN1+1!
Y EN+1~, EN1+1!, EN1+4, EN1+5, PAUSE+2
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