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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSJMUTL

Package: Inpatient Medications

Routine: PSJMUTL


Information

PSJMUTL ;BIR/MV - UTLILITY USE FOR QUEUING... ;25 Nov 98 9:13 AM

Source Information

Source file <PSJMUTL.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
Adverse Reaction Tracking 1 ^GMRADPT  
Inpatient Medications 1 NAME^PSIVUTL  
Order Entry Results Reporting 1 ($$HAVEHDR,GET,HAVEHDR)^ORRDI1  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Inpatient Medications 14 PSGCAPP0  PSGEUDD  PSGEUDP  PSGMAR1  PSGMIV  PSGMMAR1  PSGMMIV  PSJ0186  
PSJHEAD  PSJLMUTL  PSJMDWS  PSJMIV  PSJMPRTU  PSJUTL  
Outpatient Pharmacy 1 PSOQ0236  

Entry Points

Name Comments DBIA/ICR reference
SORT ;*** Set up the allergies and adv. reactions arrays.
RAD ;
SELDEV() ;*** Ask for device type for report to output to ***
SETARRAY ;*** Concatenate allergies and adv. reaction together into display len.
SETSORTQ(XDESC,XSAVE,ZTRTN)
NAMENEED(DRGX,LEN,NEED)
REMOTE2 ;
EXIT ;
PRTCHK(PGCT) ;
CALLEN ;*** Calculate the total length for allergy and adv.reaction arrays.
SETPRTQ(XDESC,XSAVE,ZTRTN)
GETGMRA ;
EXITDEV ;
ATS(REG,EXP,LN) ;
  • ICR #5058
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    ^%ZIS SELDEV+3, SETPRTQ+5
    ^%ZISC EXITDEV+3, EXIT+4
    ^%ZTLOAD SETSORTQ+6, SETPRTQ+5
    $$S^%ZTLOAD PRTCHK+2
    ^DIR EXITDEV+1, PRTCHK+1, PRTCHK+3
    ^GMRADPT GETGMRA+6
    $$HAVEHDR^ORRDI1 RAD+2
    GET^ORRDI1 RAD+5
    HAVEHDR^ORRDI1 RAD+1
    NAME^PSIVUTL NAMENEED+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"** No device selected or Report printed **"
    • Line Location: SELDEV+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXITDEV+1
    Function Call: WRITE
    • Prompt: !!?20,"...Report stopped at user request..."
    • Line Location: PRTCHK+3
    Routine Call
    • DIR
    • Line Location:
      • EXITDEV+1
      • PRTCHK+1
      • PRTCHK+3
    Routine Call
    • %ZIS
    • Line Location:
      • SELDEV+3
      • SETPRTQ+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.7 - [#52.7] NAMENEED+5
    ^TMP("PSJALL" REMOTE2+1*, REMOTE2+2*
    ^TMP($J RAD+6!, RAD+12*, RAD+13
    ^XTMP("ORRDI" RAD+4, RAD+7, RAD+8

    Label References

    Name Line Occurrences
    EXIT SELDEV+3
    REMOTE2 RAD+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % EXIT+1!
    %H EXIT+1!
    %I EXIT+1!
    %ZIS SELDEV+1!, SELDEV+2*, SETPRTQ+2*, EXIT+1!
    %ZIS("A" SELDEV+2*
    %ZIS("B" SELDEV+2*
    A RAD+6~, RAD+8*, RAD+10, RAD+16*
    ADR GETGMRA+1~
    ADR( SORT+5*, SETARRAY+5
    ADRCT GETGMRA+1~, GETGMRA+3*, SORT+5*, CALLEN+4, CALLEN+5*, SETARRAY+5*, SETARRAY+6
    ALG GETGMRA+1~
    ALG( SORT+4*, SETARRAY+3
    ALGCT GETGMRA+1~, GETGMRA+3*, SORT+4*, CALLEN+2, CALLEN+5*, SETARRAY+3*, SETARRAY+4
    >> DFN GETGMRA+4*, GETGMRA+5, GETGMRA+6*, RAD+5, RAD+7, RAD+8
    DIR EXITDEV+1!, PRTCHK+1!, PRTCHK+3!
    DIR("A" EXITDEV+1*, PRTCHK+3*
    DIR(0 EXITDEV+1*, PRTCHK+1*, PRTCHK+3*
    >> DRG( NAMENEED+5
    DRGX NAMENEED~, NAMENEED+5
    EXP ATS~, CALLEN+6, CALLEN+7
    FILE RAD+6~, RAD+10*, RAD+11
    GMRA GETGMRA+1~, GETGMRA+6*
    GMRAL GETGMRA+1~, GETGMRA+7, GETGMRA+8, GETGMRA+9
    GMRAL( SORT+1, SORT+2
    GMRANKA GETGMRA+1~
    GMRAOTH GETGMRA+1~
    I SETSORTQ+1~, SETSORTQ+5*, SETPRTQ+1~, SETPRTQ+4*, REMOTE2+2*
    IO("DOC" SETSORTQ+4
    IO("Q" SELDEV+1!, SETSORTQ+2!
    IOF EXIT+2
    ION SETSORTQ+3
    IOP SELDEV+1!, SETPRTQ+2*, EXITDEV+3*, EXIT+4*
    IOST EXITDEV+1, PRTCHK+1, EXIT+2, GETGMRA+8, GETGMRA+9, CALLEN+1, CALLEN+2, CALLEN+3, CALLEN+4
    LEN GETGMRA+1~, CALLEN+6*, CALLEN+7*, SETARRAY+1, SETARRAY+3, SETARRAY+5, SETARRAY+7, NAMENEED~, NAMENEED+5, RAD+6~
    , RAD+7*, RAD+14, RAD+15*
    LN ATS~, CALLEN+6, CALLEN+7
    NAME GETGMRA+1~, SORT+1*, SORT+3, SORT+4, SORT+5, SORT+6, NAMENEED+5
    NAME(2 NAMENEED+5
    NEED NAMENEED~, NAMENEED+4*, NAMENEED+5*
    PGCT PRTCHK~, PRTCHK+1
    POP SELDEV+1!, SELDEV+3
    PSGADR GETGMRA+2!, GETGMRA+3*, GETGMRA+8*, GETGMRA+9*, SORT+5*, CALLEN+4*, CALLEN+6, CALLEN+7
    PSGADR( SETARRAY+5*, SETARRAY+6*
    PSGADR(1 GETGMRA+3*, GETGMRA+8*, GETGMRA+9*, CALLEN+4*
    PSGALG GETGMRA+2!, GETGMRA+3*, GETGMRA+8*, GETGMRA+9*, SORT+4*, CALLEN+2*, CALLEN+6, CALLEN+7
    PSGALG( SETARRAY+3*, SETARRAY+4*
    PSGALG(1 GETGMRA+3*, GETGMRA+8*, GETGMRA+9*, CALLEN+2*
    >> PSGIO SETSORTQ+3*, SETPRTQ+2
    >> PSGIODOC SETSORTQ+4*, SETPRTQ+3
    >> PSGP GETGMRA+4, GETGMRA+5*, GETGMRA+6
    >> PSGRALG RAD+3*, RAD+7*, RAD+14, RAD+15*, RAD+16, REMOTE2+2
    >> PSGRALG( RAD+14*, RAD+15*, RAD+16*, REMOTE2+2
    >> PSGRALG(1 RAD+3*, RAD+7*, REMOTE2+1
    PSGVADR GETGMRA+2!, GETGMRA+3*, GETGMRA+8*, GETGMRA+9*, SORT+6*, CALLEN+3*, CALLEN+6, CALLEN+7
    PSGVADR( SETARRAY+7*, SETARRAY+8*
    PSGVADR(1 GETGMRA+3*, GETGMRA+8*, GETGMRA+9*, CALLEN+3*
    PSGVALG GETGMRA+2!, GETGMRA+3*, GETGMRA+8*, GETGMRA+9*, SORT+3*, CALLEN+1*, CALLEN+6, CALLEN+7
    PSGVALG( SETARRAY+1*, SETARRAY+2*
    PSGVALG(1 GETGMRA+3*, GETGMRA+8*, GETGMRA+9*, CALLEN+1*
    >> PSJGMRAL GETGMRA+7*
    >> PSJLN REMOTE2+1*, REMOTE2+2*
    >> PSJSTOP SELDEV+3*, SELDEV+4, EXITDEV+1, PRTCHK+1*, PRTCHK+2*, PRTCHK+3, PRTCHK+4
    >> PSJWHERE GETGMRA+7
    REAC RAD+6~, RAD+8*, RAD+9, RAD+12, RAD+13*, RAD+14, RAD+15
    REG ATS~, CALLEN+6, CALLEN+7
    S1 RAD+6~, RAD+7*, RAD+8
    SORT GETGMRA+1~, SORT+2*, SORT+3, SORT+4, SORT+5, SORT+6
    TYPE GETGMRA+1~, SORT+1*, SORT+3, SORT+4, SORT+5, SORT+6
    U SORT+1, SORT+2, NAMENEED+5
    VADR GETGMRA+1~
    VADR( SORT+6*, SETARRAY+7
    VADRCT GETGMRA+1~, GETGMRA+3*, SORT+6*, CALLEN+3, CALLEN+5*, SETARRAY+7*, SETARRAY+8
    VALG GETGMRA+1~
    VALG( SORT+3*, SETARRAY+1
    VALGCT GETGMRA+1~, GETGMRA+3*, SORT+3*, CALLEN+1, CALLEN+5*, SETARRAY+1*, SETARRAY+2
    VERIFIED GETGMRA+1~, SORT+1*, SORT+3, SORT+4, SORT+5, SORT+6
    X SETSORTQ+1~, SETSORTQ+5*, SETPRTQ+1~, SETPRTQ+4*, GETGMRA+1~, SORT+1*, SORT+2, SETARRAY+1*, SETARRAY+3*, SETARRAY+5*
    , SETARRAY+7*, NAMENEED+5*
    XDESC SETSORTQ~, SETSORTQ+3, SETPRTQ~, SETPRTQ+2
    XSAVE SETSORTQ~, SETSORTQ+5, SETPRTQ~, SETPRTQ+4
    Y PRTCHK+1, GETGMRA+1~, SETARRAY+1*, SETARRAY+2, SETARRAY+3*, SETARRAY+4, SETARRAY+5*, SETARRAY+6, SETARRAY+7*, SETARRAY+8
    >> ZSTOP PRTCHK+2*
    ZTDESC SETSORTQ+3*, SETPRTQ+2*, EXIT+1!
    ZTDTH SETSORTQ+2!, SETPRTQ+2*, EXIT+1!
    ZTIO SETSORTQ+3*, SETPRTQ+2*, SETPRTQ+3*, EXIT+1!
    >> ZTQUEUED EXITDEV+2, PRTCHK+2, EXIT+3
    >> ZTREQ EXITDEV+2*, EXIT+3*
    ZTRTN SETSORTQ~, SETPRTQ~, EXIT+1!
    ZTSAVE SETSORTQ+2!, EXIT+1!
    ZTSAVE( SETSORTQ+5*, SETPRTQ+4*
    ZTSK SETSORTQ+2!

    Marked Items

    Name Field # of Occurrence
    $T(GET^ORRDI1 RAD+5
    $T(HAVEHDR^ORRDI1 RAD+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All