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

Package: Inpatient Medications

Routine: PSIVUTL


Information

PSIVUTL ;BIR/MLM-IV UTILITIES ;29-May-2012 14:37;PLS

Source Information

Source file <PSIVUTL.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 10 $$ENDTC^PSGMI  TXT^PSGMUTL  DW^PSGS0  ENHLP^PSIVORC1  GTDRG^PSIVORFA  GTDRG^PSIVORFB  (EN,ENI)^PSIVSP  ($$CODES,GTOT)^PSIVUTL  
$$ONE^PSJBCMA  DRGDISP^PSJLMUT1  
VA Fileman 2 ^DIC  FIELD^DID  
IHS Changes To Pharmacy 1 $$SCREEN^APSPMULT  

Caller Graph

Caller Graph Total: 84

Package Total Caller Graph
Inpatient Medications 82 ADDITIVE  PSGAPIV  PSGCAPIV  PSGMIV  PSGMMIV  PSGMMIVC  PSGOE3  PSGOE6  
PSGOE82  PSGOE92  PSGOECS  PSGOEM  PSGOER  PSGS0  PSIV  PSIVCHK  
PSIVCHK1  PSIVEDRG  PSIVLB  PSIVLBL1  PSIVMAN1  PSIVOD  PSIVOPT2  PSIVORA  
PSIVORA1  PSIVORC  PSIVORC1  PSIVORE  PSIVORE2  PSIVORFA  PSIVORFB  PSIVORFE  
PSIVORH  PSIVORV1  PSIVORV2  PSIVPRO  PSIVQUI  PSIVSET  PSIVSTAT  PSIVUDL  
PSIVUTL  PSIVUTL1  PSIVVW1  PSIVWL1  PSJBCMA2  PSJCOM1  PSJCOMR  PSJDCHK  
PSJDSS  PSJEXP0  PSJH1  PSJHL10  PSJHL3  PSJHL4A  PSJLIFN  PSJLIFNI  
PSJLIORD  PSJLIPRF  PSJLIUTL  PSJLIVFD  PSJLIVMD  PSJLMPRI  PSJLMUT1  PSJMIV  
PSJMUTL  PSJO1  PSJOE0  PSJOEEW  PSJORMA2  PSJORP2  PSJORPOE  PSJORRE  
PSJORRE1  PSJORRN  PSJORRN1  PSJORRO  PSJPDV1  PSJPXRM1  PSJQPR  QUICK CODE  
^PS(57.1  SOLUTION  
Pharmacy Data Management 2 PSSGS0  PSSGSGUI  

Entry Points

Name Comments DBIA/ICR reference
PIV1 ; Print Sched type, start/stop dates, and status.
WDTE(Y) ; Format and print date.
PIVAD ; Print IV Additives.
59 ; Validate the Infusion rate entered using IV Quick order code.
PIV(ON) ; Display IV orders.
CODES(PSJCD,PSJF,PSJFLD) ; Get name from code.
; PSJF = one of following files: ^PS(55, ^PS(53.1, ^PS(52.6
INTERVAL(IVAR) ;
GTPCI(Y) ; Set up "work" area for provider comments.
WRTDRG(X,L) ; Format and print drug name, strength and bottle no.
CODES1(PSJCD,PSJF,PSJFLD) ;Check to see if code is valid.
; PSJF = one of following files: ^PS(55, ^PS(53.1, ^PS(52.6
DRGSC(Y,PSJSCT) ; Called to set DIC("S") when selecting Orderable Items.
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
NAME(X,L,MARX,AD) ; Format Additive display.
CODES2(PSJF,PSJFLD) ;Get field name
; PSJF = one of following files: ^PS(55, ^PS(53.1, ^PS(52.6
DOW(SCHED) ;
  • ICR #4580
    • Status: Active
    • Usage: Private
    SOL ;
    ENU(Y) ;Get IV additive strength.
    GTOT(Y) ; Get order type & protocol

    External References

    Name Field # of Occurrence
    $$SCREEN^APSPMULT DRGSC+6
    ^DIC GTPCI+1
    FIELD^DID CODES+2, CODES1+2, CODES2+2
    $$ENDTC^PSGMI PIV1+1
    TXT^PSGMUTL NAME+9
    DW^PSGS0 DOW+4
    ENHLP^PSIVORC1 59+4
    GTDRG^PSIVORFA PIV+8, PIV+9
    GTDRG^PSIVORFB PIV+4
    EN^PSIVSP INTERVAL+2
    ENI^PSIVSP 59+5
    $$CODES^PSIVUTL ENU+1
    GTOT^PSIVUTL PIV+4, PIV+8, PIV+9
    $$ONE^PSJBCMA PIV+3
    DRGDISP^PSJLMUT1 PIV+10

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: "->"
    • Line Location: PIV+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: PIV+8
    Function Call: WRITE
    • Prompt: @($S(PSIVX=1:"?9",1:"!?11")),MARX(PSIVX)
    • Line Location: PIV+11
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: (DRGX'=1!(PSGX'=1))
    • Line Location: PIVAD+3
    Function Call: WRITE
    • Prompt: ?9,NAME(PSGX)
    • 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.1 - [#51.1] DOW+5, DOW+8
    ^PS(52.6 - [#52.6] ENU+1
    ^PS(53.1 - [#53.1] PIV+7, PIV+8, PIV+9
    ^PS(55 - [#55] PIV+2, PIV+5, PIV+6
    ^PS(57.1 - [#57.1] 59+2, 59+3
    ^PSDRUG("ASP" DRGSC+5

    Label References

    Name Line Occurrences
    59 59+4
    NAME SOL+3, PIVAD+2
    PIV PIV+8
    PIV1 PIV+11, SOL+5, PIVAD+3
    PIVAD PIV+12

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AD NAME~, NAME+3, NAME+5, NAME+9
    >> DFN PIV+2, PIV+3, PIV+5, PIV+6
    DIC GTPCI+1~*
    DIC(0 GTPCI+1*
    DINUM GTPCI+1~*
    DLAYGO GTPCI+1~*
    DLOOP DRGSC+5~*, DRGSC+6
    DRG PIV+1~
    DRG( GTOT+2
    DRG("AD" PIV+12, SOL+4, SOL+5, PIVAD+2
    DRG("SOL" SOL+2, SOL+3, 59+3*, NAME+5
    >> DRGI GTOT+2*
    >> DRGT GTOT+2*
    DRGX PIV+12~*, SOL+2*, SOL+3, SOL+4, SOL+5, PIVAD+2, PIVAD+3, NAME+7
    DT DRGSC+4
    DUZ GTPCI+1
    >> F1 59+4*
    >> F2 59+4*
    I 59+1~*
    IVAR INTERVAL~, INTERVAL+1
    IVAR(15 INTERVAL+2*, INTERVAL+3
    L WRTDRG~, WRTDRG+2, NAME~, NAME+9
    MARX PIV+10~, NAME~, NAME+3!
    MARX( PIV+11
    MARX(1 NAME+10*
    MARX(2 NAME+9*
    NAME SOL+1~, SOL+3, PIVAD+1~, PIVAD+2
    NAME( SOL+5, PIVAD+3
    ND DRGSC+1~, DRGSC+2*, DRGSC+4
    NDI DRGSC+1~
    NDU DRGSC+1~
    O PIV+7~*, PIV+8
    OK DRGSC+1~*, DRGSC+4*, DRGSC+5, DRGSC+6*, DRGSC+7
    ON PIV~, PIV+1, PIV+2, PIV+3, PIV+4, PIV+5, PIV+6, PIV+7, PIV+9, PIV+10
    ON55 PIV+1~, PIV+4*
    P PIV+1~, INTERVAL+1~*
    P( PIV+2*, PIV1+1*, 59+1*
    P("OT" GTOT+1*, GTOT+2*, PIV+4*, PIV+9
    P(15 INTERVAL+2
    P(17 PIV+8*, PIV+9*, PIV1+2, PIV1+3
    P(2 PIV+3, PIV+8*, PIV+9*, PIV1+2, PIV1+3
    P(23 NAME+6, NAME+7
    P(3 PIV+3, PIV+8*, PIV+9*, PIV1+2, PIV1+3
    P(4 PIV+4, PIV+8*, PIV+9*, 59+2*, NAME+6, NAME+7
    P(5 NAME+6, NAME+7
    P(8 PIV+8*, PIV+9*, 59+2*, 59+5*, NAME+6, NAME+7
    P(9 PIV+3, PIV+8*, PIV+9*, NAME+6, NAME+7, INTERVAL+1
    P9 DOW+2~*, DOW+5*, DOW+6, DOW+8*, DOW+9
    PSGOES INTERVAL+1~*
    >> PSGP PIV+10
    PSGX PIVAD+1~, PIVAD+3*
    PSIVX PIV+10~, PIV+11*, DOW+2~*, DOW+5*, DOW+6*, DOW+7, DOW+8*, DOW+9*, DOW+10
    PSJCD CODES~, CODES+4, CODES1~, CODES1+3
    PSJDD CODES+3!, CODES1+3!, CODES1+4!
    PSJDD("LABEL" CODES2+3
    PSJDD("POINTER" CODES+3, CODES1+3
    >> PSJEXTP PIV1+1, PIV1+2
    PSJF CODES~, CODES+2, CODES1~, CODES1+2, CODES2~, CODES2+2
    PSJFLD CODES~, CODES+2, CODES1~, CODES1+2, CODES2~, CODES2+2
    >> PSJL NAME+6
    PSJORIFN PIV+1~
    >> PSJQO 59+2, 59+3
    PSJSCT DRGSC~
    >> PSJSYSU PIV+6
    SCHED DOW~, DOW+1, DOW+2, DOW+4, DOW+5, DOW+8
    TYP PIV+1~*, PIV+3*, PIV1+2, PIV1+3
    U DRGSC+4, ENU+1, GTOT+2, PIV+2, PIV+5, PIV+6, PIV+8, PIV+9, 59+2, WRTDRG+1
    , WRTDRG+2, NAME+3, NAME+9, NAME+10
    X ENU+1~*, GTPCI+1~*, PIV+1~, PIV+2*, PIV+6*, SOL+5*, PIV1+1*, 59+4, 59+5, WRTDRG~
    , WRTDRG+1, WRTDRG+2, NAME~, NAME+3, NAME+9, NAME+10, INTERVAL+1~*, DOW+2~, DOW+4*, DOW+5*
    , DOW+6, DOW+8*, DOW+9
    Y DRGSC~, DRGSC+2, DRGSC+5, IVDRGSC~, IVDRGSC+2~*, IVDRGSC+3*, IVDRGSC+4, ENU~, ENU+1*, ENU+2
    , CODES+3*, CODES+4*, CODES+5, GTPCI~, GTPCI+2, WDTE~, WDTE+1*, WDTE+2*, WDTE+3, GTOT~
    , GTOT+1, PIV+1~, PIV+2*, PIV+8*, PIV+9*, WRTDRG+1~*, WRTDRG+2, NAME+3~*, NAME+6*, NAME+7*
    , NAME+9, NAME+10
    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