Routine: DGDIS

Information

DGDIS ;ALB/JDS - DISPOSITION A REGISTRATION ; 8/6/04 3:17pm

Source Information

Source file <DGDIS.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Registration	6	EN1^DGEN EN^DGMTR ($$MTS,EDT)^DGMTU EL^DGREGE LO^DGUTL PT^DGYZODS
Scheduling	4	FINAL^SCDXHLDR (BEFORE,EVT)^SDAMEVT3 EN^SDCODEL $$GETOE^SDOE
VA Fileman	3	H^%DTC ^DIC ^DIE
Kernel	2	^%ZIS $$FMTE^XLFDT
Uncategorized	1	ADD^A1B2UTL

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DG DISPOSITION APPLICATION DGREGE

Entry Points

External References

Name	Field # of Occurrence
H^%DTC	CHT
^%ZIS	DISP+5
ADD^A1B2UTL	ODS+5
EN1^DGEN	DISP+9
EN^DGMTR	MT+3
$$MTS^DGMTU	MT+4
EDT^DGMTU	MT+4
EL^DGREGE	DISP+7
LO^DGUTL	DGDIS+3
PT^DGYZODS	ODS+4
^DIC	FIND, DISP
^DIE	ANS+2, DISP+4, ODS+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+6
Function Call: WRITE	Prompt: !!,"Primary Eligibility Code is unspecified." Line Location: ANS+7
Function Call: WRITE	Prompt: !!,"Period of Service is unspecified." Line Location: ANS+8
Function Call: WRITE	Prompt: !!,"A disposition must be entered to continue.",!!,7,7 Line Location: DISP+0
Function Call: WRITE	Prompt: !!,"*** Registration dispositioned **",!!,7 Line Location: DISP+10
Function Call: WRITE	Prompt: !!,"* Disposition deleted ",!!,7,*7 Line Location: DEL+2
Routine Call	DIE Line Location: ANS+2 DISP+4 ODS+6
Routine Call	DIC Line Location: FIND DISP
Routine Call	%ZIS Line Location: DISP+5

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DISP+5
^DD(2.101	DP+1, DEL
^DG(40.8 - [#40.8]	DISP+6
^DG(43 - [#43]	GETL, DISP+5
^DIC(37 - [#37]	ACT+2
^DPT - [#2]	FIND+1, ANS+2, ANS+4, ANS+5, DISP+4, CHT, DEL, DEL+1, VALIDATE+5

Name	Line Occurrences
ACT	DISP+12
DEL	ANS+2, ANS+6, ANS+7, ANS+8, DISP
DISP	DISP
FIND	DONE, DEL+2
MT	DISP+8
ODS	DISP+1
Q	FIND, DONE, DEL+2
VALIDATE	DISP+11

Name	Field # of Occurrence
^(	FIND+1, ANS+4, ANS+5, DEL
^("DEV"	DISP+6
^("P"	ACT+2
^(0	FIND+1, ANS+2, DISP+4, DISP+5, DEL*, DEL+1
^(99	DISP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	Q!, CHT
%Y	Q!
>> %ZIS	DISP+5*
>> A1B2DT	ODS+5*
>> A1B2FL	ODS+5*
C	Q!
D0	Q!
D1	Q!
DA	FIND, FIND+1, ANS+2, DISP+4, Q!, CHT, ODS+5, ODS+7!, BEFORE+2~
DA(1	ANS+2, DISP+4, CHT
DDT	DISP+4*, Q!
DFN	FIND, ANS+2, ANS+4, ANS+5, DISP+4, DISP+7, DISP+9, DISP+11, Q!, DEL , DEL+1, MT+4, ACT+2, BEFORE~, BEFORE+3, EVT~, EVT+3, VALIDATE~, VALIDATE+5
DFN1	FIND+1, DISP+4, DISP+7, DISP+11, Q!, DEL, DEL+1, ACT+1~, BEFORE+2~, EVT+2~ , VALIDATE~, VALIDATE+5
DG1	Q!
DGA1	Q!
DGDFN	FIND, DISP+7, Q!, ACT+2, BEFORE+2~, EVT+2~, VALIDATE+2~
DGDFN1	FIND+1*, DISP+7, DISP+13!, Q!, BEFORE+2~, EVT+2~, VALIDATE+2~
DGDIS0	VALIDATE+4~, VALIDATE+5*, VALIDATE+6, VALIDATE+9
DGDISTYP	ODS+1~, ODS+2*
DGDIV	DISP+4*, DISP+6, Q!, EVT+2~, VALIDATE+2~
DGDOM	DISP+13!, EVT+2~, VALIDATE+2~
DGELIGX	ANS+3~, ANS+4*, ANS+6!, ANS+7!, ANS+8!
DGHEM	DISP+13!, EVT+2~, VALIDATE+2~
DGIO	Q!
DGIO(10	DISP+5, DISP+6
DGKAAS	DISP+13!, EVT+2~, VALIDATE+2~
DGL	DISP+13!, Q!, CHT, CHT+2, EVT+2~, VALIDATE+2~
DGNHCU	DISP+13!, 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+3~, ANS+5*, ANS+6!, ANS+7!, ANS+8!
DGREQF	MT+2~
DGSTRX	ANS+3~, ANS+6!, ANS+7!, ANS+8!
DGT	Q!
DGVST	VALIDATE+4~, VALIDATE+14*, VALIDATE+15, VALIDATE+18
DGW	DISP+13!, EVT+2~, VALIDATE+2~
>> DGXXXD	DISP+7*
DIC	FIND, DISP, Q!
DIC("A"	FIND!, DISP!
DIC("B"	DISP!
DIC("S"	FIND!, DISP
DIC(0	FIND, DISP
DIE	ANS+2, DISP+7, Q!, ODS+1~, ODS+6*, ODS+7!
DIE("NO^"	DISP+2*, DISP+4!
>> DISL	GETL*, CHT+2
DISP	DISP+4*, Q!, ACT+2, EVT+2~, VALIDATE+2~
DIV	EVT+2~, VALIDATE+2~
DP	ANS+2, DISP+4, Q!
DQ	Q!
DR	ANS+2, DISP+2, DISP+3, DISP+4, Q!, ODS+6*
DT	MT+4
DUZ	ANS+2, CHT+2
I	FIND+1, DP, Q!, DEL*, EVT+2~, VALIDATE+2~
I1	Q!
>> IOP	DISP+5*
>> IOS	DISP+5
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+13!, EVT+2~, VALIDATE+2~
MASDEV	DISP+13!, EVT+2~, VALIDATE+2~
PARA	DISP+13!, EVT+2~, VALIDATE+2~
POP	DISP+13!, 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~
U	DP+2, DISP+5, DISP+6, DEL, MT+4, VALIDATE+6, VALIDATE+9, VALIDATE+14
VA	Q!
VAROOT	Q!
X	DISP, DISP+6, Q!, CHT, DEL*
>> X1	CHT+1*
>> X2	CHT+1*
>> X3	CHT+1*, CHT+2
Y	FIND, DISP, DISP+4, DISP+5, Q!, CHT+2, ODS+2, ODS+4~, ODS+5
Y(0	DISP+2, ODS+3
Z	Q!

Customize PDF page

Package: Registration

Routine: DGDIS

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP
GETL
VALIDATE(DFN,DFN1)	; -- c/o validator ; -- use tag for NEWing
ODS	;if operation desert shield admission, create an entry in the ODS ADMISSIONS file
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
Q
MT	;Check if user requires a means test. Ask user if s/he wants to
DEL
DONE
ACT	;Execute Program Action
ANS	;
CHT
FIND
DP