Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSIVUDL

Package: Inpatient Medications

Routine: PSIVUDL


Information

PSIVUDL ;BIR/PR,MLM-IV ORDER INFORMATION FOR UNIT DOSE LABEL ;25 Nov 98 / 9:12 AM

Source Information

Source file <PSIVUDL.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13),?1,$E(P("LOG"),1,5)," |",X,?36,"(",$E(VADM(1),1),$E(VADM(2),6,9),")",?42,"|",$G(PSJLAT(1)),?52,VADM(1),?88,$J($S(PSJLRB]"":PSJLRB,1:"*NF*"),12)
  • Line Location: ENP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP+11
Function Call: WRITE
  • Prompt: ?1,NAME(Y)
  • Line Location: ENP+11
Function Call: WRITE
  • Prompt: ?4,NAME(Y)
  • Line Location: ENP+12
Function Call: WRITE
  • Prompt: ?4,NAME(Y)
  • Line Location: ENP+15
Function Call: WRITE
  • Prompt: !?7,PSJPRT2
  • Line Location: ENP+16
Function Call: WRITE
  • Prompt: "*CAUTION-CHEMOTHERAPY*"
  • Line Location: ENP+19
Function Call: WRITE
  • Prompt: ?1,""
  • Line Location: ENP+20
Function Call: WRITE
  • Prompt: ?1
  • Line Location: ENP+21
Function Call: WRITE
  • Prompt: ?1,PSJCONT
  • Line Location: ENP+25
Function Call: WRITE
  • Prompt: ?1
  • Line Location: ENP+25
Function Call: WRITE
  • Prompt: ?24,"RPH:",PSJRPH,?33," RN:",PSGLRN
  • Line Location: ENP+28
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP+28
Function Call: WRITE
  • Prompt: ?24,"RPH:",$S(PSJRPH]"":PSJRPH,1:"_____"),?33," RN:_____"
  • Line Location: ENP+29
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP+29
Function Call: WRITE
  • Prompt: ?42,PSGLST
  • Condition for execution: PSJCNT=2
  • Line Location: NXTLNE+2
Function Call: WRITE
  • Prompt: ?43,"|",$G(PSJLAT(PSJCNT))
  • Line Location: NXTLNE+2
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+2
Function Call: WRITE
  • Prompt: ?52,$S(VADM(5)]"":$P(VADM(5),U,2),1:"____"),?65,"DX: ",VAIN(9)
  • Line Location: NXTLNE+3
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+7
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: NXTLNE+8
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: NXTLNE+8
Function Call: WRITE
  • Prompt: ?1,PSJCONT
  • Line Location: NXTLNE+9
Info |  Source |  Entry Points |  Interaction Calls