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 |  Local Variables |  All
Print Page as PDF
Routine: PSGMIV

Package: Inpatient Medications

Routine: PSGMIV


Information

PSGMIV ;BIR/MV-IV ORDER FOR THE 24 HOUR MAR. ;03-Apr-2012 10:34;PLS

Source Information

Source file <PSGMIV.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 12 SPN^PSGMAR0  (BOT,HEADER,TMSTR,TS)^PSGMAR3  $$ENDTC1^PSGMI  ONHOLD^PSGMMAR2  INITOPI^PSGMMIVC  ENIV^PSGPL0  EN^PSGS0  GT531^PSIVORFA  
GT55^PSIVORFB  NAME^PSIVUTL  $$ONE^PSJBCMA  NAMENEED^PSJMUTL  
VA Fileman 1 C^%DTC  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 5 PSGMAR0  PSGMAR2  PSGMMIVC  PSIVUDL  PSJORMA2  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC IV+22
SPN^PSGMAR0 IV+12, IV+26, IV+29
BOT^PSGMAR3 PRTIV+2, L+5
HEADER^PSGMAR3 PRTIV+2, L+5
TMSTR^PSGMAR3 PRTIV+14, PRTIV+18, PRTIV+19
TS^PSGMAR3 PRT+4
$$ENDTC1^PSGMI PRT+5
ONHOLD^PSGMMAR2 PRTIV+1
INITOPI^PSGMMIVC PRT+8
ENIV^PSGPL0 SETL0+3
EN^PSGS0 ORSET+2
GT531^PSIVORFA PRT+3
GT55^PSIVORFB IV+1, PRT+2
NAME^PSIVUTL PRTIV+14, PRTIV+17
$$ONE^PSJBCMA IV+4, PRT+6
NAMENEED^PSJMUTL LNNEED+5

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: !
  • Line Location: PRTIV+27
Function Call: WRITE
  • Prompt: Y1," "
  • Line Location: PRTIV+33
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+34
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTIV+34
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+35
Function Call: WRITE
  • Prompt: !
  • Condition for execution: L#6=0
  • Line Location: PRTIV+35
Function Call: WRITE
  • Prompt: ?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+36
Function Call: WRITE
  • Prompt: !?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+37
Function Call: WRITE
  • Prompt: !?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+39
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTIV+40
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTIV+41
Function Call: WRITE
  • Prompt: ?29,"RPH: ",PSGLRPH,?38,"RN: ",PSGLRN,?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: PRTIV+42
Function Call: WRITE
  • Prompt: !?7,LN2
  • Condition for execution: PSGMAROC<6
  • Line Location: PRTIV+42
Function Call: WRITE
  • Prompt: !,"See next label for continuation",?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: L+3
Function Call: WRITE
  • Prompt: !?7,LN2
  • Condition for execution: PSGMAROC<6
  • Line Location: L+3
Function Call: WRITE
  • Prompt: !,"See next label for continuation",?48,PSGL,$G(TS(L)),?55,"|"
  • Line Location: L+4
Function Call: WRITE
  • Prompt: !?7,LN2,!
  • Condition for execution: PSGMAROC<6
  • Line Location: L+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.7 - [#52.7] PRTIV+19
^PS(55 - [#55] START+2, IV+10, RPHINIT+1
^TMP($J IV+10, IV+15*, IV+16*, IV+17*, IV+34*, IV+36*
^VA(200 - [#200] DEFINIT+1
^XTMP( IV+23*, IV+25*, IV+28*

Label References

Name Line Occurrences
$$DEFINIT RPHINIT+2
IV START+2
L PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+23, PRTIV+26, PRTIV+34, PRTIV+37
LNNEED PRT+10
ORSET PRT+4
PRTIV PRT+10
SETL0 ORSET+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% IV+22!
%H IV+22!
%T IV+22!
A IV+9~, IV+10*
CD ORSET+6!
>> DAO PRT+2
>> DFN IV+1*, IV+4, PRT+2*, PRT+3, PRT+6
DRG IV+1!, IV+8, PRT+1!
DRG("AD" IV+8, PRTIV+14, PRTIV+21
DRG("SOL" IV+8, PRTIV+15, PRTIV+17, PRTIV+19, PRTIV+21
DT IV+22, IV+23
>> FD ORSET+2*
HCD ORSET+6!
HM ORSET+6!
I ORSET+6!
J ORSET+6!
>> L PRTIV+12*, PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+20, PRTIV+21*, PRTIV+22*, PRTIV+23, PRTIV+25*, PRTIV+32
, PRTIV+34, PRTIV+35*, PRTIV+36, PRTIV+37*, PRTIV+38*, PRTIV+39*, PRTIV+40, PRTIV+41, PRTIV+42, L+1*
, L+4*
LN PRT+1~, LNNEED+8*, PRTIV+2, L+5
>> LN2 PRTIV+42, L+4
M ORSET+6!
MID ORSET+6!
MN ORSET+6!, SETL0+2*
>> MSG1 L+5*
NAME PRTIV+13~, PRTIV+14, PRTIV+17
NAME( PRTIV+14, PRTIV+17, PRTIV+18
NAMENEED PRT+9~*, LNNEED+5*, LNNEED+7
ND ORSET+6!, SETL0+2*
ND1 ORSET+6!, SETL0+2*
NEED PRT+9~, LNNEED+5
OD ORSET+6!
>> ON START+1*, START+2*, IV+4, IV+8, IV+10, PRT+2*, PRT+3, PRT+6, PRTIV+6, PRTIV+10
, RPHINIT+1
ON55 IV+1~, PRT+1~
>> ONHOLD PRTIV+7
P IV+1!, PRT+1!
P( PRT+5*
P("LOG" PRTIV+5
P("MR" IV+3, PRTIV+20
P("OPI" LNNEED+6, PRTIV+22, PRTIV+25, PRTIV+29, PRTIV+30, PRTIV+33, PRTIV+40, PRTIV+41
P(11 PRT+4, ORSET+3, SETL0+2
P(2 IV+2, IV+4, PRT+6, PRTIV+8, ORSET+2, ORSET+3, SETL0+2
P(3 IV+4, PRT+6, PRTIV+8, ORSET+2, ORSET+3, SETL0+2
P(4 LNNEED+6, PRTIV+22, PRTIV+23, SETL0+2
P(8 PRTIV+20
P(9 IV+4, IV+5, PRT+4, PRT+6, PRTIV+20, ORSET+1, ORSET+2, ORSET+3, SETL0+2
PLSD ORSET+6!, SETL0+2*
>> PN PRT+2
>> PPN IV+15, IV+16, IV+17, IV+25, IV+28, IV+34, IV+36
>> PSGCLNC IV+17
PSGD ORSET+6!
PSGDEM1 IV+20~*, IV+25, IV+28, IV+30
>> PSGINCL IV+24, IV+33
>> PSGINCLG IV+27, IV+35
>> PSGINWD IV+17
>> PSGINWDG IV+16
PSGL PRTIV+3~*, PRTIV+4, PRTIV+12, PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+20, PRTIV+21, PRTIV+23, PRTIV+34
, PRTIV+35, PRTIV+36, PRTIV+37, PRTIV+39, PRTIV+42, L+4
>> PSGLFFD PRT+7*
>> PSGLRN PRTIV+42
>> PSGLRPH PRTIV+42
PSGMAR ORSET+4!, SETL0+1!
PSGMAR( ORSET+4
>> PSGMARED START+2*
>> PSGMAROC PRTIV+2, PRTIV+4*, PRTIV+42, L+4*, L+5*
PSGMARWC IV+6~, IV+7*, IV+38
>> PSGMARWN IV+7, IV+10*, IV+15, IV+16, IV+17, IV+24, IV+25, IV+27, IV+28, IV+33
, IV+34, IV+35, IV+36, IV+38*
>> PSGMFOR ORSET+2*
>> PSGMSORT IV+15, IV+16, IV+17, IV+25, IV+28, IV+34, IV+36
>> PSGOES ORSET+2*
>> PSGP START+2, IV+1, IV+10, RPHINIT+1
>> PSGP(0 PRTIV+11
>> PSGPLC ORSET+3*, SETL0+1*, SETL0+2*
>> PSGPLF IV+2, PRT+7, ORSET+2, ORSET+3
>> PSGPLS START+2, ORSET+3
>> PSGRBPPN IV+24, IV+27, IV+33, IV+35
>> PSGREP IV+20, IV+21*, IV+23, IV+25, IV+28
>> PSGS0XT ORSET+2
>> PSGSS IV+15, IV+16, IV+17, IV+24, IV+27, IV+33, IV+35
>> PSGST PRT+6*, PRTIV+14, PRTIV+18, PRTIV+19
PSIVX PRTIV+13~, PRTIV+14*, PRTIV+17*, PRTIV+18, PRTIV+19
PSJLABEL IV+1~*, PRT+1~*
>> PSJPRB IV+25, IV+28, IV+34, IV+36
PSJPRT2 PRTIV+16~, PRTIV+19*
>> PSSN PRTIV+11
>> PST START+2, IV+3, ORSET+1, ORSET+3, ORSET+4
>> Q ORSET+4*
QD1 ORSET+6!
QD2 ORSET+6!
QQ ORSET+6!
>> QST IV+4*, IV+5*, IV+15, IV+16, IV+17, IV+25, IV+28, IV+34, IV+36
>> QX ORSET+4*
RPH RPHINIT~, RPHINIT+1*, RPHINIT+2*, RPHINIT+3*, DEFINIT+1*, DEFINIT+2*
>> SD ORSET+2*
ST ORSET+6!, SETL0+2*
>> SUB1 IV+10
>> SUB2 IV+10
>> T ORSET+2*, ORSET+3, SETL0+2
>> TM IV+10, IV+25, IV+28, IV+34, IV+36
>> TMSTR PRT+4*, ORSET+5*
TS PRT+1!, PRT+4*, LNNEED+8, PRTIV+25, PRTIV+29, PRTIV+35, PRTIV+36, PRTIV+37, ORSET+6!, SETL0+2*
TS( PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+20, PRTIV+21, PRTIV+23, PRTIV+34, PRTIV+35, PRTIV+36, PRTIV+37
, PRTIV+39, PRTIV+42, L+4
TS(1 PRTIV+4
TS(2 PRTIV+12
U IV+3, IV+8, IV+23, PRT+2, PRTIV+19, PRTIV+20, RPHINIT+1, DEFINIT+1, DEFINIT+2
UD ORSET+6!
WDT ORSET+6!
WS ORSET+6!
WS1 ORSET+6!
X IV+1~, IV+3*, IV+8*, IV+11~, IV+15, IV+16, IV+17, IV+20, IV+23, IV+30*
, IV+34, IV+36, PRT+5*, PRT+9~, LNNEED+5*, LNNEED+6*, LNNEED+7*, LNNEED+8, L~, L+1
, ORSET+2*, ORSET+3*, ORSET+4*, ORSET+5, ORSET+6!, DEFINIT~, DEFINIT+1*, DEFINIT+2*
X1 IV+11~, IV+22*, ORSET+6!
X2 IV+22*, ORSET+6!
>> XTYPE IV+3, IV+5
Y IV+11~, PRTIV+14*, PRTIV+17*, PRTIV+18, PRTIV+33*
>> Y1 PRTIV+33*, PRTIV+34
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All