Routine: DGDIS

Package	Total	Call Graph
Registration	8	EN1^DGEN $$STATUS^DGENA $$GET^DGENPTA EN^DGMTR ($$MTS,EDT)^DGMTU EL^DGREGE LO^DGUTL PT^DGYZODS
Scheduling	4	FINAL^SCDXHLDR (BEFORE,EVT)^SDAMEVT3 EN^SDCODEL $$GETOE^SDOE
VA FileMan	4	H^%DTC ^DIC ^DIE $$GET1^DIQ
Kernel	2	^%ZIS $$FMTE^XLFDT
ODS	1	ADD^A1B2UTL

Package	Total	Caller Graph
Registration	2	DG DISPOSITION APPLICATION DGREGE

Entry Points

Name	Comments	DBIA/ICR reference
GETL
FIND
DP
ANS	;
DISP
DONE
Q
CHT
DEL
ODS	;if operation desert shield admission, create an entry in the ODS ADMISSIONS file
MT	;Check if user requires a means test. Ask user if s/he wants to
ACT	;Execute Program Action
BEFORE(DFN,SDDT,SDEVT,SDISHDL)	; -- set 'before' vars for opt evt drv ; -- use tag for NEWing
EVT(DFN,SDDT,SDEVT,SDISHDL)	; -- opt evt drv ; -- use tag for NEWing
VALIDATE(DFN,DFN1)	; -- c/o validator ; -- use tag for NEWing

External References

Name	Field # of Occurrence
H^%DTC	CHT
^%ZIS	DISP+18
ADD^A1B2UTL	ODS+5
EN1^DGEN	DISP+22
$$STATUS^DGENA	ANS+3
$$GET^DGENPTA	ANS+4
EN^DGMTR	MT+3
$$MTS^DGMTU	MT+4
EDT^DGMTU	MT+4
EL^DGREGE	DISP+20
LO^DGUTL	DGDIS+3
PT^DGYZODS	ODS+4
^DIC	FIND, DISP+6, DISP+9, DISP+10, DISP+12
^DIE	ANS+9, ANS+10, ANS+11, ANS+13, DISP+17, ODS+6
$$GET1^DIQ	ANS+6
FINAL^SCDXHLDR	VALIDATE+18
BEFORE^SDAMEVT3	BEFORE+3
EVT^SDAMEVT3	EVT+3
EN^SDCODEL	DEL+1
$$GETOE^SDOE	VALIDATE+13
$$FMTE^XLFDT	DP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no open registrations to disposition for this patient.",!!,7,7 Line Location: FIND+1
Function Call: WRITE	Prompt: !!,"LOG DATE",?20,"TYPE OF BENEFIT APPLIED FOR",! Line Location: DP+0
Function Call: WRITE	Prompt: "-" Line Location: DP+0
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($E($P(L,U),1,12),"5Z"),?20,$P($P(L2,L3,2),";",1) Line Location: DP+2
Function Call: WRITE	Prompt: !!,"Primary Eligibility Code and Period of Service are unspecified." Line Location: ANS+18
Function Call: WRITE	Prompt: !!,"Primary Eligibility Code is unspecified." Line Location: ANS+19
Function Call: WRITE	Prompt: !!,"Period of Service is unspecified." Line Location: ANS+20
Function Call: WRITE	Prompt: ! Line Location: DISP+5
Function Call: WRITE	Prompt: !!,"A disposition must be entered to continue.",!!,7,7 Line Location: DISP+6
Function Call: WRITE	Prompt: ! Line Location: DISP+8
Function Call: WRITE	Prompt: !!,"A disposition must be entered to continue.",!!,7,7 Line Location: DISP+9
Function Call: WRITE	Prompt: !!,"A disposition must be entered to continue.",!!,7,7 Line Location: DISP+10
Function Call: WRITE	Prompt: !!,"A disposition must be entered to continue.",!!,7,7 Line Location: DISP+12
Function Call: WRITE	Prompt: !!,"*** Registration dispositioned **",!!,7 Line Location: DISP+23
Function Call: WRITE	Prompt: !!,"* Disposition deleted ",!!,7,*7 Line Location: DEL+2
Routine Call	DIC Line Location: FIND DISP+6 DISP+9 DISP+10 DISP+12
Routine Call	DIE Line Location: ANS+9 ANS+10 ANS+11 ANS+13 DISP+17 ODS+6
Routine Call	%ZIS Line Location: DISP+18

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
2.101	GET1^DIQ
^DIC(37 - [#37]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DISP+18
^DD(2.101	DP+1, DEL
^DG(40.8 - [#40.8]	DISP+19
^DG(43 - [#43]	GETL, DISP+18
^DIC(37 - [#37]	ACT+2
^DPT - [#2]	FIND+1, ANS+9, ANS+10, ANS+11, ANS+13, ANS+16, ANS+17, DISP+17, CHT, DEL , DEL+1, VALIDATE+5

Label References

Name	Line Occurrences
ACT	DISP+25
DEL	ANS+9, ANS+10, ANS+11, ANS+13, ANS+18, ANS+19, ANS+20, DISP+6, DISP+9, DISP+10 , DISP+12
DISP	DISP+6, DISP+9, DISP+10, DISP+12
FIND	DONE, DEL+2
MT	DISP+21
ODS	DISP+14
Q	FIND, ANS+15, DISP+13, DONE, DEL+2
VALIDATE	DISP+24

Naked Globals

Name	Field # of Occurrence
^(	FIND+1, ANS+16, ANS+17, DEL
^("DEV"	DISP+19
^("P"	ACT+2
^(0	FIND+1, ANS+9, ANS+10, ANS+11, ANS+13, DISP+17, DISP+18, DEL*, DEL+1
^(99	DISP+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	Q!, CHT
%Y	Q!
>> %ZIS	DISP+18*
>> A1B2DT	ODS+5*
>> A1B2FL	ODS+5*
C	Q!
D0	Q!
D1	Q!
DA	FIND, FIND+1, ANS+9, ANS+10, ANS+11, ANS+13, DISP+17, Q!, CHT, ODS+5 , ODS+7!, BEFORE+2~
DA(1	ANS+9, ANS+10, ANS+11, ANS+13, DISP+17*, CHT
DDT	DISP+17*, Q!
DFN	FIND, ANS+3, ANS+4, ANS+6, ANS+9, ANS+10, ANS+11, ANS+13, ANS+15, ANS+16 , ANS+17, DISP+17, DISP+20, DISP+22, DISP+24, Q!, DEL, DEL+1, MT+4, ACT+2 , BEFORE~, BEFORE+3, EVT~, EVT+3, VALIDATE~, VALIDATE+5
DFN1	FIND+1, ANS+6, DISP+17, DISP+20, DISP+24, Q!, DEL, DEL+1, ACT+1~, BEFORE+2~ , EVT+2~, VALIDATE~, VALIDATE+5
DG1	Q!
DGA1	Q!
DGDFN	FIND, DISP+20, Q!, ACT+2, BEFORE+2~, EVT+2~, VALIDATE+2~
DGDFN1	FIND+1*, DISP+20, DISP+26!, Q!, BEFORE+2~, EVT+2~, VALIDATE+2~
DGDIS0	VALIDATE+4~, VALIDATE+5*, VALIDATE+6, VALIDATE+9
DGDISTYP	ODS+1~, ODS+2*
DGDIV	DISP+17*, DISP+19, Q!, EVT+2~, VALIDATE+2~
DGDOM	DISP+26!, EVT+2~, VALIDATE+2~
DGELIGX	ANS+14~, ANS+16*, ANS+18!, ANS+19!, ANS+20!
>> DGENPTA	ANS+4
>> DGENPTA("INELDATE"	ANS+4
DGENRYN	ANS+3~, ANS+5*
DGHEM	DISP+26!, EVT+2~, VALIDATE+2~
DGINELIG	ANS+3~, ANS+4*, ANS+8, ANS+12, DISP+2, DISP+11
DGIO	Q!
DGIO(10	DISP+18, DISP+19
DGKAAS	DISP+26!, EVT+2~, VALIDATE+2~
DGL	DISP+26!, Q!, CHT, CHT+2, EVT+2~, VALIDATE+2~
DGNHCU	DISP+26!, EVT+2~, VALIDATE+2~
DGODS	Q+1!, ODS+2*, ODS+4
>> DGODSE	ODS+5*
DGODSND	DP+3*, Q+1!, ODS+5, BEFORE+2~
DGOE	VALIDATE+4~, VALIDATE+9*, VALIDATE+10, VALIDATE+13
DGOE0	VALIDATE+4~, VALIDATE+13*, VALIDATE+14
DGPOSX	ANS+14~, ANS+17*, ANS+18!, ANS+19!, ANS+20!
DGREQF	MT+2~
DGSTRX	ANS+14~, ANS+18!, ANS+19!, ANS+20!
DGT	Q!
DGVST	VALIDATE+4~, VALIDATE+14*, VALIDATE+15, VALIDATE+18
DGW	DISP+26!, EVT+2~, VALIDATE+2~
>> DGXXXD	DISP+20*
DIC	FIND, DISP+5, DISP+8, DISP+10, DISP+12*, Q!
DIC("A"	FIND!, DISP+5, DISP+6!, DISP+8, DISP+9!, DISP+10!, DISP+12*!
DIC("B"	DISP+6*!, DISP+9!, DISP+10!, DISP+12!
DIC("S"	FIND!, DISP+5, DISP+8, DISP+10, DISP+12*
DIC(0	FIND, DISP+5, DISP+8, DISP+10, DISP+12*
DIE	ANS+9, ANS+10, ANS+11, ANS+13, DISP+20, Q!, ODS+1~, ODS+6, ODS+7!
DIE("NO^"	DISP+15*, DISP+17!
>> DISL	GETL*, CHT+2
DISP	DISP+17*, Q!, ACT+2, EVT+2~, VALIDATE+2~
DIV	EVT+2~, VALIDATE+2~
DP	ANS+9, ANS+10, ANS+11, ANS+13, DISP+17*, Q!
DQ	Q!
DR	ANS+9, ANS+10, ANS+11, ANS+13, DISP+15, DISP+16, DISP+17, Q!, ODS+6
DT	MT+4
DUZ	ANS+9, ANS+10, ANS+11, ANS+13, CHT+2
I	FIND+1, DP, Q!, DEL*, EVT+2~, VALIDATE+2~
I1	Q!
>> IOP	DISP+18*
>> IOS	DISP+18
L	GETL, FIND+1, DP+1, DP+2, DP+3, Q!, CHT, DEL
>> L1	CHT*, CHT+1
>> L2	DP+1, DP+2, CHT, CHT+1
>> L3	DP+1*, DP+2
>> LL1	CHT*, CHT+1
>> LL2	CHT*, CHT+1
MASD	DISP+26!, EVT+2~, VALIDATE+2~
MASDEV	DISP+26!, EVT+2~, VALIDATE+2~
PARA	DISP+26!, EVT+2~, VALIDATE+2~
POP	DISP+26!, EVT+2~, VALIDATE+2~
SD321	Q!, EVT+2~, VALIDATE+2~
SDDIV	Q!, EVT+2~, VALIDATE+2~
SDDT	BEFORE~, BEFORE+3, EVT~, EVT+3
SDEVT	BEFORE~, BEFORE+3, EVT~, EVT+3
SDISDEL	Q+1!
SDISHDL	GETL~, DEL+1, BEFORE~, BEFORE+3, EVT~, EVT+3
SDL	FIND+1*, Q!, EVT+2~, VALIDATE+2~
SEEN	ANS+6~*, ANS+9, ANS+10, DISP+4, DISP+7
STATUS	ANS+3~*, ANS+5, ANS+8, ANS+11, ANS+12, DISP+2, DISP+10, DISP+11
U	DP+2, DISP+18, DISP+19, DEL, MT+4, VALIDATE+6, VALIDATE+9, VALIDATE+14
VA	Q!
VAROOT	Q!
X	DISP+6, DISP+9, DISP+10, DISP+12, DISP+19, Q!, CHT, DEL*
>> X1	CHT+1*
>> X2	CHT+1*
>> X3	CHT+1*, CHT+2
Y	FIND, DISP+6, DISP+9, DISP+10, DISP+12, DISP+13, DISP+17, DISP+18, Q!, CHT+2 , ODS+2, ODS+4~, ODS+5
Y(0	DISP+15, ODS+3
Z	Q!

Customize PDF page

Package: Registration

Routine: DGDIS

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: