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

Package: Inpatient Medications

Routine: PSJUTL1


Information

PSJUTL1 ;BIR/MLM-MISC. INPATIENT UTILITIES ;29 Jul 98 / 4:29 PM

Source Information

Source file <PSJUTL1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 4 (EN,ENIVUD)^PSJ0050  EN1^PSJHL2  $$WSCHK^PSJO  MARKIV^PSJUTL3  
VA Fileman 3 (C,NOW)^%DTC  ^DIC  (,EN)^DIK  
Kernel 1 $$FMTE^XLFDT  
MailMan 1 ^XMD  
Pharmacy Data Management 1 ($$L,UL)^PSSLOCK  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Inpatient Medications 7 PSGAP0  PSGCAP0  PSJAC  PSJEXP  PSJIPST1  PSJUTL3  PSJUTL99  
Outpatient Pharmacy 1 PSOHLUP  

Entry Points

Name Comments DBIA/ICR reference
IVCHK ;Match AD/SOL against Xtmp
NFWS(DFN,ON,PSJPWD)
MATCH ;If AD/SOL from XTMP matches to AD/SOL within the order, set new OI array
SEND ;Send mail message
CNIV1(DFN)
INSTLDT() ;Return the date PSJ*5*58 was first installed
CONVERT(DFN,TYPE) ;
; Convert existing UD orders to new format. Only run once/patient, and
; only converts orders with a stop date<(5.0 Install date-365)
; DFN = Patient IEN
; TYPE = Background or Interactive mode
  • ICR #2411
    • Status: Active
    • Usage: Private
    PENDING ;Converting Pending IV order with Ad/Sol
    CNV2(IEN507)
    UPD(ON) ;Loop thru the new OI array
    CNV(PSJM)
    CHKDD ; Determine if dispense drug is NF or WS
    FIND ;
    CNIV(DFN)

    External References

    Name Field # of Occurrence
    C^%DTC CONVERT+17, CNIV+10
    NOW^%DTC CONVERT+16, CNIV+8, SEND+2
    ^DIC INSTLDT+4
    ^DIK CONVERT+47
    EN^DIK CONVERT+14
    EN^PSJ0050 UPD+12
    ENIVUD^PSJ0050 CNIV+14
    EN1^PSJHL2 CONVERT+25, CONVERT+32, CONVERT+43, UPD+11
    $$WSCHK^PSJO CHKDD+3
    MARKIV^PSJUTL3 CNIV+6, CNIV+11, CNIV+13
    $$L^PSSLOCK CNIV1+2
    UL^PSSLOCK CNIV1+4, CNIV1+8
    $$FMTE^XLFDT SEND+3, SEND+4
    ^XMD SEND+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Converting old orders for ",$P($G(^DPT(DFN,0)),U)," to new format."
    • Line Location: CONVERT+15
    Function Call: WRITE
    • Prompt: !,DFN
    • Line Location: FIND+3
    Routine Call
    • DIC
    • Line Location:
      • INSTLDT+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(53.1 - [#53.1] Classic Fileman Calls
    ^PS(55 - [#55] Classic Fileman Calls
    ^XPD(9.7 - [#9.7] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.7 - [#50.7] CNV2+2, UPD+6
    ^PS(52.6 - [#52.6] CONVERT+38
    ^PS(52.7 - [#52.7] CONVERT+38
    ^PS(53.1 - [#53.1] CONVERT+13, CONVERT+19, CONVERT+20, CONVERT+23*, CONVERT+24*, CONVERT+25, CONVERT+27, CONVERT+47, CNIV1+7, UPD+10*
    , PENDING+2, PENDING+3, PENDING+6, PENDING+12, PENDING+13, PENDING+15
    ^PS(55 - [#55] CONVERT+9, CONVERT+13, CONVERT+14*, CONVERT+29, CONVERT+30, CONVERT+32*, CONVERT+34, CONVERT+36, CONVERT+37, CONVERT+38*
    , CONVERT+39, CONVERT+42*, CONVERT+45, CONVERT+48*, FIND+1, FIND+2, FIND+3, CNIV+4, CNIV+13, CNIV1+3*
    , CNIV1+5, CNIV1+6, IVCHK+2, IVCHK+5, IVCHK+6, IVCHK+7, IVCHK+8, UPD+9*, PENDING+14
    ^PS(59.7 - [#59.7] CONVERT+16
    ^PSDRUG - [#50] CONVERT+20, CONVERT+21, CONVERT+30, CONVERT+31, CHKDD+2
    ^PSDRUG("AP" CONVERT+21, CONVERT+31
    ^VA(200 - [#200] CONVERT+40
    ^XPD(9.7 - [#9.7] INSTLDT+2
    ^XTMP("PSJ NEW PERSON" CONVERT+41*
    ^XTMP("PSSCONA" CNIV1+4, MATCH+2, MATCH+3, PENDING+7
    ^XTMP("PSSCONS" CNIV1+4, MATCH+4, MATCH+5, PENDING+8

    Label References

    Name Line Occurrences
    $$CNV CONVERT+27, CONVERT+34, CONVERT+45
    $$CNV2 CONVERT+23
    CHKDD NFWS+10
    CNIV1 CNIV+11, CNIV+13
    IVCHK CNIV1+6
    MATCH IVCHK+9, PENDING+16
    PENDING CNIV1+7
    SEND CNIV+15
    UPD IVCHK+9, PENDING+9, PENDING+16

    Naked Globals

    Name Field # of Occurrence
    ^( NFWS+10, PENDING+7, PENDING+8
    ^(0 CONVERT+27*, CONVERT+34*, IVCHK+6, IVCHK+8, PENDING+13, PENDING+15
    ^(2 CONVERT+45*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % CONVERT+16, CNIV+8, SEND+2
    ADS CONVERT+10~, CONVERT+37*, CONVERT+38
    ADS1 CONVERT+10~
    DA CONVERT+14~*, CONVERT+47*
    DDRG CONVERT+10~, CONVERT+20*, CONVERT+21*, CONVERT+30*, CONVERT+31*
    DFN CONVERT~, CONVERT+9, CONVERT+13, CONVERT+14, CONVERT+19, CONVERT+25, CONVERT+29, CONVERT+30, CONVERT+32, CONVERT+34
    , CONVERT+36, CONVERT+37, CONVERT+38, CONVERT+39, CONVERT+41, CONVERT+42, CONVERT+43, CONVERT+45, CONVERT+47, CONVERT+48
    , NFWS~, NFWS+9, FIND+1*, FIND+2, FIND+3, CNIV~, CNIV+3, CNIV+4, CNIV+6, CNIV+11
    , CNIV+12~, CNIV+13*, CNIV1~, CNIV1+2, CNIV1+3, CNIV1+4, CNIV1+5, CNIV1+6, CNIV1+7, CNIV1+8
    , IVCHK+2, IVCHK+5, IVCHK+6, IVCHK+7, IVCHK+8, UPD+9, UPD+11, UPD+12
    DIC INSTLDT+1~, INSTLDT+4*
    DIC(0 INSTLDT+4*
    DIFROM SEND+1~
    DIK CONVERT+14~!*, CONVERT+47*!
    DIK(1 CONVERT+14*
    DT CNIV+9, UPD+7
    DUZ SEND+7
    IEN507 CNV2~, CNV2+2
    IOST CONVERT+6
    LINE SEND+1~
    LINE(1 SEND+3*
    LINE(2 SEND+4*
    ND CONVERT+10~, CONVERT+20*, CONVERT+21, CONVERT+24, CONVERT+30*, CONVERT+31, CONVERT+32, CONVERT+37*, CONVERT+38, NFWS+6~
    , NFWS+10*, CHKDD+2, CHKDD+3
    ON CONVERT+10~, CONVERT+19*, CONVERT+20, CONVERT+23, CONVERT+24, CONVERT+25, CONVERT+27, CONVERT+29*, CONVERT+30, CONVERT+32
    , CONVERT+34, CONVERT+36*, CONVERT+37, CONVERT+38, CONVERT+39, CONVERT+41, CONVERT+42, CONVERT+43, CONVERT+45, CONVERT+47*
    , NFWS~, NFWS+7, NFWS+9, CNIV+2~, CNIV1+6*, CNIV1+7*, IVCHK+2, IVCHK+5, IVCHK+6, IVCHK+7
    , IVCHK+8, IVCHK+9, UPD~, UPD+9, UPD+10, UPD+11, UPD+12, PENDING+2, PENDING+3, PENDING+6
    , PENDING+9, PENDING+12, PENDING+13, PENDING+14, PENDING+15, PENDING+16
    ON1 CONVERT+10~, CONVERT+37*
    PSGDT CONVERT+10~, CONVERT+17*, CONVERT+29, CONVERT+36, CNIV+2~, CNIV+10*, CNIV1+5
    >> PSJ NFWS+9*, NFWS+11*, NFWS+12, CHKDD+2*, CHKDD+3*
    >> PSJ200 CONVERT+39*, CONVERT+40, CONVERT+41
    PSJAD IVCHK+1~, IVCHK+5*, IVCHK+6, PENDING+1~, PENDING+12*, PENDING+13
    PSJAD( IVCHK+6*, MATCH+3, PENDING+13*
    PSJCNR IVCHK+1~
    PSJCNT UPD+1~*, UPD+2*, UPD+3
    >> PSJDD NFWS+10*
    PSJM CNV~, CNV+1, CNV+2, CNV+3, CNV+4, CNV+5
    PSJOI CONVERT+10~, CONVERT+20*, CONVERT+21*, CONVERT+23, CONVERT+24, CONVERT+25, CONVERT+30*, CONVERT+31*, CONVERT+32, CONVERT+37*
    , CONVERT+38*, IVCHK+1~, IVCHK+2*, MATCH+2, MATCH+3, MATCH+4, MATCH+5, UPD+5, UPD+12, PENDING+1~
    , PENDING+3*, PENDING+7, PENDING+8
    PSJPWD NFWS~, CHKDD+3
    >> PSJREF NFWS+9*, NFWS+10, NFWS+11
    PSJSOL IVCHK+1~, IVCHK+7*, IVCHK+8, PENDING+1~, PENDING+14*, PENDING+15
    PSJSOL( IVCHK+8*, MATCH+5, PENDING+15*
    PSJX CNIV+2~, CNIV+3, CNIV+4*, CNIV+5, CNIV+6
    PSJXAD IVCHK+1~, MATCH+2*, MATCH+3
    PSJXNOI IVCHK+1~, MATCH+1!, UPD+4*, UPD+5, UPD+6, UPD+9, UPD+10, UPD+12, PENDING+1~
    PSJXNOI( MATCH+3*, MATCH+5*, UPD+2, PENDING+7*, PENDING+8*
    PSJXNOI(0 UPD+4
    PSJXSOL IVCHK+1~, MATCH+4*, MATCH+5
    PSJXX CONVERT+27!*, CONVERT+34!*, CONVERT+45!*
    START CNIV+2~, CNIV+8*, SEND+3
    STAT CONVERT+10~, CONVERT+19*, CONVERT+23
    STOP SEND+1~, SEND+2*, SEND+4
    STPDT CONVERT+10~, CONVERT+29*, CONVERT+36*, CNIV+2~, CNIV1+5*, CNIV1+6
    STS CONVERT+10~, CONVERT+19*
    TYPE CONVERT~, CONVERT+6*, CONVERT+24, CONVERT+32, CONVERT+38
    U CONVERT+9, CONVERT+16, CONVERT+24, CONVERT+25, CONVERT+32, CONVERT+38, CONVERT+39, CONVERT+42, CONVERT+48, NFWS+11
    , CHKDD+2, CHKDD+3, FIND+3, CNIV+4, CNIV1+3, UPD+6, UPD+9, UPD+10, PENDING+2, INSTLDT+5
    X CONVERT+10~, CONVERT+14~, CONVERT+17, CONVERT+40*, CONVERT+41, CONVERT+42, CNIV+10, UPD+2*, UPD+6*, UPD+7
    , PENDING+2*, PENDING+7*, PENDING+8*, INSTLDT+1~, INSTLDT+2*, INSTLDT+3
    X1 CONVERT+10~, CONVERT+16*, CNIV+9*
    X2 CONVERT+10~, CONVERT+16*, CNIV+9*
    XMDUZ SEND+1~, SEND+6*
    XMSUB SEND+1~, SEND+5*
    XMTEXT SEND+1~, SEND+5*
    XMY SEND+1~
    XMY( SEND+7*
    XX CONVERT+10~, CONVERT+30*, CONVERT+37*, CONVERT+38, CONVERT+40*, CONVERT+41
    Y CONVERT+14~, INSTLDT+1~
    Y(0 INSTLDT+5
    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