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

Package: Inpatient Medications

Routine: PSGMIV


Information

PSGMIV ;BIR/MV-IV ORDER FOR THE 24 HOUR MAR. ;25 Nov 98 / 9:07 AM

Source Information

Source file <PSGMIV.m>

Entry Points

Name Comments DBIA/ICR reference
START ;*** Read IV orders
IV ;*** Sort IV orders for 24 Hrs MAR.
PRT ;*** Print IV orders.
LNNEED ;*** Find lines needed per label.
OS ; order record set
PRTIV ;*** Print IV order on MAR
OPI(DFN,ORDER,OPITEXT,OPIPRINT) ; Retrieve, format, and print Other Print Info
L(X) ;***Check to see if a new block is needed.
ORSET ; order record set
SETL0 ;*** Set variable to use in ^PSGPL0 to calculate admin time.
RPHINIT(RPH) ; Find initial for the person who completed the IV order.
DEFINIT(X)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?6,"|",?19,"|",?48,PSGL,$G(TS(1)),?55,"|"
  • Line Location: PRTIV+4
Function Call: WRITE
  • Prompt: !,$E(P("LOG"),1,5)," |"
  • Line Location: PRTIV+5
Function Call: WRITE
  • Prompt: "O N H O L D"
  • Line Location: PRTIV+7
Function Call: WRITE
  • Prompt: $E(P(2),1,5)_$E(P(2),9,14)," |",P(3)
  • Line Location: PRTIV+8
Function Call: WRITE
  • Prompt: ?39,"(",$E(PSGP(0))_$E(PSSN,8,12)_")"
  • Line Location: PRTIV+11
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(2)),?55,"|"
  • Line Location: PRTIV+12
Function Call: WRITE
  • Prompt: !,NAME(Y)
  • Line Location: PRTIV+14
Function Call: WRITE
  • Prompt: ?47,PSGST
  • Condition for execution: L=3
  • Line Location: PRTIV+14
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: (Y>1!(PSIVX>1))
  • Line Location: PRTIV+18
Function Call: WRITE
  • Prompt: ?4,NAME(Y)
  • Line Location: PRTIV+18
Function Call: WRITE
  • Prompt: ?47,PSGST
  • Condition for execution: L=3
  • Line Location: PRTIV+18
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+18
Function Call: WRITE
  • Prompt: !?7,PSJPRT2
  • Line Location: PRTIV+19
Function Call: WRITE
  • Prompt: ?47,PSGST
  • Condition for execution: L=3
  • Line Location: PRTIV+19
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+19
Function Call: WRITE
  • Prompt: !,$P(P("MR"),U,2)," ",P(9)," ",P(8)
  • Line Location: PRTIV+20
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+20
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+20
Function Call: WRITE
  • Prompt: !?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+21
Function Call: WRITE
  • Prompt: !,"*CAUTION-CHEMOTHERAPY*"
  • Line Location: PRTIV+22
Function Call: WRITE
  • Prompt: !,"*CAUTION-CHEMOTHERAPY*",?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+23
Function Call: WRITE
  • Prompt: Y1," "
  • Line Location: PRTIV+29
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+30
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTIV+30
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+31
Function Call: WRITE
  • Prompt: !
  • Condition for execution: L#6=0
  • Line Location: PRTIV+31
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+32
Function Call: WRITE
  • Prompt: !?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+33
Function Call: WRITE
  • Prompt: !?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+35
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTIV+36
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTIV+37
Function Call: WRITE
  • Prompt: ?29,"RPH: ",PSGLRPH,?38,"RN: ",PSGLRN,?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+38
Function Call: WRITE
  • Prompt: !?7,LN2
  • Condition for execution: PSGMAROC<6
  • Line Location: PRTIV+38
Function Call: WRITE
  • Prompt: Y1," ",?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: OPI+9
Function Call: WRITE
  • Prompt: !
  • Line Location: OPI+9
Function Call: WRITE
  • Prompt: !,"See next label for continuation",?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !?7,LN2
  • Condition for execution: PSGMAROC<6
  • Line Location: L+2
Info |  Source |  Entry Points |  Interaction Calls