Routine: ACHSDAR3

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	4	^DIC FILE^DICN ^DIE EN^DIWE
Contract Health Management Information System	3	($$DIR,$$LOCK,$$ZEROTH)^ACHS (END,START)^ACHSDAR4 ^ACHSDLK

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS DEN ALTRESCAPPEAL

Entry Points

Name	Comments	DBIA/ICR reference
DENDT	; --- Date Of Alternate Resource Denial"
PAT	;
OPTION	; --- Appeal Options
P4	;
P5	;
ENTER	;
DEV	;
ALRCMT	; --- Comments Concerning Alternate Resource Appeal

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,7,7,?10,"No Alternate Resources For This Patient. ",! Line Location: P4+3
Function Call: WRITE	Prompt: !!?10,"Alternate Resources Available For This Patient.",!! Line Location: P5+3
Function Call: WRITE	Prompt: !! Line Location: DENDT+1
Function Call: WRITE	Prompt: !!!?10,"Appeal Options",! Line Location: OPTION+1
Function Call: WRITE	Prompt: !?10,ACHD_". ",$P($G(^ACHSDENR(DUZ(2),13,ACHDX,0)),U) Line Location: OPTION+5
Function Call: WRITE	Prompt: !,"No Appeal options found for this facility!" Line Location: OPTION+7
Function Call: WRITE	Prompt: !!,"Enter Pertinent Comments Concerning Alternate Resource Appeal",!,"Or <RETURN> to Skip: ",!! Line Location: ALRCMT+1
Function Call: WRITE	Prompt: !! Line Location: DEV+1
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+7
Function Call: WRITE	Prompt: !! Line Location: ENTER+1
Function Call: WRITE	Prompt: !! Line Location: ENTER+9
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIE Line Location: DENDT+13 ENTER+14
Routine Call	DIC Line Location: ENTER+7
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	P4+2, P5+1, P5+5, P5+7, P5+11, DENDT+2, OPTION+14, ENTER+2
^ACHSDENR - [#9002072]	OPTION+4, OPTION+5
^AUTNINS - [#9999999.18]	P5+7

Name	Field # of Occurrence
>> %	P5+9, P5+10, P5+11, DENDT+4, DENDT+6, DENDT+11, OPTION+9, OPTION+11, OPTION+16, OPTION+18 , DEV+9
>> %ZIS	DEV+2*
>> ACHD	P5+4, P5+5, P5+7, OPTION+3, OPTION+5, OPTION+7, OPTION+9, OPTION+16
>> ACHDALRS	P5+1, P5+11, DENDT+2, DENDT+7, OPTION+14, OPTION+16, OPTION+19, OPTION+22, ALRCMT+2, ALRCMT+5
>> ACHDDAT	DENDT+2*, DENDT+4
>> ACHDLKER	PAT+3, P4+5, ALRCMT+7
>> ACHDOCT	PAT+1*
>> ACHDX	P5+4, P5+6, P5+7, P5+9, OPTION+3, OPTION+4, OPTION+5
>> ACHSA	P4+2, P5+1, P5+5, P5+7, P5+11, DENDT+2, DENDT+8, DENDT+10, OPTION+14, OPTION+16 , OPTION+19, OPTION+21, ALRCMT+2, ALRCMT+4, ENTER+2, ENTER+4, ENTER+5, ENTER+11
>> DA	DENDT+7*
>> DA(1	DENDT+8, OPTION+16, OPTION+22, ALRCMT+5, ENTER+4, ENTER+11
>> DA(2	DENDT+9, OPTION+16, OPTION+21, ALRCMT+4, ENTER+3, ENTER+10
>> DA(3	OPTION+16, OPTION+20, ALRCMT+3*
DD	OPTION+25!
>> DIC	OPTION+16, OPTION+19, ALRCMT+2, ENTER+5, ENTER+12
>> DIC(0	OPTION+23, ENTER+6
>> DIE	DENDT+10, ENTER+12
DO	OPTION+25!
>> DR	DENDT+11, ENTER+13
>> DTOUT	P5+10, DENDT+5, OPTION+12
>> DUOUT	P5+10, DENDT+5, DENDT+12, DENDT+14, OPTION+12
DUZ(2	P4+2, P5+1, P5+5, P5+7, P5+11, DENDT+2, DENDT+9, DENDT+10, OPTION+4, OPTION+5 , OPTION+14, OPTION+16, OPTION+19, OPTION+20, ALRCMT+2, ALRCMT+3, ENTER+2, ENTER+3, ENTER+5, ENTER+10
IO("Q"	DEV+5, DEV+6!
IO("S"	DEV+7
IOST	DEV+7
>> POP	DEV+4
U	P4+2, P5+1, P5+7, P5+11, DENDT+2, OPTION+5, ALRCMT+7
>> X	OPTION+18*, ALRCMT+7
>> Y	ENTER+8
>> ZTDESC	DEV+8*
>> ZTRTN	DEV+8*
>> ZTSAVE(	DEV+9*
>> ZTSK	DEV+10