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

Package: Registration

Routine: DGSAUTL


Information

DGSAUTL ;ALB/MTC - SHARING AGREEMENTS UTILITY FUNCTIONS ; 9/12/13 9:54am

;;5.3;Registration;**114,194,216,872**;Aug 13, 1993;Build 28

Source Information

Source file <DGSAUTL.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  FILE^DICN  ^DIE  
List Manager 1 $$UPPER^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Registration 5 DG SHARING AGREEMENT UPDATE  DGPM ADMIT  DGPM ASIH ADMIT  DGPMX1  ^DG(35.2  
Scheduling 3 SD SHARING AGREEMENT UPDATE  SDAMWI  SDM  

Entry Points

Name Comments DBIA/ICR reference
DISP ;-- display choices
1
EN(ORG) ;-- Entry point to Add/Edit Sharing Agreement Sub-Categories
SUB(ATAR,SOURCE,DEFAULT) ;-- This function will check and prompt for sharing
; agreement sub-categories associated with either an Admitting Reg
; or a Appointment Type.
  • ICR #5928
    • Status: Active
    • Usage: Private
    GETAR() ;-- get admitting regulation
    GOGOQ
    GOGO(ORG,ATR,CAT) ;-- This function does something
    SUBQ ;
    HLP ;-- help for Sub-Category file
    HLPQ ;
    ENQ ;
    GET(ORG) ;-- This function will get the appropriate App Type or Admit Reg
    GETSA(ATAR,SOURCE,ACTIVE) ;-- This function will build the DGSA array containing all the
    ; sub-categories associated with an admitting reg.
    ADCAT(ADCAT) ;-- This function will prompt the user for the category
    ; associated with the admitting regulation selected.
    CAT(DGORG) ;
    GETAT() ;-- get appointment type

    External References

    Name Field # of Occurrence
    ^DIC GETAT+5, GETAR+5, CAT+5
    FILE^DICN GOGO+13
    ^DIE GOGO+8
    $$UPPER^VALM1 1+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"APPOINTMENT TYPE :",$P(DGAPT,U,2),!,?5,"CATEGORY :"
    • Line Location: HLP+9
    Function Call: WRITE
    • Prompt: !,"VA ADMITTING REGULATION :",$P(DGAPT,U,2),!,?5,"CATEGORY :"
    • Line Location: HLP+11
    Function Call: WRITE
    • Prompt: !,?10,$P(^DG(35.2,$P(^DG(35.1,DGK,0),U,2),0),U),?35,$S($P(^DG(35.1,DGK,0),U,3)=1:"ACTIVE",1:"INACTIVE")
    • Line Location: HLP+12
    Function Call: WRITE
    • Prompt: !,"THE ["_DGNAME_$S(SOURCE=1:"] ADMITTING REGULATION",1:"] APPOINTMENT TYPE")
    • Line Location: DISP+7
    Function Call: WRITE
    • Prompt: !,"HAS THE FOLLOWING SUB-CATEGORIES DEFINED."
    • Line Location: DISP+8
    Function Call: WRITE
    • Prompt: !?5,$P(DGSA(1,X),U,2)
    • Line Location: DISP+10
    Function Call: WRITE
    • Prompt: !,"ENTER THE SUB-CAT FOR THE ["_DGNAME_$S(SOURCE=1:"] ADMITTING REG",1:"] APPT TYPE")_": "_$P(DGDEF,U,2)_"// "
    • Line Location: 1+0
    Function Call: WRITE
    • Prompt: !?5,I_" "_$P(RES(I),U,2)
    • Line Location: 1+16
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: 1+18
    Function Call: WRITE
    • Prompt: " "_$P(RES(+X),U,2)
    • Line Location: 1+18
    Routine Call
    • DIE
    • Line Location:
      • GOGO+8
    Routine Call
    • DIC
    • Line Location:
      • GETAT+5
      • GETAR+5
      • CAT+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DG(35.1 - [#35.1] Classic Fileman Calls
    ^DG(35.2 - [#35.2] Classic Fileman Calls
    ^SD(409.1 - [#409.1] Classic Fileman Calls
    ^DIC(43.4 - [#43.4] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(35.1 - [#35.1] GOGO+6, HLP+7, HLP+12, GETSA+6, GETSA+7
    ^DG(35.2 - [#35.2] HLP+12, GETSA+8, SUB+14
    ^DGPM - [#405] ADCAT+4
    ^DIC(43.4 - [#43.4] DISP+4
    ^SD(409.1 - [#409.1] DISP+5

    Label References

    Name Line Occurrences
    $$CAT EN+12
    $$GET EN+8
    $$GETAR GET+3
    $$GETAT GET+2
    $$SUB ADCAT+4
    1 1+10, 1+15
    DISP 1+10
    ENQ EN+10, EN+13
    GETSA SUB+13
    GOGO EN+15
    GOGOQ GOGO+2
    HLPQ HLP+2
    SUBQ SUB+19, SUB+21, 1+3, 1+5, 1+7

    Naked Globals

    Name Field # of Occurrence
    ^( HLP+7, GETSA+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACTIVE GETSA~, GETSA+7
    ADCAT ADCAT~, ADCAT+4
    ALLEL SUB+10~, DISP+2*, DISP+11*, 1+10, 1+15
    ATAR GETSA~, GETSA+4, GETSA+6, SUB~, SUB+13, DISP+4, DISP+5
    ATR GOGO~, GOGO+2, GOGO+6, GOGO+10
    CAT GOGO~, GOGO+2, GOGO+6, GOGO+12
    CNT 1+11~*, 1+14*, 1+15, 1+16, 1+17
    DA GOGO+4~, GOGO+6*, GOGO+7, ADCAT+4
    DD GOGO+13!
    DEFAULT SUB~, SUB+14, SUB+15
    DGAPT EN+6~, EN+8*, EN+10, EN+15, HLP+2, HLP+7, HLP+9, HLP+11
    DGCAT EN+6~, EN+12*, EN+13, EN+15
    DGDEF SUB+10~, SUB+14*, SUB+15*, SUB+23*, 1, 1+7
    DGEDMODE GOGO+8~
    DGI HLP+4~, HLP+7*
    DGJ HLP+4~, HLP+5*, HLP+9*, HLP+11*
    >> DGK HLP+7*, HLP+12
    >> DGNAME DISP+4*, DISP+5*, DISP+7, 1
    DGORG CAT~, HLP+2, HLP+6, HLP+8, HLP+10
    DGSA ADCAT+3~, SUB+19, SUBQ+1!
    DGSA(1 GETSA+8*, SUB+20, SUB+21, SUB+23, DISP+9, DISP+10, DISP+11, 1+13, 1+14
    DGSCREEN GETSA+7~*, GETSA+8
    DGX GOGO+4~, GOGO+5*, GOGO+6, GET+1~, GET+2*, GET+3*, GET+4, HLP+4~, HLP+6*, HLP+7
    , GETSA+5~, GETSA+6*, GETSA+7, GETSA+8
    DGY GETSA+5~, GETSA+6*
    DIC GOGO+11*, GOGOQ!, GETAT+1!, GETAT+2*, GETAT+6!, GETAR+1~, GETAR+2*, GETAR+6!, CAT+1~, CAT+3*
    , CAT+6!
    DIC("DR" GOGO+12*
    DIC("S" GETAT+3*, GETAR+3*
    DIC("V" GOGO+5*
    DIC(0 GOGO+11*, GETAT+4*, GETAR+4*, CAT+4*
    DIE GOGO+8*, GOGOQ!
    >> DIK GOGO+11*
    >> DLAYGO GOGO+11*
    DO GOGO+13!
    >> DR GOGO+8*
    DTIME 1+1, 1+18
    EMP SUB+10~, 1+12*, 1+14, 1+15
    I 1+16~*
    ORG EN~, EN+8, EN+12, EN+15, GOGO~, GOGO+2, GOGO+5, GOGO+10, GET~, GET+2
    , GET+3
    RES 1+11~
    RES( 1+14*, 1+16, 1+18
    RESULT ADCAT+3~, ADCAT+4*, ADCAT+5, SUB+10~, SUB+17*, SUB+21*, 1+7*, 1+14*, 1+15, 1+18*
    , SUBQ+2*, SUBQ+5
    SOURCE GETSA~, GETSA+6, SUB~, SUB+13, DISP+4, DISP+7, 1
    U HLP+9, HLP+11, HLP+12, ADCAT+4, GETSA+7, GETSA+8, SUB+14, SUB+15, DISP+4, DISP+5
    , DISP+10, DISP+11, 1, 1+5, 1+10, 1+14, 1+15, 1+16, 1+18, SUBQ+2
    X GOGO+10*, SUB+10~, SUB+20*, SUB+21, SUB+23, DISP+9*, DISP+10, DISP+11, 1+1*, 1+5
    , 1+7, 1+9*, 1+10, 1+12, 1+13*, 1+14, 1+15, 1+18*
    Y GETAT+1!, GETAT+7, GETAR+1~, GETAR+7, CAT+1~, CAT+7, SUB+10~
    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