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 ;Jul 05, 2018@08:59

Source Information

Source file <PSIVUTL.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 11 ($$ENDTC,$$ENDTC2)^PSGMI  TXT^PSGMUTL  DW^PSGS0  EXPINF^PSIVEDT1  ENHLP^PSIVORC1  GTDRG^PSIVORFA  GTDRG^PSIVORFB  (EN,ENI)^PSIVSP  
($$CODES,GTOT)^PSIVUTL  $$ONE^PSJBCMA  DRGDISP^PSJLMUT1  
VA FileMan 2 ^DIC  FIELD^DID  

Caller Graph

Caller Graph Total: 90

Package Total Caller Graph
Inpatient Medications 87 ADDITIVE  PSGAPIV  PSGCAPIV  PSGMIV  PSGMMIV  PSGMMIVC  PSGOE3  PSGOE4  
PSGOE6  PSGOE8  PSGOE82  PSGOE9  PSGOE92  PSGOECS  PSGOEM  PSGOER  
PSGS0  PSIV  PSIVCAL  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  PSJCLOR3  PSJCOM1  PSJCOMR  PSJDCHK  PSJDSS  PSJEXP0  PSJH1  
PSJHL10  PSJHL3  PSJHL4A  PSJLIFN  PSJLIFNI  PSJLIORD  PSJLIPRF  PSJLIUTL  
PSJLIVFD  PSJLIVMD  PSJLMPRI  PSJLMUT1  PSJMISC2  PSJMIV  PSJMUTL  PSJO1  
PSJOE0  PSJOEEW  PSJORMA2  PSJORP2  PSJORPOE  PSJORRE  PSJORRE1  PSJORRN  
PSJORRN1  PSJORRO  PSJPDV1  PSJPXRM1  PSJQPR  ^PS(57.1  SOLUTION  
Pharmacy Data Management 3 PSSGS0  PSSGSGUI  QUICK CODE  

Entry Points

Name Comments DBIA/ICR reference
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
ENU(Y) ;Get IV additive strength.
CODES(PSJCD,PSJF,PSJFLD) ; Get name from code.
; PSJF = one of following files: ^PS(55, ^PS(53.1, ^PS(52.6
CODES1(PSJCD,PSJF,PSJFLD)
CODES2(PSJF,PSJFLD)
GTPCI(Y) ; Set up "work" area for provider comments.
WDTE(Y) ; Format and print date.
GTOT(Y) ; Get order type & protocol
PIV(ON) ; Display IV orders.
SOL ;
PIVAD ; Print IV Additives.
PIV1 ; Print Sched type, start/stop dates, and status.
PIV2 ; Print Sched type, start/stop dates with four digit year, and status. ;#373
RENEWDT ; 373 - Put renewal date on 2nd line instead of 1st.
59 ; Validate the Infusion rate entered using IV Quick order code.
WRTDRG(X,L)
NAME(X,L,MARX,AD)
INTERVAL(IVAR) ;
DOW(SCHED) ;
  • ICR #4580
    • Status: Active
    • Usage: Private
    GETP(ON) ; Populate P array with data from order ON
    GTNUMLBL(DFN,ON) ; Get Number of Labels Per Day

    External References

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

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: "->"
    • Line Location: PIV+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: PIV+9
    Function Call: WRITE
    • Prompt: @($S(PSIVX=1:"?9",1:"!?11")),MARX(PSIVX)
    • Line Location: PIV+15
    Function Call: WRITE
    • Prompt: ?12
    • Line Location: SOL+6
    Function Call: WRITE
    • Prompt: NAME(X)
    • Line Location: SOL+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: SOL+8
    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: !
    • Condition for execution: (DRGX'=1!(PSGX'=1))
    • Line Location: PIVAD+4
    Function Call: WRITE
    • Prompt: ?9,NAME(PSGX)
    • Line Location: PIVAD+4
    Function Call: WRITE
    • Prompt: ?50,TYP,?53,P(2),?60,P(3),?67,$S($G(P(25))]"":P(25),1:P(17))
    • Line Location: PIV1+3
    Function Call: WRITE
    • Prompt: ?46,TYP,?49,P(2),?60,P(3),?71,$S($G(P(25))]"":P(25),1:P(17))
    • Line Location: PIV1+5
    Function Call: WRITE
    • Prompt: ?46,TYP,?49,P(2),?60,P(3),?71,$S($G(P(25))]"":P(25),1:P(17))
    • Line Location: PIV1+6
    Function Call: WRITE
    • Prompt: ?46,TYP,?49,P(2),?60,P(3),?71,$S($G(P(25))]"":P(25),1:P(17))
    • Line Location: PIV2+2
    Function Call: WRITE
    • Prompt: ?46,TYP,?49,P(2),?60,P(3),?71,$S($G(P(25))]"":P(25),1:P(17))
    • Line Location: PIV2+3
    Function Call: WRITE
    • Prompt: ?49,"Renewed: ",$P(ND14," ")
    • Line Location: RENEWDT+2
    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+8, PIV+9, PIV+11, GETP+1, GETP+2
    ^PS(55 - [#55] PIV+2, PIV+5, PIV+6, PIV+7, GTNUMLBL+2
    ^PS(57.1 - [#57.1] 59+2, 59+3

    Label References

    Name Line Occurrences
    59 59+4
    GETP PIV+10
    GTNUMLBL GTOT+1
    NAME SOL+3, PIVAD+2
    PIV PIV+9
    PIV1 PIV+15
    PIV2 SOL+7, PIVAD+4
    PIVAD PIV+17
    RENEWDT SOL+6, SOL+8, PIVAD+4

    Naked Globals

    Name Field # of Occurrence
    ^( PIV+7
    ^(0 59+3
    ^(11 GTNUMLBL+2
    ^(2 PIV+9, GETP+1
    ^(8 PIV+9, GETP+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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