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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: GMTSADOR

Package: Health Summary

Routine: GMTSADOR


Information

GMTSADOR ;SLC/KER - Ad Hoc Summary Driver ; 09/21/2001

Source Information

Source file <GMTSADOR.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Health Summary 4 (END,HSOUT,SELPT)^GMTS  GETLIM^GMTSADH1  $$TYPE^GMTSULT  HELP2^GMTSUP1  
Kernel 2 EN^XQORM  DISP^XQORM1  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Order Entry Results Reporting 2 ORCXPNDR  ORS AD HOC HEALTH SUMMARY  
Health Summary 1 GMTS HS ADHOC  
Kernel 1 ^ORD(101  
Womens Health 1 WVHS  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; External call to allow user to define components and
; defaults through the AD Hoc menu interface and print
; health summaries for a programmer-specified patient
; and device. Called with:
;
; DFN = Patient internal file record number (optional)
; For OE/RR interface sets DFN to Patient DFN in
; the ORVP variable. If not defined a patient
; will be prompted for.
;
  • ICR #2750
    • Status: Active
    • Usage: Private
    BUILD ; Conducts Dialogue to build Ad Hoc Summary
  • ICR #3965
    • Status: Active
    • Usage: Private
    LOAD ; Load enabled components
    LOAD1 ; Load array GMTSEG
    LOADSEL ; Loads GMTSEG(J,FN,IFN) (Selection Items)
    END ; Cleans up any residual locals
    HELP ; Display Help Text
    REDISP ; Ask Whether or not to redisplay menu
    HTX1 ; Help Text for "?"
    HTX2 ; Help Text for ??

    External References

    Name Field # of Occurrence
    ^DIR REDISP+1
    END^GMTS MAIN+13
    HSOUT^GMTS MAIN+13
    SELPT^GMTS MAIN+12
    GETLIM^GMTSADH1 BUILD+5
    $$TYPE^GMTSULT MAIN+11
    HELP2^GMTSUP1 HELP+2
    EN^XQORM BUILD+3
    DISP^XQORM1 REDISP+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: BUILD+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+1
    Function Call: WRITE
    • Prompt: !,$P(GMTSTXT,";",3,99)
    • Line Location: HELP+1
    Function Call: WRITE
    • Prompt: !!
    • Line Location: HELP+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: REDISP+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: REDISP+2
    Routine Call
    • DIR
    • Line Location:
      • REDISP+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMT(142 - [#142] LOAD+1, LOADSEL+1

    Label References

    Name Line Occurrences
    BUILD MAIN+13, BUILD+4
    END MAIN+14
    LOAD BUILD+4
    LOADSEL LOAD1+1
    REDISP HELP+3

    Naked Globals

    Name Field # of Occurrence
    ^( LOADSEL+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % MAIN+10~
    C MAIN+10~
    >> DFN MAIN+12*, MAIN+13
    DIC MAIN+10~, MAIN+11*!
    DIC(0 MAIN+11*
    DIPGM MAIN+10~
    DIR REDISP+1~
    DIR("A" REDISP+1*
    DIR("B" REDISP+1*
    DIR(0 REDISP+1*
    DIROUT MAIN+10~, MAIN+13, BUILD+1
    DTOUT MAIN+10~, MAIN+13
    DUOUT MAIN+10~
    FROM END+1!
    GMI BUILD+1~, BUILD+4*, LOAD+1, END+1!
    GMJ BUILD+1~, BUILD+4*, LOAD1+1*, LOADSEL+4, HELP+1~*
    GMTSEG MAIN+10~, MAIN+13!
    GMTSEG( LOAD1+1*, LOADSEL+4*
    GMTSEGC MAIN+10~, MAIN+13!, BUILD+4*
    GMTSEGI MAIN+10~, MAIN+13!
    GMTSEGI( LOAD1+1*
    GMTSMULT MAIN+10~
    GMTSQIT MAIN+10~, MAIN+13*, BUILD+1, BUILD+3*, END+1!
    GMTSTITL MAIN+10~, MAIN+11*
    GMTSTXT HELP+1~*
    GMTSTYP MAIN+10~, MAIN+11*, BUILD+3, LOAD+1, LOADSEL+1
    GMW MAIN+10~, BUILD+1~
    HLP HELP+1~*
    I MAIN+10~, REDISP+1~
    I1 END+1!
    IOF BUILD+1, REDISP+1
    ISVALID END+1!
    LRDFN END+1!
    >> ORVP MAIN+12
    POP MAIN+10~
    PTR END+1!
    S2 LOADSEL+1~*, LOADSEL+2, LOADSEL+4
    SEL LOADSEL+1~, LOADSEL+2*, LOADSEL+4
    SEX END+1!
    SF LOADSEL+1~, LOADSEL+3*, LOADSEL+4
    SR LOADSEL+1~, LOADSEL+2*, LOADSEL+3, LOADSEL+4
    SREC LOAD+1~*, LOAD1+1
    STRN LOAD+1~*, LOADSEL+1
    TO END+1!
    U LOAD1+1, LOADSEL+2, LOADSEL+3
    VAOA END+1!
    VASD END+1!
    VASV END+1!
    X MAIN+10~, MAIN+11*, BUILD+1~, BUILD+4*, END+1!, HELP+1, HELP+2, REDISP+1~
    XQORM BUILD+1~, BUILD+3*
    XQORM("??" BUILD+3*
    XQORM("A" BUILD+3*
    XQORM("S" BUILD+2*
    XQORM(0 BUILD+3*
    Y MAIN+10~, MAIN+11*, BUILD+1~, BUILD+3, BUILD+4, REDISP+1~
    Y( BUILD+4, LOAD+1
    ZTRTN MAIN+10~

    Marked Items

    Name Field # of Occurrence
    $T(@HLP+GMJ HELP+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All