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. ;25 Nov 98 / 9:07 AM

Source Information

Source file <PSGMIV.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Inpatient Medications 14 SPN^PSGMAR0  (BOT,HEADER,TMSTR,TS)^PSGMAR3  $$ENDTC1^PSGMI  ONHOLD^PSGMMAR2  INITOPI^PSGMMIVC  TXT^PSGMUTL  ENIV^PSGPL0  EN^PSGS0  
GT531^PSIVORFA  GT55^PSIVORFB  NAME^PSIVUTL  $$ONE^PSJBCMA  $$GETSIOPI^PSJBCMA5  NAMENEED^PSJMUTL  

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

Package Total Caller Graph
Inpatient Medications 6 PSGMAR0  PSGMAR2  PSGMMIV  PSGMMIVC  PSIVUDL  PSJORMA2  

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)

External References

Name Field # of Occurrence
SPN^PSGMAR0 IV+12
BOT^PSGMAR3 PRTIV+2, L+3
HEADER^PSGMAR3 PRTIV+2, L+3
TMSTR^PSGMAR3 PRTIV+14, PRTIV+18, PRTIV+19
TS^PSGMAR3 PRT+4
$$ENDTC1^PSGMI PRT+5
ONHOLD^PSGMMAR2 PRTIV+1
INITOPI^PSGMMIVC PRT+8
TXT^PSGMUTL OPI+4, OPI+6
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
$$GETSIOPI^PSJBCMA5 OPI+1
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: 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.7 - [#52.7] PRTIV+19
^PS(53.1 - [#53.1] OPI+5, OPI+6
^PS(55 - [#55] START+2, IV+10, LNNEED+6, OPI+3, OPI+4, RPHINIT+1
^TMP($J IV+10, IV+14*, IV+15*, IV+16*
^VA(200 - [#200] DEFINIT+1

Label References

Name Line Occurrences
$$DEFINIT RPHINIT+2
$$OPI PRTIV+27
IV START+2
L PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+23, PRTIV+25, PRTIV+30, PRTIV+33, OPI+9
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
A IV+9~, IV+10*
CD ORSET+6!
>> DAO PRT+2
DFN IV+1*, IV+4, PRT+2*, PRT+3, PRT+6, LNNEED+6, OPI~, OPI+1, OPI+3, OPI+4
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
>> FD ORSET+2*
HCD ORSET+6!
HM ORSET+6!
I OPI+2~, OPI+3*, OPI+5*, OPI+7*, OPI+9, ORSET+6!
II OPI+2~, OPI+4*, OPI+6*
J ORSET+6!
>> L PRTIV+12*, PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+20, PRTIV+21*, PRTIV+22*, PRTIV+23, PRTIV+24*, PRTIV+28
, PRTIV+30, PRTIV+31*, PRTIV+32, PRTIV+33*, PRTIV+34*, PRTIV+35*, PRTIV+36, PRTIV+37, PRTIV+38, OPI+8
, OPI+9, L+1*, L+2*
LAST OPI+2~*, OPI+4*, OPI+6*
LN PRT+1~, LNNEED+9*, PRTIV+2, L+3
>> LN2 PRTIV+38, L+2
M ORSET+6!
MARX OPI+2!, OPI+7!*
MARX( OPI+4, OPI+6, OPI+7, OPI+9
MARXTXT OPI+2~, OPI+4*, OPI+6*
MID ORSET+6!
MN ORSET+6!, SETL0+2*
>> MSG1 L+3*
NAME PRTIV+13~, PRTIV+14, PRTIV+17
NAME( PRTIV+14, PRTIV+17, PRTIV+18
NAMENEED PRT+9~*, LNNEED+5*, LNNEED+8
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~, LNNEED+6, PRTIV+27
>> ONHOLD PRTIV+7
OPILAST LNNEED+6~*
OPILEN LNNEED+6~*, LNNEED+7
OPIPRINT OPI~, OPI+7
OPITEXT OPI~, OPI+10*
ORDER OPI~, OPI+1, OPI+3, OPI+4, OPI+5, OPI+6
P IV+1!, PRT+1!
P( PRT+5*
P("LOG" PRTIV+5
P("MR" IV+3, PRTIV+20
P("OPI" LNNEED+6, LNNEED+7, PRTIV+22, PRTIV+24, PRTIV+26, PRTIV+27, PRTIV+29, PRTIV+36, PRTIV+37
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+7, 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+14, IV+15, IV+16
PSGD ORSET+6!
PSGL PRTIV+3~*, PRTIV+4, PRTIV+12, PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+20, PRTIV+21, PRTIV+23, PRTIV+30
, PRTIV+31, PRTIV+32, PRTIV+33, PRTIV+35, PRTIV+38, OPI+2*, OPI+9, L+2
>> PSGLFFD PRT+7*
>> PSGLRN PRTIV+38
>> PSGLRPH PRTIV+38
PSGMAR ORSET+4!, SETL0+1!
PSGMAR( ORSET+4
>> PSGMARED START+2*
>> PSGMAROC PRTIV+2, PRTIV+4*, PRTIV+38, L+2*, L+3*
PSGMARWC IV+6~, IV+7*, IV+17
>> PSGMARWN IV+7, IV+10*, IV+14, IV+15, IV+16, IV+17*
>> PSGMFOR ORSET+2*
>> PSGMSORT IV+14, IV+15, IV+16
>> PSGOES ORSET+2*
>> PSGP START+2, IV+1, IV+10, PRTIV+27, 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+15, IV+16
>> PSGS0XT ORSET+2
>> PSGSS IV+14
>> 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+15, IV+16
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+14, IV+15, IV+16
>> 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+15, IV+16
TMPMARX OPI+2~*, OPI+7, OPI+10
TMPMARX( OPI+4*, OPI+6*
TMPMARX(" " OPI+4, OPI+6
>> TMSTR PRT+4*, ORSET+5*
TS PRT+1!, PRT+4*, LNNEED+9, PRTIV+24, PRTIV+26, PRTIV+31, PRTIV+32, PRTIV+33, ORSET+6!, SETL0+2*
TS( PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+20, PRTIV+21, PRTIV+23, PRTIV+30, PRTIV+31, PRTIV+32, PRTIV+33
, PRTIV+35, PRTIV+38, OPI+9, L+2
TS(1 PRTIV+4
TS(2 PRTIV+12
TXT OPI+2~
TXTLN OPI+1~*, OPI+2~, OPI+3*, OPI+4, OPI+5*, OPI+6
U IV+3, IV+8, 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+14, IV+15, IV+16, PRT+5*, PRT+9~, LNNEED+5*
, LNNEED+7*, LNNEED+8*, LNNEED+9, L~, L+1, ORSET+2*, ORSET+3*, ORSET+4*, ORSET+5, ORSET+6!
, DEFINIT~, DEFINIT+1*, DEFINIT+2*
X1 IV+11~, ORSET+6!
X2 ORSET+6!
>> XTYPE IV+3, IV+5
Y IV+11~, PRTIV+14*, PRTIV+17*, PRTIV+18, PRTIV+29*, OPI+2~
>> Y1 PRTIV+29*, PRTIV+30, OPI+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All