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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSIVUTL1

Package: Inpatient Medications

Routine: PSIVUTL1


Information

PSIVUTL1 ;BIR/MLM-IV UTILITIES ; 2/2/09 9:17am

Source Information

Source file <PSIVUTL1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 9 $$ENDTC^PSGMI  $$DOSES^PSIVCAL  ENHLP^PSIVORC1  GTDRG^PSIVORFA  GTDRG^PSIVORFB  ENI^PSIVSP  ($$CODES,GTOT)^PSIVUTL  $$ONE^PSJBCMA  
$$DRUGNAME^PSJLMUTL  
Kernel 1 $$FMDIFF^XLFDT  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Inpatient Medications 1 PSIVCAL  

Entry Points

Name Comments DBIA/ICR reference
DRGSC(Y,PSJSCT) ; Called to set DIC("S") when selecting orderable item.
IVDRGSC(Y) ; Set DIC("S") for IV additive/solution selection.
; Naked reference below refers to full reference in Y, which is either ^PS(52.6, or ^PS(52.7
ENU(Y) ;Get IV additive strength.
CODES(X,Y) ; Get name from code.
GTPCI(Y) ; Set up "work" area for provider comments.
WDTE(Y) ; Format and print date.
GTOT(DFN,ON) ; Get order type for display.
PIV(ON) ; Display IV orders.
SOL ;
PIVAD ; Print IV Additives.
PIV1 ; Print Sched type, start/stop dates, and status.
59 ; Validate the Infusion rate entered using IV Quick order code.
WRTDRG(X,L)
NAME(X,L,NAME,AD)
CNVTOM(RATE,TVOL) ; Convert volume to minutes
; Input:
; RATE - Infusion Rate
; TVOL - Volume being infused, EX: m100 (100 Milliliters) or l5 (5 Liters)
; Output:
; MINS - Minutes required to infuse volume
GETMIN(LIM,DFN,PSJORD,DAYS) ;

External References

Name Field # of Occurrence
^DIC GTPCI+1
$$ENDTC^PSGMI PIV1+1
$$DOSES^PSIVCAL GETMIN+17
ENHLP^PSIVORC1 59+4
GTDRG^PSIVORFA PIV+5
GTDRG^PSIVORFB PIV+4
ENI^PSIVSP 59+5
$$CODES^PSIVUTL ENU+1
GTOT^PSIVUTL PIV+4, PIV+5
$$ONE^PSJBCMA PIV+3
$$DRUGNAME^PSJLMUTL PIV+6
$$FMDIFF^XLFDT GETMIN+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?11,"Give: ",P("DO")," ",$P(P("MR"),U,2)," ",$S(P(9)]"":P(9),1:P(8))
  • Line Location: PIV+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SOL+4
Function Call: WRITE
  • Prompt: ?9,"in "
  • Condition for execution: DRG=1
  • Line Location: SOL+4
Function Call: WRITE
  • Prompt: ?9,NAME(X)
  • Line Location: PIVAD+3
Function Call: WRITE
  • Prompt: ?50,TYP,?53,P(2),?60,P(3),?67,P(17)
  • Line Location: PIV1+2
Function Call: WRITE
  • Prompt: ?50,TYP,?53,P(2),?63,P(3),?73,P(17)
  • Line Location: PIV1+3
Routine Call
  • DIC
  • Line Location:
    • GTPCI+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.45 - [#53.45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WDTE+2
^PS(50.7 - [#50.7] DRGSC+2
^PS(51.2 - [#51.2] PIV+7
^PS(52.6 - [#52.6] ENU+1
^PS(53.1 - [#53.1] PIV+5, PIV+7
^PS(55 - [#55] GTOT+2, GTOT+4, PIV+2, PIV+6
^PS(57.1 - [#57.1] 59+2, 59+3

Label References

Name Line Occurrences
$$CNVTOM GETMIN+8
59 59+4
NAME SOL+3, PIVAD+2
PIV1 PIV+8, SOL+5, PIVAD+3
PIVAD PIV+9

Naked Globals

Name Field # of Occurrence
^(0 59+3
^(2 PIV+5
^(8 PIV+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD NAME~, NAME+4, NAME+5
DAYS CNVTOM+6~, GETMIN~, GETMIN+16*, GETMIN+18*, GETMIN+19
DDLX GETMIN+1~, GETMIN+13*, GETMIN+14*, GETMIN+15, GETMIN+17*
DFN GTOT~, GTOT+2, GTOT+4, PIV+2, PIV+3, GETMIN~
DIC GTPCI+1~*
DIC(0 GTPCI+1*
DINUM GTPCI+1~*
DLAYGO GTPCI+1~*
>> DN PIV+6
DOSVOL GETMIN+9~*, GETMIN+11*, GETMIN+13
DRG PIV+1~, PIV+9*, SOL+2*, SOL+3, SOL+4, SOL+5, PIVAD+2, PIVAD+3
DRG("AD" PIV+9, SOL+5, PIVAD+2
DRG("SOL" SOL+2, SOL+3, 59+3*
DRGI GTOT+1~, GTOT+4*
DRGT GTOT+1~, GTOT+4*
DT DRGSC+3
DUR GETMIN+9~
DUZ GTPCI+1
F GETMIN+1~, GETMIN+3*, GETMIN+4, GETMIN+10, GETMIN+11, GETMIN+17
>> F1 59+4*
>> F2 59+4*
I 59+1~*
L WRTDRG~, WRTDRG+2, NAME~, NAME+6
LASTD GETMIN+16~, GETMIN+17*, GETMIN+18
LIM GETMIN~, GETMIN+2, GETMIN+5, GETMIN+8*, GETMIN+13, GETMIN+14, GETMIN+19*, GETMIN+20*, GETMIN+21
>> MIN GETMIN+8*
>> MINS CNVTOM+12*, CNVTOM+13
ML CNVTOM+6~
MLSHR CNVTOM+6~
NAME SOL+1~, SOL+3, PIVAD+1~, PIVAD+2, NAME~, NAME+3!
NAME( SOL+5, PIVAD+3
NAME(1 NAME+6*, NAME+7*
NAME(2 NAME+6*
ND DRGSC+1~, DRGSC+2*, DRGSC+3
NDI DRGSC+1~
NDU DRGSC+1~
OIX GETMIN+9~, GETMIN+17*
OK DRGSC+1~*, DRGSC+3*, DRGSC+4
ON GTOT~, GTOT+2, GTOT+4, PIV~, PIV+1, PIV+2, PIV+3, PIV+4, PIV+5, PIV+6
, PIV+7
ON55 PIV+1~, PIV+4*
P PIV+1~, GETMIN+17
P( PIV+2*, PIV1+1*, 59+1*
P("DO" PIV+6*, PIV+8
P("MR" PIV+7*, PIV+8
P("OT" PIV+4*, PIV+5
P("PD" PIV+6*, PIV+8
P(17 PIV+5*, PIV1+2, PIV1+3
P(2 PIV+3, PIV+5*, PIV1+2, PIV1+3, GETMIN+18
P(23 NAME+5
P(3 PIV+3, PIV+5*, PIV1+2, PIV1+3
P(4 PIV+4, PIV+5*, 59+2*, NAME+5
P(5 NAME+5
P(8 PIV+5*, PIV+8, 59+2*, 59+5*, NAME+5
P(9 PIV+3, PIV+5*, PIV+8, NAME+5
>> PSGP PIV+6
>> PSJEXTP PIV1+1, PIV1+2
>> PSJO PIV+6
PSJORD GETMIN~, GETMIN+3, GETMIN+4
PSJORIFN PIV+1~
>> PSJQO 59+2, 59+3
PSJSCT DRGSC~
RATE CNVTOM~, CNVTOM+8, CNVTOM+9*, CNVTOM+12, GETMIN+4~*, GETMIN+6, GETMIN+7*, GETMIN+8, GETMIN+9
SOL GETMIN+9~, GETMIN+10*
SOLVOL GETMIN+9~*, GETMIN+11*
STOP GETMIN+9~, GETMIN+16~*
TVOL CNVTOM~, CNVTOM+10*, CNVTOM+12
TYP PIV+1~*, PIV+3*, PIV1+2, PIV1+3
U DRGSC+3, ENU+1, CODES+1, GTOT+2, GTOT+4, PIV+2, PIV+5, PIV+7, PIV+8, 59+2
, WRTDRG+1, WRTDRG+2, NAME+4, NAME+6, NAME+7
X ENU+1~*, CODES~, CODES+1, GTPCI+1~*, GTOT+2*, GTOT+3, PIV+1~, PIV+2*, SOL+5*, PIVAD+3*
PIV1+1*, 59+4, 59+5, WRTDRG~, WRTDRG+1, WRTDRG+2, NAME~, NAME+4, NAME+6, NAME+7
, GETMIN+9~
Y DRGSC~, DRGSC+2, IVDRGSC~, IVDRGSC+2~*, IVDRGSC+3, ENU~, ENU+1*, ENU+2, CODES~, CODES+1*
, CODES+2, GTPCI~, GTPCI+2, WDTE~, WDTE+1*, WDTE+2*, WDTE+3, GTOT+1~, GTOT+3*, GTOT+4*
, GTOT+5, PIV+1~, PIV+2*, PIV+5*, PIV+7*, WRTDRG+1~*, WRTDRG+2, NAME+4~*, NAME+5*, NAME+6
, NAME+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All