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

Package: Health Summary

Routine: GMTS


Information

GMTS ; SLC/KER - Health Summary Main Routine ; 02/27/2002

Source Information

Source file <GMTS.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Health Summary 6 EN^GMTS1  (ACTPROF,HSOUT,MAIN,PATCOPY,RESUB)^GMTSDVR  $$RXAP^GMTSPD2  MENU^GMTSPXU2  ($$PROK,GETRANGE)^GMTSU  $$TYPE^GMTSULT  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$VERSION^XPDUTL  
Order Entry Results Reporting 1 PATIENT^ORU1  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Health Summary 6 GMTS HS BY PATIENT  GMTS HS BY PATIENT & DATE RANG  GMTS HS BY PATIENT & VISIT  GMTSADH  GMTSADOR  GMTSPL  
Automated Information Collection System 1 IBDFN5  
Order Entry Results Reporting 1 ORWRP1  

Entry Points

Name Comments DBIA/ICR reference
LOAD ; Load GMTSEG() using GMTSPRM abbreviations
ENCWA ; Entry point printing components
;
; GMTSPRM can be set to any component abbreviations
; except ones that require selection items. Needs
; to be valid component abbreviation from the "C"
; x-ref of File 142.1.
;
; Call with DFN, GMTSPRM="CD,CN,CW,ADR", GMTSTITL="TITLE"
;
; GMTSPX1=Optional FM date for ending date
; GMTSPX2=Optional FM date for beginning date
;
; NOTE: Optional date range variables are both
; required if a date range is desired.
;
  • ICR #164
    • Status: Active
    • Usage: Controlled Subscription
    PQ ; Queued subroutine for HS by patient
    END ; Clean up environmental variables and EXIT Health Summary
    LOADSEG ; Load enabled components into GMTSEG array
    HSOUT ; Output Summary, with DEVICE handling
    SELFILE ; Load Selection Items in GMTSEG( array
    NOQUE ; Print non-queued output to selected device
    SELTYP ; Select a Health Summary Type for printing
    SELTYP1 ; Get each component record
  • ICR #745
    • Status: Active
    • Usage: Controlled Subscription
    QUE ; Call TaskMan to Queue output
    SELPT ; Select a patient
    MAIN ; Controls branching
    ;
    ; GMTSPXGO & GMRANGE are set in 2 calling
    ; options, They aren't meant to be used together.
    ;

    External References

    Name Field # of Occurrence
    ^%ZIS HSOUT+3, QUE+5
    ^%ZISC NOQUE+2, QUE+4
    ^%ZTLOAD QUE+3
    EN^GMTS1 PQ+10, HSOUT+2, NOQUE+1, ENCWA+22
    ACTPROF^GMTSDVR PQ+12
    HSOUT^GMTSDVR MAIN+30
    MAIN^GMTSDVR MAIN+5
    PATCOPY^GMTSDVR SELPT+5
    RESUB^GMTSDVR MAIN+27
    $$RXAP^GMTSPD2 MAIN+28
    MENU^GMTSPXU2 MAIN+16, MAIN+21
    $$PROK^GMTSU SELPT+2
    GETRANGE^GMTSU MAIN+25
    $$TYPE^GMTSULT SELTYP+2
    PATIENT^ORU1 MAIN+5, SELPT+3, SELPT+4
    $$VERSION^XPDUTL MAIN+5, SELPT+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"For patient ",GMNAME," please answer the following."
    • Line Location: MAIN+15
    Function Call: WRITE
    • Prompt: !!,"For patient ",GMNAME," please answer the following."
    • Line Location: MAIN+20
    Function Call: WRITE
    • Prompt: !
    • Line Location: MAIN+30
    Function Call: WRITE
    • Prompt: !,"This Summary Type includes no components...Please choose another."
    • Line Location: SELTYP+3
    Function Call: WRITE
    • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
    • Line Location: QUE+3
    Function Call: WRITE
    • Prompt: !,"The parameter GMTSPRM is undefined.",!
    • Line Location: ENCWA+17
    Function Call: WRITE
    • Prompt: !,"The parameter GMTSTITL is undefined.",!
    • Line Location: ENCWA+18
    Function Call: WRITE
    • Prompt: !,"The parameter DFN is undefined.",!
    • Line Location: ENCWA+19
    Routine Call
    • %ZIS
    • Line Location:
      • HSOUT+3
      • QUE+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DISV( MAIN+8
    ^DPT - [#2] MAIN+14
    ^GMT(142 - [#142] MAIN+8, SELTYP+2, SELTYP+3, SELTYP1+1, SELFILE+1
    ^GMT(142.1 - [#142.1] LOADSEG+1, LOAD+1
    ^XUSEC("GMTS VIEW ONLY" HSOUT+2
    ^XUTL("OR" SELPT+1!

    Label References

    Name Line Occurrences
    END MAIN+30, ENCWA+23
    LOAD ENCWA+20
    LOADSEG SELTYP1+1
    QUE HSOUT+4
    SELFILE LOADSEG+2
    SELPT MAIN+19
    SELTYP MAIN+9, SELTYP+3

    Naked Globals

    Name Field # of Occurrence
    ^( SELTYP1+1, SELFILE+2
    ^("ORLP" SELPT+1!
    ^("ORV" SELPT+1!
    ^("ORW" SELPT+1!
    ^("T" SELTYP+2
    ^(0 SELTYP+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % QUE+1*
    %T END+1!
    >> %ZIS HSOUT+3*
    ABB ENCWA+20*, ENCWA+21!, LOAD+1
    C END+2!
    DFN MAIN+10~, MAIN+12!, MAIN+14*, MAIN+16, MAIN+18, MAIN+19*, MAIN+21, MAIN+23, MAIN+31!, PQ+1~
    , PQ+5*, PQ+12, ENCWA+19
    DIC MAIN+7!, SELTYP+1*, SELTYP+2!, END+1!
    DIC("A" SELTYP+1*
    DIC("B" MAIN+8*
    DIC("S" SELTYP+1*
    DIC(0 SELTYP+1*
    DIROUT MAIN+6~, MAIN+7!, MAIN+9, MAIN+11, MAIN+17*, MAIN+18, MAIN+19, MAIN+22, MAIN+24, MAIN+26
    , MAIN+28, PQ+4, PQ+11
    >> DTOUT MAIN+28
    DUOUT MAIN+6~, MAIN+7!, MAIN+9, MAIN+11, SELPT+1~
    DUZ MAIN+8, HSOUT+2
    ENTRY SELFILE+2*, SELFILE+4, END+2!
    GMDUOUT PQ+9~, PQ+11
    GMI SELTYP1+1*, SELTYP1+2!, LOADSEG+2*, SELFILE+4, ENCWA+15~, ENCWA+16*, ENCWA+21, LOAD+2*
    GMJ ENCWA+15~, ENCWA+20*
    GMNAME MAIN+6~, MAIN+14*, MAIN+15, MAIN+18, MAIN+19*, MAIN+20, MAIN+23
    GMP MAIN+31!, SELPT+1!, SELPT+3, SELPT+4, SELPT+5
    GMPAT MAIN+10~, MAIN+11, MAIN+12!, MAIN+17!, MAIN+24, MAIN+27
    GMPAT( MAIN+18*, MAIN+23*, PQ+4, PQ+5, PQ+6, PQ+7
    GMPAT(1 MAIN+14*
    GMPATT MAIN+17!, MAIN+19!, MAIN+31!, SELPT+5
    GMPATT( MAIN+14*, MAIN+19
    GMPSAP MAIN+6~, MAIN+28*
    >> GMRANGE MAIN+25
    GMTJ PQ+2~, PQ+4*, PQ+5, PQ+6, PQ+7
    GMTS PQ+1~, END+1!
    GMTS0 LOADSEG+1*, END+1!
    GMTS1 PQ+1~, END+1!, ENCWA+16*
    GMTS2 PQ+1~, END+1!, ENCWA+16*
    GMTSAGE PQ+1~, END+2!
    GMTSDOB PQ+1~, END+1!
    GMTSDTM PQ+1~, END+2!
    GMTSEG MAIN+31!, SELTYP1+1!, ENCWA+15~, ENCWA+23!
    GMTSEG( LOADSEG+2*, SELFILE+4*, LOAD+2*
    GMTSEGC MAIN+31!, SELTYP1+2*, ENCWA+15~, ENCWA+21*, ENCWA+23!
    GMTSEGH END+2!
    GMTSEGI MAIN+31!, SELTYP1+1!, ENCWA+15~, ENCWA+23!
    GMTSEGI( LOADSEG+2*, LOAD+2*
    GMTSEGL END+2!
    GMTSEGN END+2!
    GMTSHDR END+2!
    GMTSLO PQ+1~, END+1!
    GMTSLOCK END+2!
    GMTSLPG PQ+1~, END+2!
    GMTSMULT MAIN+10~
    GMTSNPG END+2!
    GMTSPG END+2!
    GMTSPNF ENCWA+16*, ENCWA+23!
    GMTSPNM PQ+1~, END+1!
    GMTSPRM ENCWA+17, ENCWA+20, ENCWA+23!
    GMTSPRO SELPT+1~, SELPT+2*, SELPT+3, SELPT+4
    GMTSPX1 MAIN+6~, MAIN+14*, MAIN+16, MAIN+17, MAIN+18, MAIN+20*, MAIN+21, MAIN+23, MAIN+25, PQ+6*
    , PQ+8!
    GMTSPX2 MAIN+6~, MAIN+14*, MAIN+16, MAIN+17, MAIN+18, MAIN+20*, MAIN+21, MAIN+23, MAIN+25, PQ+7*
    , PQ+8!
    >> GMTSPXGO MAIN+5, MAIN+16, MAIN+21, PQ+6
    GMTSQIT END+2!
    GMTSRB PQ+2~, END+1!
    GMTSSN PQ+2~, END+1!
    GMTSTIM END+2!
    GMTSTITL MAIN+31!, SELTYP+2*, ENCWA+18, ENCWA+23!
    GMTSTOF PQ+2~, END+2!
    GMTSTYP MAIN+7*, MAIN+9, MAIN+31!, SELTYP+1, SELTYP+2*, SELTYP+3, SELTYP1+1, SELFILE+1
    GMTSVER SELPT+1~, SELPT+2*, SELPT+3, SELPT+4
    GMTSWARD PQ+2~, END+1!
    GMTSX END+2!
    GMX MAIN+31!, SELTYP1+1*, LOADSEG+1, LOADSEG+2
    I MAIN+31!, PQ+2~
    IFN ENCWA+21!, LOAD+1*, LOAD+2
    IO("Q" HSOUT+4, QUE+1!
    ION QUE+2
    IOP HSOUT+3!, QUE+5*
    IX0 PQ+2~
    J PQ+2~
    M4 PQ+2~
    >> ORVP MAIN+11, MAIN+13, MAIN+14, MAIN+19
    P17 PQ+2~
    POP HSOUT+3, END+2!
    S1 SELTYP1+1*, SELTYP1+2!, SELFILE+1
    S2 SELTYP1+2!, SELFILE+1~*, SELFILE+2, SELFILE+4
    SEX PQ+2~, END+2!
    SF SELFILE+1~, SELFILE+3*, SELFILE+4
    SR SELFILE+1~, SELFILE+2*, SELFILE+3, SELFILE+4
    TRFAC PQ+3~
    U MAIN+8, MAIN+14, MAIN+18, MAIN+23, LOADSEG+2, SELFILE+2, SELFILE+3, PQ+6, PQ+7
    VA END+1!
    VADM END+1!
    VAEL END+1!
    VAERR PQ+3~, END+1!
    VAIN PQ+3~, END+1!
    VAINDT END+1!
    VAPA END+1!
    X MAIN+31!, END+1!
    Y MAIN+31!, SELTYP+2*, END+1!
    Z1 END+2!
    ZTDESC QUE+2*, QUE+4!
    ZTDTH QUE+4!
    ZTIO QUE+2*, QUE+4!
    ZTRTN MAIN+6~, MAIN+29*, QUE+2*, QUE+4!
    ZTSAVE QUE+1!, QUE+4!
    ZTSAVE( QUE+1*
    ZTSK HSOUT+1!, QUE+3, QUE+4!

    Marked Items

    Name Field # of Occurrence
    $T(PATIENT^ORU1 MAIN+5
    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