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

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

Package Total Caller Graph
Health Summary 45 GMTS ADC  GMTS ADR  GMTS ADT  GMTS BADR  GMTS BDEM  GMTS BDS  GMTS BLO  GMTS BMIC  
GMTS BPN  GMTS BT  GMTS CD  GMTS CH  GMTS CN  GMTS CP  GMTS CVF  GMTS CVP  
GMTS CW  GMTS CY  GMTS DC  GMTS DCS  GMTS DD  GMTS DEM  GMTS DIET  GMTS DS  
GMTS EADT  GMTS ED  GMTS EDL  GMTS EM  GMTS EXAM  GMTS HF  GMTS HS BY PATIENT  GMTS HS BY PATIENT & DATE  
GMTS HS BY PATIENT & DATE RANG  GMTS HS BY PATIENT & VISIT  GMTS IM  GMTS LH  GMTS LO  GMTS MED  GMTS MEDA  GMTS MEDB  
GMTS MEDC  GMTS MEDF  GMTSADH  GMTSADOR  GMTSPL  
Automated Information Collection System 1 IBDFN5  
Imaging 1 MAGGTCPR  
Kernel 1 ^ORD(101  
Order Entry Results Reporting 1 ORWRP1  
Text Integration Utility 1 GMRPNCW  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Controls branching
;
; GMTSPXGO & GMRANGE are set in 2 calling
; options, They aren't meant to be used together.
;
SELTYP ; Select a Health Summary Type for printing
SELTYP1 ; Get each component record
  • ICR #745
    • Status: Active
    • Usage: Controlled Subscription
    LOADSEG ; Load enabled components into GMTSEG array
    SELPT ; Select a patient
    SELFILE ; Load Selection Items in GMTSEG( array
    PQ ; Queued subroutine for HS by patient
    HSOUT ; Output Summary, with DEVICE handling
    NOQUE ; Print non-queued output to selected device
    QUE ; Call TaskMan to Queue output
    END ; Clean up environmental variables and EXIT Health Summary
    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
    LOAD ; Load GMTSEG() using GMTSPRM abbreviations

    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