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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSIVUDL

Package: Inpatient Medications

Routine: PSIVUDL


Information

PSIVUDL ;BIR/PR,MLM-IV ORDER INFORMATION FOR UNIT DOSE LABEL ;28-Feb-2014 14:12;DU

Source Information

Source file <PSIVUDL.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 6 ($$ENDTC,$$ENDTC1)^PSGMI  RPHINIT^PSGMIV  NAME^PSIVUTL  ENIV^PSJAC  $$ONE^PSJBCMA  $$LASTREN^PSJLMPRI  
IHS Patient 1 $$HRN^AUPNPAT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGL  PSGL0  

Entry Points

Name Comments DBIA/ICR reference
ENP ; Print MAR label for IV order.
NXTLNE(NL) ; Print info to right of drug (x=line number,NL=new label)
DONE ;
EN(DFN,ON,PSJLWD,PSJLRB) ; Entry to print MAR label for all types of IV orders.

External References

Name Field # of Occurrence
$$HRN^AUPNPAT ENP+9
$$ENDTC^PSGMI NXTLNE+4, NXTLNE+7
$$ENDTC1^PSGMI EN+7
RPHINIT^PSGMIV EN+8
NAME^PSIVUTL ENP+14, ENP+17
ENIV^PSJAC EN+1
$$ONE^PSJBCMA EN+5
$$LASTREN^PSJLMPRI ENP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13),?1,$E(P("LOG"),1,5)," |",X,?36,"(",$S($G(PSJPBID):PSJPBID,$G(PSGLBID):PSGLBID,$G(PSGLSSN):PSGLSSN,1:$$HRN^AUPNPAT(DFN,$G(DUZ(2)))),")",?42,"|",$G(PSJLAT(1)),?52,VADM(1),?88,$J($S(PSJLRB]"":PSJLRB,1:"*NF*"),12)
  • Line Location: ENP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP+14
Function Call: WRITE
  • Prompt: ?1,NAME(Y)
  • Line Location: ENP+14
Function Call: WRITE
  • Prompt: ?4,NAME(Y)
  • Line Location: ENP+15
Function Call: WRITE
  • Prompt: ?4,NAME(Y)
  • Line Location: ENP+18
Function Call: WRITE
  • Prompt: !?7,PSJPRT2
  • Line Location: ENP+19
Function Call: WRITE
  • Prompt: "*CAUTION-CHEMOTHERAPY*"
  • Line Location: ENP+22
Function Call: WRITE
  • Prompt: ?1,""
  • Line Location: ENP+23
Function Call: WRITE
  • Prompt: ?1
  • Line Location: ENP+24
Function Call: WRITE
  • Prompt: ?1,PSJCONT
  • Line Location: ENP+28
Function Call: WRITE
  • Prompt: ?1
  • Line Location: ENP+28
Function Call: WRITE
  • Prompt: ?24,"RPH:",PSJRPH,?33," RN:",PSGLRN
  • Line Location: ENP+31
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP+31
Function Call: WRITE
  • Prompt: ?24,"RPH:",$S(PSJRPH]"":PSJRPH,1:"_____"),?33," RN:_____"
  • Line Location: ENP+32
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP+32
Function Call: WRITE
  • Prompt: ?43,"|",$G(PSJLAT(PSJCNT))
  • Line Location: NXTLNE+3
Function Call: WRITE
  • Prompt: ?52,$P(VADM(2),U,2),?70,$E($$ENDTC^PSGMI(+VADM(3)),1,8)," (",VADM(4),")",?85,$J($S(PSJTM]"":PSJTM,1:"NOT FOUND"),15)
  • Line Location: NXTLNE+3
Function Call: WRITE
  • Prompt: ?42,PSGLST
  • Condition for execution: PSJCNT=2
  • Line Location: NXTLNE+4
Function Call: WRITE
  • Prompt: ?43,"|",$G(PSJLAT(PSJCNT))
  • Line Location: NXTLNE+4
Function Call: WRITE
  • Prompt: ?52,$G(PSJPPID),?70,$E($$ENDTC^PSGMI(+VADM(3)),1,8)," (",VADM(4),")",?85,$J($S(PSJTM]"":PSJTM,1:"NOT FOUND"),15)
  • Line Location: NXTLNE+4
Function Call: WRITE
  • Prompt: ?52,$S(VADM(5)]"":$P(VADM(5),U,2),1:"____"),?65,"DX: ",VAIN(9)
  • Line Location: NXTLNE+5
Function Call: WRITE
  • Prompt: ?52,$S(PSJWGN]"":$E(PSJWGN,1,21),1:"NOT FOUND"),?79,$J($S($P(PSJLWD,U,2)]"":$P(PSJLWD,U,2),1:"NOT FOUND"),21)
  • Line Location: NXTLNE+9
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: NXTLNE+10
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: NXTLNE+10
Function Call: WRITE
  • Prompt: ?1,PSJCONT
  • Line Location: NXTLNE+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.6 - [#52.6] ENP+14
^PS(52.7 - [#52.7] ENP+19
^PS(53.1 - [#53.1] EN+4, ENP+1
^PS(55 - [#55] EN+3, ENP+1
^PS(57.5 - [#57.5] EN+2
^PS(57.7 - [#57.7] EN+2
^VA(200 - [#200] ENP+11

Label References

Name Line Occurrences
@( EN+3
NXTLNE ENP+14, ENP+18, ENP+19, ENP+21, ENP+22, ENP+24, ENP+26, ENP+28, ENP+29, ENP+30
, ENP+31, NXTLNE+11

Naked Globals

Name Field # of Occurrence
^( EN+4
^(0 ENP+11, ENP+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN~, EN+3, EN+5, ENP+1, ENP+2, ENP+9
DRG DONE+1!
DRG("AD" ENP+14
DRG("SOL" ENP+17, ENP+19
DUZ(2 ENP+9
MSG EN+3*, ENP+12*, ENP+14*, ENP+20, DONE+1!
NAME ENP+13~, ENP+14, ENP+17
NAME( ENP+14, ENP+17, ENP+18
NL DONE+1!, NXTLNE~, NXTLNE+10*, NXTLNE+11
ON EN~, EN+3, EN+4, EN+5, EN+6, ENP+1, ENP+2, ENP+4
ON55 EN+3!, DONE+1!
P DONE+1!
P( EN+7*
P("LOG" ENP+9
P("MR" ENP+21
P("OPI" EN+4*, ENP+20*, ENP+21, ENP+22, ENP+23, ENP+24
P(11 EN+5
P(17 EN+9
P(2 EN+5, ENP+4, ENP+5
P(3 EN+5, ENP+5
P(4 ENP+21, ENP+22
P(8 ENP+21
P(9 EN+5, ENP+21
>> PSGLBID ENP+9
PSGLREN ENP+2~*, ENP+3
>> PSGLRN ENP+1*, ENP+3*, ENP+4, ENP+10*, ENP+11*, ENP+31
PSGLRNDT ENP+3~*
>> PSGLSSN ENP+9
>> PSGLST EN+5*, EN+6*, NXTLNE+4
PSJACNWP EN+1*, DONE+1!
PSJCNT ENP+12*, ENP+21, ENP+27, ENP+28, ENP+29, ENP+30, ENP+31, DONE+1!, NXTLNE+4, NXTLNE+5
, NXTLNE+6, NXTLNE+9, NXTLNE+10*, NXTLNE+11
>> PSJCONT ENP+12*, ENP+28, NXTLNE+11
PSJLABEL EN+1~*
PSJLAT EN+3!, EN+5*, EN+9, EN+12, EN+13, EN+14, EN+15, DONE+1!
PSJLAT( EN+11*, EN+15*, ENP+21, ENP+27, ENP+29, ENP+31, NXTLNE+4
PSJLAT(0 EN+9*, EN+10, EN+12, EN+13, EN+14, EN+15
PSJLAT(1 EN+9*, EN+13*, EN+14*, ENP+9
PSJLAT(2 EN+9*
PSJLAT(3 EN+9*, EN+12*, EN+14*
PSJLAT(4 EN+9*
PSJLAT(5 EN+9*, EN+13*, EN+14*
PSJLDT EN+3*, DONE+1!, NXTLNE+6, NXTLNE+7
PSJLR EN+3*, DONE+1!, NXTLNE+6
PSJLRB EN~, EN+2, ENP+9
PSJLWD EN~, EN+2, NXTLNE+9
>> PSJPBID ENP+9
>> PSJPPID NXTLNE+4
PSJPRT2 ENP+16~, ENP+19*
PSJRPH EN+3*, EN+8, ENP+31, DONE+1!
PSJTM EN+2*, DONE+1!, NXTLNE+4
PSJWGN EN+2*, DONE+1!, NXTLNE+9
U EN+2, EN+3, ENP+14, ENP+19, ENP+21, NXTLNE+5, NXTLNE+9
VADM EN+1~
VADM(1 ENP+9
VADM(3 NXTLNE+4
VADM(4 NXTLNE+4
VADM(5 NXTLNE+5
VAIN EN+1~
VAIN(9 NXTLNE+5
X EN+3*, EN+4*, EN+7*, EN+9*, EN+11*, EN+15*, ENP+4*, ENP+5*, ENP+9, ENP+11*
, ENP+12*, ENP+14*, ENP+17*, ENP+19, DONE+1!
Y ENP+14*, ENP+17*, ENP+18, ENP+23*, ENP+24, DONE+1!, NXTLNE+1~, NXTLNE+6*, NXTLNE+8
Y1 ENP+24*, ENP+25, DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All