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

Package Total Caller Graph
Health Summary Components 79 BHSAAP1  BHSAAP2  BHSALG  BHSAMI  BHSAPRO  BHSAST  BHSBCH  BHSBDEM  
BHSBH  BHSBH1  BHSCOAG  BHSCPT  BHSCPT1  BHSDEM  BHSDEN  BHSDEN0  
BHSDEN1  BHSDEN2  BHSDM1  BHSDMPRE  BHSDTUR  BHSEDASS  BHSENC  BHSENC2  
BHSENCS  BHSENCW  BHSEXAM  BHSEXAM1  BHSEYEKG  BHSFAM1  BHSFH  BHSFH1  
BHSFLOA  BHSFLOW  BHSHOS  BHSHS1  BHSHS2  BHSHS3  BHSINSUR  BHSLAB  
BHSLAB1  BHSLABA  BHSLABB  BHSMBN  BHSMEA  BHSMEAIP  BHSMEAP  BHSMED  
BHSMEDAL  BHSMEDCS  BHSMEDG  BHSMEDH  BHSMEDI  BHSMEDR  BHSMEDSF  BHSMSUP  
BHSMSUP1  BHSNRS  BHSNT  BHSOB  BHSPED  BHSPHN  BHSPL  BHSPL1  
BHSPL2  BHSPLAN  BHSPLOB  BHSPLST  BHSPLST1  BHSPMH  BHSPSO7A  BHSPWHG  
BHSRAD  BHSRCIS  BHSSKIN  BHSSUPP  BHSSUR  BHSUTL  BHSWH  
Health Summary 77 GMTS1  GMTS2  GMTSALG  GMTSALGB  GMTSAMIE  GMTSCNB  GMTSDA  GMTSDCB  
GMTSDEM  GMTSDEMB  GMTSDGA1  GMTSDGA2  GMTSDGC1  GMTSDGC2  GMTSDGCH  GMTSDGD  
GMTSDGH  GMTSDGP  GMTSFH  GMTSGAF  GMTSGEC  GMTSLRA  GMTSLRB  GMTSLRC  
GMTSLRCP  GMTSLREM  GMTSLRM  GMTSLRM1  GMTSLRMB  GMTSLROB  GMTSLROS  GMTSLRS  
GMTSLRS7  GMTSLRSC  GMTSLRT  GMTSMAG  GMTSMCPS  GMTSMCPZ  GMTSMCZZ  GMTSMHPE  
GMTSONE1  GMTSORC3  GMTSPL  GMTSPLST  GMTSPN  GMTSPN1  GMTSPN2  GMTSPNB  
GMTSPSG  GMTSPSG5  GMTSPSHO  GMTSPSI  GMTSPSI5  GMTSPSO  GMTSPSO7  GMTSPSZO  
GMTSPXEP  GMTSPXFP  GMTSPXHP  GMTSPXHR  GMTSPXIM  GMTSPXOP  GMTSPXSK  GMTSPXTP  
GMTSPXXP  GMTSRAD  GMTSRAI  GMTSRAS  GMTSRASP  GMTSRO  GMTSROB  GMTSRON  
GMTSSCD  GMTSSOWK  GMTSVS  GMTSVSD  GMTSVSS  
Outpatient Pharmacy 6 PSOQ0236  PSOQ0595  PSOQMCAL  PSOQRART  PSOQUAP  PSOQUAP2  
Clinical Scheduling for Windows 1 BSDX41C  
Problem List 1 GMPLHSPL  

Entry Points

Name Comments DBIA/ICR reference
CHDR(X) ; Component Header
MUL(X) ; Multiple Components in Type
NOLIM ; No limits
LABDAT ; Label/Date
FST(X) ; First Component in Type
LABEL ; Label
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
;
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
OLDB ;
CKP ; Check page position, pause and prompt
  • ICR #4231
    • Status: Active
    • Usage: Private
    EVAL ; Evaluate input to determine quit or continue
    CKP1 ; Help Display of Optional Components for Navigation
    CNAM(X) ; Component Name

    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