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

Package: Health Summary

Routine: GMTSUP


Information

GMTSUP ; SLC/KER - Utilities for Paging HS ; 01/06/2003

Source Information

Source file <GMTSUP.m>

Entry Points

Name Comments DBIA/ICR reference
CKP ; Check page position, pause and prompt
  • ICR #4231
    • Status: Active
    • Usage: Private
    CKP1 ; Help Display of Optional Components for Navigation
    BREAK ; Writes the Component Header
    ;
    ; If the variable GMTSOBJ exist, then the
    ; Component Headers are suppressed with the
    ; following exceptions:
    ;
    ; If GMTSOBJ("COMPONENT HEADER") exist,
    ; then the Component Header will NOT be
    ; suppressed
    ;
    ; If GMTSOBJ("BLANK LINE") exist, a blank
    ; line will be written after the Component
    ; Header
    ;
    OLDB ;
    HEADER ; Print Running Header
    ;
    ; If the variable GMTSOBJ exist, then the
    ; Report Headers are suppressed with the
    ; following exceptions:
    ;
    ; If GMTSOBJ("DATE LINE") exist, then the
    ; Location/Report Date line will NOT be
    ; suppressed.
    ;
    ; If GMTSOBJ("CONFIDENTIAL") exist, then
    ; the Confidential Header Name line will
    ; NOT be suppressed.
    ;
    ; If GMTSOBJ("REPORT HEADER") exist, then
    ; the Report Header containing the patient's
    ; name, SSAN, ward and DOB will NOT be
    ; suppressed.
    ;
    ; If the variable GMTSOBJ("LABEL") contains
    ; text, and the variable GMTSOBJ("USE LABEL")
    ; exist, then this text will be printed before
    ; the object text.
    ;
    ; If GMTSOBJ("REPORT DECEASED") exist, then
    ; the optional line that displays for Deceased
    ; patients will NOT be suppressed.
    ;
    ; Header Lines:
    BRNCH ; Checks abbreviation to branch to a different component
    NOLIM ; No limits
    EVAL ; Evaluate input to determine quit or continue
    MUL(X) ; Multiple Components in Type
    FST(X) ; First Component in Type
    CHDR(X) ; Component Header
    CNAM(X) ; Component Name
    LABEL ; Label
    LABDAT ; Label/Date

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CKP+7
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CKP+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: CKP1+9
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: +GMTSF=0
    • Line Location: BREAK+22
    Function Call: WRITE
    • Prompt: !,GMTS
    • Line Location: BREAK+22
    Function Call: WRITE
    • Prompt: !,GMTSUL
    • Condition for execution: $D(GMTSOBJ("UNDERLINE"))
    • Line Location: BREAK+22
    Function Call: WRITE
    • Prompt: !
    • Line Location: BREAK+23
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $D(GMTSOBJ("BLANK LINE"))
    • Line Location: BREAK+23
    Function Call: WRITE
    • Prompt: !,GMTS,!
    • Line Location: BREAK+24
    Function Call: WRITE
    • Prompt: !,GMTS,!
    • Line Location: OLDB+6
    Function Call: WRITE
    • Prompt: !,$S($L(GMTSLOC):"Location: "_GMTSLOC_" ",1:"")
    • Line Location: HEADER+37
    Function Call: WRITE
    • Prompt: $S($D(GMTSVDT):GMTSVDT,1:"")
    • Line Location: HEADER+38
    Function Call: WRITE
    • Prompt: !,GMTSHDR,"*"
    • Line Location: HEADER+48
    Function Call: WRITE
    • Prompt: !,GMTSPHDR("NMSSN"),?GMTSPHDR("DOBS"),GMTSPHDR("DOB")
    • Line Location: HEADER+55
    Function Call: WRITE
    • Prompt: !,?GMTSPHDR("WARDRBS"),GMTSPHDR("WARDRB")
    • Line Location: HEADER+56
    Function Call: WRITE
    • Prompt: !,GMTSPHDR("NMSSN"),?GMTSPHDR("WARDRBS")
    • Line Location: HEADER+60
    Function Call: WRITE
    • Prompt: GMTSPHDR("WARDRB"),?GMTSPHDR("DOBS"),GMTSPHDR("DOB")
    • Line Location: HEADER+61
    Function Call: WRITE
    • Prompt: !,LABEL
    • Line Location: LABEL+2
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $L(LABEL)
    • Line Location: LABEL+2
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $D(GMTSOBJ("LABEL BLANK LINE"))
    • Line Location: LABEL+2
    Function Call: WRITE
    • Prompt: !,LABEL
    • Line Location: LABDAT+4
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $L(LABEL)
    • Line Location: LABDAT+4
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $D(GMTSOBJ("LABEL BLANK LINE"))
    • Line Location: LABDAT+4
    Info |  Source |  Entry Points |  Interaction Calls