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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMTSRM

Package: Health Summary

Routine: GMTSRM


Information

GMTSRM ; SLC/KER - Edit HS Type ; 01/06/2003

Source Information

Source file <GMTSRM.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Health Summary 6 ^GMTSLOAD  NXTCMP^GMTSRM1  ADEL^GMTSRM2  SELCMP^GMTSRM5  (COPY,RNMBR)^GMTSRN  $$TYPE^GMTSULT  
VA FileMan 3 ^DIE  EN1^DIP  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Health Summary 6 GMTS IRM/ADPAC ADHOC EDIT  GMTS TYPE ENTER/EDIT  GMTSCM  GMTSPP  GMTSRM1  GMTSRM4  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Main loop to modify multiple health summary types
  • ICR #3578
    • Status: Active
    • Usage: Private
    SELTYP ; Select Health Summary Type to Edit
    CHKDEL ; Check for Possible Deletion (New Type without Component)
    ENADHOC ; Entry point for AD HOC edit
    EXISTS ; Edit an existing health summary type
    LIST ; Lists existing summary parameters
    GETCNT(GMTSIFN) ; Determine default summary order for new component

    External References

    Name Field # of Occurrence
    ^DIE SELTYP+18, ENADHOC+9
    EN1^DIP LIST+6
    ^DIR SELTYP+16, LIST+4
    ^GMTSLOAD ENADHOC+7
    NXTCMP^GMTSRM1 EXISTS+2
    ADEL^GMTSRM2 CHKDEL+1
    SELCMP^GMTSRM5 SELTYP+22
    COPY^GMTSRN EXISTS+3
    RNMBR^GMTSRN EXISTS+3
    $$TYPE^GMTSULT SELTYP+5, ENADHOC+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: SELTYP+2
    Function Call: WRITE
    • Prompt: !,$C(7),"Alteration of this summary report is restricted to its owner.",!,"See the Clinical Coordinator if you need additional help."
    • Line Location: SELTYP+10
    Function Call: WRITE
    • Prompt: !!,$C(7),"WARNING: You are about to edit a Health Summary Type that is being used"
    • Line Location: SELTYP+12
    Function Call: WRITE
    • Prompt: !,"by a Health Summary Object. Changing the structure of this Health Summary"
    • Line Location: SELTYP+13
    Function Call: WRITE
    • Prompt: !,"Type will alter how the Object will display.",!
    • Line Location: SELTYP+14
    Function Call: WRITE
    • Prompt: !!,">>> EDITING the GMTS HS ADHOC OPTION Health Summary Type"
    • Line Location: ENADHOC+4
    Function Call: WRITE
    • Prompt: !,"Please hold on while I resequence the summary order"
    • Line Location: EXISTS+3
    Routine Call
    • DIE
    • Line Location:
      • SELTYP+18
      • ENADHOC+9
    Routine Call
    • DIR
    • Line Location:
      • SELTYP+16
      • LIST+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMT(142 - [#142] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMT(142 - [#142] SELTYP+7, SELTYP+10, SELTYP+19, SELTYP+21, CHKDEL+1, GETCNT+1
    ^GMT(142.5 - [#142.5] SELTYP+11
    ^XUSEC( SELTYP+8
    ^XUSEC("GMTSMGR" SELTYP+6

    Label References

    Name Line Occurrences
    $$GETCNT EXISTS+2
    CHKDEL SELTYP+20, SELTYP+22
    ENADHOC ENADHOC+7
    EXISTS SELTYP+21, SELTYP+22, ENADHOC+11
    LIST SELTYP+21, SELTYP+22, ENADHOC+11, EXISTS+2
    SELTYP MAIN+2

    Naked Globals

    Name Field # of Occurrence
    ^(0 SELTYP+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % MAIN+1~, ENADHOC+1~
    B LIST+1~
    BY LIST+1~, LIST+6*
    C ENADHOC+1~
    CHANGE SELTYP+1~, ENADHOC+1~, EXISTS+3
    CNT EXISTS+1~, EXISTS+2*
    DA SELTYP+1~, SELTYP+5*, SELTYP+7, SELTYP+10, SELTYP+11, SELTYP+16*, SELTYP+17*, SELTYP+18*, ENADHOC+1~, ENADHOC+9*
    DHD LIST+1~, LIST+6*
    DIC SELTYP+1~, SELTYP+2*, SELTYP+5!, ENADHOC+1~, ENADHOC+6*, LIST+1~, LIST+4*, LIST+6*
    DIC("A" SELTYP+3*
    DIC("S" SELTYP+4*
    DIC(0 SELTYP+2*, ENADHOC+6*
    DIE SELTYP+1~, SELTYP+18*, ENADHOC+1~, ENADHOC+9*
    DIR SELTYP+15~, LIST+1~, LIST+4!
    DIR("A" SELTYP+16*, LIST+4*
    DIR("B" SELTYP+15*, LIST+4*
    DIR(0 SELTYP+15*, LIST+4*
    DIROUT SELTYP+15~, SELTYP+17, SELTYP+19, ENADHOC+7
    DIRUT MAIN+1~, ENADHOC+7
    DLAYGO SELTYP+1~, SELTYP+4*
    DR SELTYP+1~, SELTYP+18*, ENADHOC+1~, ENADHOC+9*
    DTOUT MAIN+1~, SELTYP+15~, SELTYP+17, SELTYP+19
    DUOUT MAIN+1~, SELTYP+1~, SELTYP+15~, SELTYP+17, SELTYP+19, ENADHOC+1~, EXISTS+1, EXISTS+2, LIST+2, LIST+4*
    DUZ SELTYP+6, SELTYP+8, SELTYP+10, CHKDEL+1
    EXISTS MAIN+1~, MAIN+2*, SELTYP+1~, SELTYP+21*, SELTYP+22, ENADHOC+1~, ENADHOC+8*
    FLDS LIST+1~, LIST+6*
    FR LIST+1~, LIST+6*
    GMTSEG SELTYP+1~
    GMTSFUNC MAIN+1~, ENADHOC+3~
    GMTSIFN SELTYP+1~, SELTYP+5*, SELTYP+18*, SELTYP+19, SELTYP+21, CHKDEL+1, ENADHOC+1~, ENADHOC+2~, ENADHOC+8*, ENADHOC+9
    EXISTS+2, GETCNT~, GETCNT+1
    GMTSMGR SELTYP+1~, SELTYP+6*, SELTYP+7, SELTYP+8*, SELTYP+9, SELTYP+10, CHKDEL+1
    GMTSN ENADHOC+1~
    GMTSNCNT ENADHOC+1~
    GMTSNEW SELTYP+1~, SELTYP+6*, SELTYP+10, SELTYP+21, CHKDEL+1, ENADHOC+1~, ENADHOC+5*, EXISTS+2!, LIST+4
    GMTSQIT MAIN+1~, MAIN+2*, SELTYP+5*, SELTYP+17*, SELTYP+20*, SELTYP+22, ENADHOC+3~, ENADHOC+5*, EXISTS+2!, LIST+2
    LIST+3*, LIST+4*, LIST+5*
    GMTSUM SELTYP+1~, SELTYP+6*, ENADHOC+2~, ENADHOC+8*, LIST+6
    I ENADHOC+1~
    IOP LIST+1~, LIST+6*
    L LIST+1~, LIST+6*
    LCNT GETCNT+1~*, GETCNT+2
    LI GETCNT+1~*
    NXTCMP EXISTS+1~*, EXISTS+3, LIST+3
    NXTCMP(0 EXISTS+1*
    P MAIN+1~, ENADHOC+2~
    SELCNT SELTYP+1~, ENADHOC+2~
    SOACTION EXISTS+2!
    TO LIST+1~, LIST+6*
    TWEENER EXISTS+2!
    U SELTYP+2*, SELTYP+6, SELTYP+7, SELTYP+8, SELTYP+10, CHKDEL+1, ENADHOC+8
    X SELTYP+1~, SELTYP+15~, ENADHOC+3~, ENADHOC+6*
    Y SELTYP+1~, SELTYP+5*, SELTYP+6, SELTYP+15~, SELTYP+16, SELTYP+18, SELTYP+19, ENADHOC+3~, ENADHOC+7*, ENADHOC+8
    ENADHOC+10, LIST+1~, LIST+4
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All