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 |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJDSS

Package: Inpatient Medications

Routine: PSJDSS


Information

PSJDSS ;ALB/JRC-REGENERATE DSS EXTRACT DATA FILE (#728.113) & (728.904) ; 10/8/08 1:53pm

Source Information

Source file <PSJDSS.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 2 ^%ZTLOAD  $$FMTE^XLFDT  
Uncategorized 2 ^ECXPIV1  ^ECXUD1  
Inpatient Medications 1 $$CODES^PSIVUTL  
MailMan 1 ^XMD  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry Point
  • ICR #5201
    • Status: Pending
    • Usage: Private
    CHECK(X) ;Check intermediate file for existing entries in selected time frame
    IV ;Process iv records to be recreated for intermediate file
    START ;Start recompile after queue
    MSG ; send message to mail group 'DSS-ECGRP'
    UDUPDATE ;Update unit dose extract data file (#728.904)
    UD ;Process ud records to be recreated for intermediate file
    IVUPDATE ;Update dss intermediate file (#728.113)
    DATE() ;Prompt user for start date

    External References

    Name Field # of Occurrence
    ^%ZTLOAD EN+9
    ^DIR DATE+4, DATE+11
    ^ECXPIV1 IVUPDATE+11
    ^ECXUD1 UDUPDATE+2
    $$CODES^PSIVUTL IVUPDATE+9
    $$FMTE^XLFDT MSG+6
    ^XMD MSG+11

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" IVUPDATE+1, UDUPDATE+1
    ^ECX( CHECK+4
    ^PS( IVUPDATE+8
    ^PS(55 - [#55] IV+5, IV+6, IV+7, IV+8, IV+9, IV+10, IV+12, UD+5, UD+7, UD+8
    , UD+10, UD+11, UD+12, IVUPDATE+4, IVUPDATE+5, IVUPDATE+6, IVUPDATE+7, IVUPDATE+11
    ^TMP($J START+7!, IVUPDATE+3!, IVUPDATE+11*

    Label References

    Name Line Occurrences
    $$CHECK EN+6
    $$DATE EN+5
    @( START+3
    IVUPDATE IV+13
    MSG START+5
    UDUPDATE UD+15

    Naked Globals

    Name Field # of Occurrence
    ^( CHECK+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A IVUPDATE+2~, IVUPDATE+5*
    ADSTR IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+10
    ADUNITS IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+9*, IVUPDATE+10
    B IVUPDATE+2~, IVUPDATE+5*
    COST UD+2~, UD+13*, UDUPDATE+2
    COUNT START+1~, UD+4*, IVUPDATE+11*, UDUPDATE+2*, MSG+8
    DATE IV+2~, IV+4*, IV+5*, IV+6, IV+7, UD+2~, UD+4*, UD+6*, UD+7*, UD+8
    DCST IVUPDATE+2~, IVUPDATE+8*, IVUPDATE+10
    DDATE UD+2~, UD+13*, UD+14, UDUPDATE+2
    DDRG IVUPDATE+2~, IVUPDATE+8*, IVUPDATE+10, IVUPDATE+11
    DFN IV+2~, IV+6*, IV+7, IV+8, IV+9, IV+10, IV+12, UD+2~, UD+4*, UD+5*
    , UD+7, UD+8, UD+10, UD+11, UD+12, IVUPDATE+4, IVUPDATE+5, IVUPDATE+6, IVUPDATE+7, IVUPDATE+10
    , IVUPDATE+11, UDUPDATE+2
    DIR DATE+1~, DATE+8!
    DIR("A" DATE+3*, DATE+10*
    DIR(0 DATE+2*, DATE+9*
    DIRUT DATE+1~, DATE+5, DATE+12
    DISP UD+2~, UD+10*, UD+11
    DRG IVUPDATE+2~, IVUPDATE+6*, IVUPDATE+7
    DRGTYP IVUPDATE+2~, IVUPDATE+6*, IVUPDATE+7, IVUPDATE+8, IVUPDATE+9
    DRUG UD+2~, UD+13*, UDUPDATE+2
    DSDATE IVUPDATE+2~, IVUPDATE+5*, IVUPDATE+11
    ECGRP MSG+1~, MSG+3*, MSG+4
    ECMSG MSG+1~
    ECMSG(1 MSG+5*
    ECMSG(2 MSG+6*
    ECMSG(3 MSG+7*
    ECMSG(4 MSG+8*
    ECMSG(5 MSG+9*
    ECUD IVUPDATE+2~, IVUPDATE+10*, IVUPDATE+11*, UDUPDATE+2*
    ENDDATE EN+3~, EN+7, DATE+13*, CHECK+4, IV+4*, IV+11, UD+4*, UD+14, MSG+6
    >> EXTRACT EN+2, EN+6, EN+7, START+3, MSG+2, MSG+3, MSG+5
    FILE CHECK+2~*, CHECK+3*, CHECK+4
    HOW UD+2~, UD+13*
    >> I EN+8*
    IVROOM IVUPDATE+2~, IVUPDATE+5*, IVUPDATE+11
    LABN IV+2~, IV+8*, IV+9, IV+10, IV+12
    ND IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+8*, IVUPDATE+9
    NODE UD+2~, UD+11*, UD+13
    ON IV+2~, IV+7*, IV+8, IV+9, IV+10, IV+12, UD+2~, UD+8*, UD+10, UD+11
    , UD+12, IVUPDATE+4, IVUPDATE+5, IVUPDATE+6, IVUPDATE+7, IVUPDATE+10, IVUPDATE+11, UDUPDATE+2
    PROV IVUPDATE+2~, IVUPDATE+4*, IVUPDATE+10
    PROVIDER UD+2~, UD+13*, UDUPDATE+2
    PSGSTRT UD+2~, UD+12*, UDUPDATE+2
    PSIVC IV+2~, IV+9*, IVUPDATE+10
    PSIVI IV+2~, IV+13*
    PSIVNOW IV+2~, IV+10*, IV+11, IVUPDATE+10
    PSIVQTY IV+2~, IV+12*, IV+13
    QTY UD+2~, UD+13*, UDUPDATE+2
    SOLSTR IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+10
    START IVUPDATE+2~, IVUPDATE+4*, IVUPDATE+11
    STDATE EN+3~, EN+7, DATE+6*, CHECK+4, IV+4, IV+11, UD+4, UD+14, MSG+6
    TYP IVUPDATE+2~, IVUPDATE+4*, IVUPDATE+10
    U IV+9, IV+10, IV+12, UD+13, IVUPDATE+4, IVUPDATE+8, IVUPDATE+9, IVUPDATE+10, IVUPDATE+11
    WARD UD+2~, UD+13*, UDUPDATE+2
    X DATE+1~, DATE+8!, CHECK~, CHECK+3, CHECK+5, IVUPDATE+1*, IVUPDATE+2~, IVUPDATE+4*, UDUPDATE+1*
    XMDUZ MSG+1~, MSG+3*
    XMSUB MSG+1~, MSG+2*
    XMTEXT MSG+1~, MSG+10*
    XMY MSG+1~, MSG+4!
    XMY("G.DSS-" MSG+4*
    Y DATE+1~, DATE+6, DATE+8!, DATE+13, IVUPDATE+2~, IVUPDATE+9*
    >> ZTDESC EN+7*
    >> ZTIO EN+7*
    >> ZTRTN EN+7*
    >> ZTSAVE( EN+8*
    >> ZTSK EN+10, EN+11
    Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All