Routine: DGSAUTL

Information

DGSAUTL ;ALB/MTC - SHARING AGREEMENTS UTILITY FUNCTIONS ; 16 JAN 97

Source Information

Source file <DGSAUTL.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN ^DIE
Registration	1	$$UPPER^VALM1

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Scheduling	3	SD SHARING AGREEMENT UPDATE SDAMWI SDM
Registration	2	DG SHARING AGREEMENT UPDATE DGPMX1

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+18, SUB+20, 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+22*, 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+18, SUBQ+1!
DGSA(1	GETSA+8*, SUB+19, SUB+20, SUB+22, 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+20, 1+7, 1+14, 1+15, 1+18 , SUBQ+2
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
X	GOGO+10, SUB+10~, SUB+19, SUB+20, SUB+22, 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~

Customize PDF page

Package: Registration

Routine: DGSAUTL

Call Graph Total: 4

Caller Graph Total: 5