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  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Health Summary 5 LOAD^GMTSADH  CMPLIM^GMTSADH2  EN^GMTSHCPR  $$HF^GMTSU  $$TYPE^GMTSULT  
Kernel 1 EN^XQORM  
VA FileMan 1 ^DIR  

Caller Graph

Caller Graph Total: 104

Package Total Caller Graph
Health Summary 95 GMTS1  GMTS2  GMTSALG  GMTSALGB  GMTSAMIE  GMTSCNB  GMTSDA  GMTSDCB  
GMTSDEM  GMTSDEMB  GMTSDEMC  GMTSDGA1  GMTSDGA2  GMTSDGC1  GMTSDGC2  GMTSDGCH  
GMTSDGD  GMTSDGH  GMTSDGP  GMTSFH  GMTSFH1  GMTSGAF  GMTSGEC  GMTSLRA  
GMTSLRB  GMTSLRC  GMTSLRCP  GMTSLREM  GMTSLRM  GMTSLRM1  GMTSLRMB  GMTSLROB  
GMTSLROS  GMTSLRS  GMTSLRS7  GMTSLRSC  GMTSLRT  GMTSMAG  GMTSMCPS  GMTSMCPZ  
GMTSMCZZ  GMTSMHAP  GMTSMHCI  GMTSMHPE  GMTSMHRF  GMTSMHTC  GMTSONE1  GMTSORC3  
GMTSORPD  GMTSPL  GMTSPLST  GMTSPN  GMTSPN1  GMTSPN2  GMTSPNB  GMTSPSG  
GMTSPSG5  GMTSPSHO  GMTSPSI  GMTSPSI5  GMTSPSO  GMTSPSO7  GMTSPSO8  GMTSPSO9  
GMTSPST1  GMTSPST2  GMTSPST4  GMTSPST5  GMTSPSTN  GMTSPSZO  GMTSPXEP  GMTSPXFP  
GMTSPXHP  GMTSPXHR  GMTSPXIM  GMTSPXOP  GMTSPXSK  GMTSPXTP  GMTSPXXP  GMTSRAD  
GMTSRAI  GMTSRAS  GMTSRASP  GMTSRFHX  GMTSRO  GMTSROB  GMTSRON  GMTSSCD  
GMTSU  GMTSVS  GMTSVSD  GMTSVSS  GMTSWVC1  GMTSYTQL  GMTSYTQS  
Outpatient Pharmacy 5 PSOQ0236  PSOQ0595  PSOQMCAL  PSOQRART  PSOQUAP2  
Clinical Procedures 3 MDPS1  MDPS2  MDPSU  
Problem List 1 GMPLHSPL  

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

    External References

    Name Field # of Occurrence
    ^DIR CKP1+2
    LOAD^GMTSADH BRNCH+7
    CMPLIM^GMTSADH2 BRNCH+10
    EN^GMTSHCPR HEADER+51
    $$HF^GMTSU CKP+4, BREAK+18, OLDB+5
    $$TYPE^GMTSULT CKP1+4
    EN^XQORM CKP1+9

    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
    Routine Call
    • DIR
    • Line Location:
      • CKP1+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMT(142 - [#142] BRNCH+5
    ^GMT(142.1 - [#142.1] BRNCH+10, CNAM+2

    Label References

    Name Line Occurrences
    $$CHDR BREAK+17
    $$CNAM CHDR+1
    $$FST BREAK+14
    $$MUL BREAK+14
    @( CKP1+9
    BREAK CKP+3, CKP+4, CKP+7
    CKP1 CKP+6, CKP1+10
    HEADER CKP+7, CKP+8
    LABEL HEADER+53, HEADER+58
    NOLIM BRNCH+9

    Naked Globals

    Name Field # of Occurrence
    ^(0 BRNCH+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CREC BRNCH+1~, BRNCH+10*
    DA CKP1+1~
    DATA HEADER+29~*, HEADER+30*, HEADER+31*, HEADER+32*, HEADER+39, HEADER+40
    DIC CKP1+1~, CKP1+4*, CKP1+5!
    DIC(0 CKP1+4*
    DIR CKP1+2~!
    DIR(0 CKP1+2*
    >> DIROUT BRNCH+3*, BRNCH+11, EVAL+3*
    >> DTOUT EVAL+3
    >> DUOUT CKP1+2
    >> GMDUOUT EVAL+4*
    GMI BRNCH+7~*
    GMJ BRNCH+7~*
    >> GMPSAP EVAL+4
    GMTINX BRNCH+1~, BRNCH+5*, BRNCH+6, BRNCH+7, BRNCH+8*, BRNCH+10, NOLIM+1
    >> GMTOPT CKP1+2
    GMTS BREAK+16~, BREAK+17*, BREAK+22, BREAK+24, OLDB+2*, OLDB+3*, OLDB+4*, OLDB+6, HEADER+45*, HEADER+46*
    , HEADER+47, CHDR+1~, CHDR+2*, CHDR+3
    >> GMTSCDT(0 HEADER+33
    GMTSDFLT BRNCH+7~*
    >> GMTSDTM HEADER+33*, HEADER+39, HEADER+40, LABDAT+2, LABDAT+3
    >> GMTSEG( CNAM+1
    >> GMTSEG(" " MUL+1
    >> GMTSEG(0 MUL+1, FST+1
    >> GMTSEGC BRNCH+7*
    >> GMTSEGH OLDB+3, OLDB+4, CHDR+1
    >> GMTSEGI( BRNCH+7, BRNCH+8, BRNCH+10, NOLIM+1
    >> GMTSEGL OLDB+3, OLDB+4, CHDR+2
    >> GMTSEGN CKP+4, CKP+7, CKP+8, BREAK+20, BREAK+25, BREAK+26, OLDB+7, OLDB+8, BRNCH+2*, NOLIM+1*
    , FST+1, CNAM+1
    >> GMTSEXIT EVAL+2*
    GMTSF BREAK+14~*, BREAK+22, MUL+1~*, MUL+2, FST+1~*, FST+2
    GMTSH CHDR+1~*, CHDR+2, CHDR+3, CHDR+4, CNAM+1~*, CNAM+2
    >> GMTSHDR HEADER+43*, HEADER+44*, HEADER+45, HEADER+46, HEADER+47*, HEADER+48
    GMTSL BREAK+16~, BREAK+17*, MUL+1~*, MUL+2, FST+1~*, FST+2, CHDR+1~, CHDR+2*, CHDR+3, CHDR+5
    >> GMTSLCMP CKP+4, BREAK+16*, BREAK+20*, BREAK+25, BREAK+26*, OLDB+1*, OLDB+7, OLDB+8*
    >> GMTSLFG HEADER+50
    >> GMTSLO CKP+5, BREAK+18, BREAK+25, OLDB+5, OLDB+7
    GMTSLOC HEADER+36~*, HEADER+37
    >> GMTSLPG CKP+5, CKP1+2, CKP1+7, BRNCH+2*, NOLIM+1*, EVAL+3
    GMTSM BREAK+14~*, BREAK+15, BREAK+21
    GMTSN CHDR+1~*, CHDR+4*, CHDR+5*, CHDR+6
    >> GMTSNPG CKP+1*, CKP+7*, BREAK+17*, OLDB+2*
    >> GMTSOBJ CKP1+7, BREAK+15, BREAK+19, HEADER+30, HEADER+33, HEADER+35, HEADER+45, HEADER+46, HEADER+48, HEADER+53
    , HEADER+54, HEADER+58, HEADER+59, HEADER+64, HEADER+66, CHDR+3
    >> GMTSOBJ("BLAN K LINE" , BREAK+15, BREAK+23
    >> GMTSOBJ("COMP ONENT HEADER" , BREAK+15, BREAK+21, CHDR+4
    >> GMTSOBJ("CONFIDENTIAL" HEADER+48
    >> GMTSOBJ("DATE LINE" , HEADER+35, HEADER+36, HEADER+39, HEADER+40, LABDAT+2, LABDAT+3
    >> GMTSOBJ("DECEASED" HEADER+64
    >> GMTSOBJ("LABE L BLANK LINE" , LABEL+2, LABDAT+4
    >> GMTSOBJ("LABEL" CKP+2, HEADER+53, HEADER+58, LABEL+1, LABDAT+1, LABDAT+2, LABDAT+3
    >> GMTSOBJ("LIMITS" CHDR+5
    >> GMTSOBJ("REPO RT HEADER" , CKP+2!, HEADER+53, HEADER+54, HEADER+58, HEADER+59
    >> GMTSOBJ("UNDERLINE" BREAK+22
    >> GMTSOBJ("USE LABEL" , LABEL+1, LABDAT+1
    >> GMTSOBJE CKP1+7, HEADER+30
    >> GMTSPG HEADER+42*, HEADER+43*, HEADER+44
    >> GMTSPHDR("DOB" HEADER+55, HEADER+61
    >> GMTSPHDR("DOBS" HEADER+55, HEADER+61
    >> GMTSPHDR("NMSSN" HEADER+55, HEADER+60
    >> GMTSPHDR("TWO" HEADER+52
    >> GMTSPHDR("WARDRB" HEADER+56, HEADER+61
    >> GMTSPHDR("WARDRBS" HEADER+56, HEADER+60
    >> GMTSPXD1 HEADER+29, HEADER+31, HEADER+32
    >> GMTSPXD2 HEADER+29, HEADER+31, HEADER+32
    >> GMTSQIT CKP+1, CKP+7, CKP+8, CKP1+2*, BRNCH+2*, BRNCH+3*, BRNCH+11*, NOLIM+1*, EVAL+3*
    >> GMTSSC HEADER+36
    >> GMTSTITL HEADER+43, HEADER+51
    >> GMTSTOF CKP+6*, CKP+7*, CKP+8*, BRNCH+2
    >> GMTSTYP CKP+8, CKP1+2, CKP1+3, CKP1+5*, CKP1+6, CKP1+11*, BRNCH+5
    GMTSUL BREAK+16~, BREAK+17*, BREAK+22
    GMTSVDT HEADER+29~, HEADER+33*, HEADER+38
    >> GMTSWRIT CKP+3*
    GMTSY CKP1+1~, CKP1+10!, BRNCH+2*, BRNCH+6*, BRNCH+8*, NOLIM+1*
    >> HSTAG HEADER+51
    I CKP1+1~
    IOF CKP+7, CKP+8
    IOSL CKP+5, BREAK+18, BREAK+25, OLDB+5, OLDB+7
    IOST CKP+6, HEADER+44
    J CKP1+1~
    K CKP1+1~
    L CKP1+1~
    LABEL LABEL+1~*, LABEL+2, LABDAT+1~*, LABDAT+2*, LABDAT+3*, LABDAT+4
    LIM BRNCH+1~, BRNCH+9*
    SBS BRNCH+1~, BRNCH+10*
    TYP CKP1+1~, CKP1+3*, CKP1+11
    U HEADER+36, HEADER+65, BRNCH+5, BRNCH+9
    >> VADM(6 HEADER+65
    X CKP1+1~, CKP1+4*, CKP1+5!, BRNCH+2, BRNCH+3, BRNCH+4, EVAL+1, EVAL+2, EVAL+3, EVAL+4
    , MUL~, FST~, CHDR~, CHDR+3*, CHDR+6*, CNAM~, CNAM+2*
    XQORM CKP1+1~, CKP1+6*
    XQORM("??" CKP1+7*
    XQORM("A" CKP1+6*
    XQORM("S" CKP1+8*
    XQORM(0 CKP1+6*
    Y CKP1+1~, CKP1+4*, CKP1+5!, CKP1+9, BRNCH+2, BRNCH+4
    Y(1 BRNCH+5, BRNCH+9
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All