Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

    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
    Info |  Source |  Entry Points |  Interaction Calls