Routine: DGMTHL1

Information

DGMTHL1 ;ALB/CJM/TDM - Hardship Determinations - Build List Area;13 JUN 1997 08:00 am ; 8/29/02 4:50pm

Source Information

Source file <DGMTHL1.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Registration	6	SET^DGENL1 (AFTER,EN,PRIOR)^DGMTEVT ($$DELETE,$$EXT,$$GETCODE,$$STORE)^DGMTH INIT^DGMTHL $$GETSITE^DGMTU4 (FULL,PAUSE)^VALM1
VA Fileman	2	^DIE ^DIR
Income Verification Match	1	$$LOG^IVMPLOG
Kernel	1	($$FMTE,$$NOW)^XLFDT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DGMTH DGMTHL

Entry Points

Name	Comments	DBIA/ICR reference
GETSTAT(HARDSHIP,EDITFLG)	;
GETEFF(HARDSHIP)	;
RUSURE()	;
SET(DGARY,HARDSHIP,DGLINE,DGCNT)	;
CHKADD(HARDSHIP)	;
EN(DGARY,HARDSHIP,DGCNT)	;Entry point to build list area ; Input; ; DGARY Global array subscript ; HARDSHIP - hardship array (pass by reference) ; Output -- DGCNT Number of lines in the list
GETREV(HARDSHIP)	;
COMMENTS(HARDSHIP)	;
AFTER(HARDSHIP)	;calls means test event driver
GETREAS(HARDSHIP)	;
EDIT(HARDSHIP)	;
CHKDEL(HARDSHIP)	;
DELETE(HARDSHIP)	;
PRIOR(HARDSHIP)	;set up for means test event driver
ADD(HARDSHIP)	;

External References

Name	Field # of Occurrence
SET^DGENL1	SET+9, SET+11, SET+13, SET+15, SET+17, SET+20, SET+22, SET+24, SET+26, SET+28 , SET+30, SET+33, SET+35, SET+39, SET+43
AFTER^DGMTEVT	AFTER+1
EN^DGMTEVT	AFTER+3
PRIOR^DGMTEVT	PRIOR+6
$$DELETE^DGMTH	DELETE+7
$$EXT^DGMTH	SET+11, SET+13, SET+15, SET+17, SET+20, SET+22, SET+24, SET+26, SET+28, SET+30 , SET+33, SET+35, GETSTAT+16
$$GETCODE^DGMTH	CHKADD+9, ADD+11, GETSTAT+10
$$STORE^DGMTH	ADD+27, EDIT+15
INIT^DGMTHL	ADD+33, EDIT+21, DELETE+8, COMMENTS+12
$$GETSITE^DGMTU4	ADD+14, CHKDEL+4
^DIE	COMMENTS+11
^DIR	GETSTAT+18, GETEFF+12, GETREV+20, GETREAS+12, RUSURE+9
$$LOG^IVMPLOG	ADD+30, EDIT+18
FULL^VALM1	GETSTAT+17, COMMENTS+10
PAUSE^VALM1	ADD+9, ADD+12, ADD+31, EDIT+19, DELETE+7, COMMENTS+9
$$FMTE^XLFDT	GETEFF+11, GETREV+12, GETREV+18
$$NOW^XLFDT	ADD+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"YOUR DUZ IS NOT DEFINED!" Line Location: ADD+9
Function Call: WRITE	Prompt: !,"PATIENT NOT CURRENTLY RESPONSIBLE FOR COPAYMENT CHARGES!" Line Location: ADD+12
Function Call: WRITE	Prompt: !,$G(ERROR) Line Location: ADD+31
Function Call: WRITE	Prompt: !,$G(ERROR) Line Location: EDIT+19
Function Call: WRITE	Prompt: !,"AN ERROR OCCURRED - "_$G(ERROR) Line Location: DELETE+7
Function Call: WRITE	Prompt: !,DIR("?") Line Location: GETREV+24
Function Call: WRITE	Prompt: !,"YOUR DUZ IS NOT DEFINED!" Line Location: COMMENTS+9
Routine Call	DIE Line Location: COMMENTS+11
Routine Call	DIR Line Location: GETSTAT+18 GETEFF+12 GETREV+20 GETREAS+12 RUSURE+9

Name	Line Occurrences (* Changed, ! Killed)
^DG(408.32 - [#408.32]	GETSTAT+23
^DGMT(408.31 - [#408.31]	SET+37, SET+42, SET+43

Name	Line Occurrences
$$GETEFF	ADD+23, EDIT+11
$$GETREAS	ADD+25, EDIT+13
$$GETREV	ADD+24, EDIT+12
$$GETSTAT	ADD+22, EDIT+10
$$RUSURE	DELETE+7
AFTER	ADD+32, EDIT+20
PRIOR	ADD+26, EDIT+14
SET	EN+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CODE	CHKADD+7~, CHKADD+8, CHKADD+9, CHKADD+10, ADD+8~, ADD+10, ADD+11, ADD+12
DA	COMMENTS+8~, COMMENTS+11*
>> DFN	PRIOR+1*
DGARY	EN~, EN+8, SET~, SET+9, SET+11, SET+13, SET+15, SET+17, SET+20, SET+22 , SET+24, SET+26, SET+28, SET+30, SET+33, SET+35, SET+39, SET+43
DGCNT	EN~, EN+7*, EN+8, SET~, SET+9, SET+11, SET+13, SET+15, SET+17, SET+20 , SET+22, SET+24, SET+26, SET+28, SET+30, SET+33, SET+35, SET+39, SET+43
DGLINE	EN+6~, EN+7, EN+8, SET~, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13 , SET+14, SET+15, SET+16, SET+17, SET+19, SET+20, SET+21, SET+22, SET+23, SET+24 , SET+25, SET+26, SET+27, SET+28, SET+29, SET+30, SET+31, SET+33, SET+34, SET+35 , SET+36, SET+39, SET+40, SET+43, SET+44*
DGMTA	AFTER+4!
DGMTACT	PRIOR+4*, AFTER+4!
DGMTDT	AFTER+4!
DGMTI	PRIOR+2*, AFTER+4!
DGMTINF	AFTER+2*, AFTER+4!
DGMTP	AFTER+4!
DGMTS	PRIOR+3*, AFTER+4!
DGMTYPT	PRIOR+5*, AFTER+4!
DGSTART	SET+6~, SET+8*
DIE	COMMENTS+8~, COMMENTS+11*
DIR	GETSTAT+9~, GETEFF+8~, GETREV+15~, GETREAS+8~, RUSURE+5~
DIR("?"	GETREV+13, GETREV+19, GETREV+24
DIR("A"	GETSTAT+15, GETEFF+10, GETREV+11, GETREV+17, GETREAS+10, RUSURE+7
DIR("B"	GETSTAT+16, GETEFF+11, GETREV+12, GETREV+18, GETREAS+11!, RUSURE+8
DIR("S"	GETSTAT+12, GETSTAT+13, GETSTAT+14*
DIR(0	GETSTAT+11, GETEFF+9, GETREV+10, GETREV+16, GETREAS+9, RUSURE+6
>> DIROUT	GETREV+21
>> DIRUT	GETSTAT+19, GETEFF+13, RUSURE+10
DR	COMMENTS+8~, COMMENTS+11*
DT	ADD+13, GETEFF+9, GETREV+24
>> DTOUT	GETREV+21, GETREAS+13
>> DUOUT	GETREV+21, GETREAS+13
DUZ	ADD+9, ADD+14, ADD+17, ADD+18, CHKDEL+4, COMMENTS+9
EDITFLG	GETSTAT~, GETSTAT+10
ERROR	ADD+8~, ADD+27, ADD+31, EDIT+8~, EDIT+15, EDIT+19, DELETE+6~, DELETE+7
EVENTS	ADD+28~, ADD+30, EDIT+16~, EDIT+18
EVENTS("IVM"	ADD+29, EDIT+17
FLTRSTAT	GETSTAT+9~, GETSTAT+10*, GETSTAT+13, GETSTAT+14
HARDSHIP	EN~, EN+8, SET~, CHKADD~, ADD~, ADD+22, ADD+23, ADD+24, ADD+25, ADD+26 , ADD+27, ADD+32, EDIT~, EDIT+10, EDIT+11, EDIT+12, EDIT+13, EDIT+14, EDIT+15, EDIT+20 , CHKDEL~, DELETE~, DELETE+7, GETSTAT~, GETEFF~, GETREV~, GETREAS~, PRIOR~, AFTER~, COMMENTS~
HARDSHIP("AGREE"	SET+17, GETSTAT+23*
HARDSHIP("BY"	SET+28, ADD+17*, CHKDEL+4
HARDSHIP("CTG	RY CHNGD BY" , SET+35, ADD+18*
HARDSHIP("CUR	RENT STATUS" , SET+11, CHKADD+9, ADD+11, ADD+15, GETSTAT+10, GETSTAT+16, GETSTAT+21*, PRIOR+3
HARDSHIP("DFN"	ADD+30, EDIT+18, PRIOR+1
HARDSHIP("DT/	TM CTGRY CHNGD" , SET+33, ADD+19*
HARDSHIP("EFFECTIVE"	SET+22, ADD+13, GETEFF+11, GETEFF+15
HARDSHIP("HARDSHIP?"	SET+20, ADD+20*, CHKDEL+4
HARDSHIP("MTIEN"	SET+37, SET+42, SET+43, PRIOR+2, COMMENTS+11
HARDSHIP("REASON"	SET+30, GETREAS+11, GETREAS+14*
HARDSHIP("REVIEW"	SET+24, GETREV+12, GETREV+18, GETREV+26*
HARDSHIP("SITE"	SET+26, ADD+14*, CHKDEL+4
HARDSHIP("TES	T DATE" , SET+15, GETEFF+9, GETEFF+11, T STATUS" , ADD+15*, GETSTAT+10
HARDSHIP("YEAR"	SET+13, ADD+30, EDIT+18
I	AFTER+4!
>> IOINHI	SET+39
>> IOINORM	SET+39
>> IORVOFF	SET+9
>> IORVON	SET+9
J	AFTER+4!
LINE	SET+6~, SET+38~, SET+41, SET+42, SET+43
RET	GETREV+8~, GETREV+9, GETREV+21, GETREV+22, GETREV+23, GETREV+25*, GETREV+26, GETREV+27
STOP	GETREV+8~, GETREV+9, GETREV+14, GETREV+21, GETREV+22, GETREV+23, GETREV+25*
U	GETSTAT+23
>> VALMBCK	ADD+9, ADD+34, EDIT+22, DELETE+9, GETSTAT+24, COMMENTS+9, COMMENTS+14*
>> VALMBG	COMMENTS+13*
>> VALMCNT	COMMENTS+13
X	GETREV+8~, GETREV+22
Y	GETSTAT+20, GETSTAT+21, GETSTAT+23, GETEFF+14, GETEFF+15, GETREV+8~, GETREV+22*, GETREV+23, GETREV+24, GETREV+26 , GETREAS+14, AFTER+4!, RUSURE+11

Customize PDF page

Package: Registration

Routine: DGMTHL1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: