Routine: ACHSDN1

Package	Total	Call Graph
Contract Health Management Information System	3	($$DIR,$$DN,$$ZEROTH)^ACHS $$DIE^ACHSDN (PRIORCK,REASON)^ACHSDN2
VA Fileman	3	^DIC ^DIE ^DIR

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSDN ACHSDN3

Entry Points

Name	Field # of Occurrence
$$DIR^ACHS	PRMPRV+6, OTHER+2, PROV+1
$$DN^ACHS	PRMPRV+4, P1+14, P2+3, PROVCK+1, TYPE+9, DIAG+1, DIAG+4
$$ZEROTH^ACHS	RESC+3, IHSRES+3
$$DIE^ACHSDN	P1+7, P1+14, P2+1, P2+3, O1+1, O2+1, ACCT+1, TYPE+5, MEDPRI+11, ICD9+1 , CPT+1, DOCCK+12, DOCCK+14, COMMENT+1
PRIORCK^ACHSDN2	MEDPRI+13
REASON^ACHSDN2	TYPE+10
^DIC	RESC+10, IHSRES+9
^DIE	RESC+21
^DIR	DOCCK+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"A primary provider must be entered - try again.",!! Line Location: P1+15
Function Call: WRITE	Prompt: !!,*7,"A primary provider must be entered - try again." Line Location: PROVCK+2
Function Call: WRITE	Prompt: !!,*7,"A TYPE-OF-SERVICE entry must be entered - try again.",!! Line Location: TYPE+9
Function Call: WRITE	Prompt: !!,*7,"At least one PROCEDURE is required.",!! Line Location: DXCK+3
Function Call: WRITE	Prompt: !! Line Location: RESC+1
Function Call: WRITE	Prompt: !! Line Location: IHSRES+2
Function Call: WRITE	Prompt: !! Line Location: DOCCK+1
Function Call: WRITE	Prompt: !!,"If there are other vendors which must be provided with a copy of",!,"this denial letter, answer 'Y'. If not, answer 'N'." Line Location: PQ+1
Routine Call	DIE Line Location: RESC+21
Routine Call	DIC Line Location: RESC+10 IHSRES+9
Routine Call	DIR Line Location: DOCCK+8

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	RESC+3, IHSRES+3
^ACHSMPRI - [#9002073.1]	MEDPRI+9
^AUTTVNDR - [#9999999.11]	PRMPRV+3

Name	Line Occurrences
ACCT	OTHER+3, TYPE+8
COMMENT	DOCCK+11
CPT	DIAG+4
DOCCK	IHSRES+11
ICD9	DIAG+1
IHSRES	RESC+12
MEDPRI	MEDPRI+15, ICD9+2, CPT+2, RESC+11
O1	PROV+3
O2	PROV+3
OTHER	PROVCK+1, PROV+2, O1+2, O2+2
P1	PRMPRV+3
P2	PRMPRV+8
PRMPRV	P1+16, P2+2, PROVCK+3, OTHER+3, ACCT+3
PROV	OTHER+3
PROVCK	P1+14
RESC	RESC+26, IHSRES+10, DOCCK+10, DOCCK+13, DOCCK+17
TYPE	TYPE+9, TYPE+12, MEDPRI+12

Name	Field # of Occurrence
>> %	PRMPRV+6, PRMPRV+8, OTHER+2, OTHER+3, PROV+1*, PROV+3
ACHDENR	END+1!
>> ACHDSP	OTHER+1
>> ACHSA	RESC+3, RESC+6, RESC+7, RESC+17, IHSRES+3, IHSRES+6, IHSRES+7
>> ACHSERR	P1+10, TYPE+12
>> ACHSREF	P1+6, TYPE+4, MEDPRI+10
>> ACHSREF(	PRMPRV+3, TYPE+3, MEDPRI+3, MEDPRI+4, MEDPRI+7, MEDPRI+9
>> DA	RESC+15*
>> DA(1	RESC+6, RESC+17, IHSRES+6*
>> DA(2	RESC+5, RESC+16, IHSRES+5*
>> DIC	RESC+7, RESC+18, IHSRES+7
>> DIC("A"	RESC+2!
>> DIC(0	RESC+9, IHSRES+8
>> DIE	RESC+18*
DIR	DOCCK+2!, DOCCK+9!
DIR("?"	DOCCK+6, DOCCK+7
DIR("A"	DOCCK+4*
DIR("B"	DOCCK+5*
DIR(0	DOCCK+3*
>> DR	P1+6, P1+7, TYPE+4, TYPE+5, MEDPRI+10, MEDPRI+11, RESC+19, RESC+20*
DTOUT	PRMPRV+7, OTHER+3, PROV+2, END+1!
DUOUT	PRMPRV+7, OTHER+3, PROV+2, TYPE+13, MEDPRI+14, END+1!
DUZ(2	RESC+3, RESC+5, RESC+7, RESC+16, IHSRES+3, IHSRES+5, IHSRES+7
U	PRMPRV+3, MEDPRI+9, RESC+11, IHSRES+10, DOCCK+10
>> X	PRMPRV+4*, PRMPRV+5, RESC+11, IHSRES+10, DOCCK+10
>> Y	PRMPRV+1, PRMPRV+5, PRMPRV+6, P1+10, P2+2, ACCT+3, TYPE+3, TYPE+4, TYPE+8, MEDPRI+3 , MEDPRI+4, MEDPRI+9*, MEDPRI+10, MEDPRI+12, MEDPRI+15, ICD9+2, CPT+2, RESC+12, RESC+15, IHSRES+11 , DOCCK+11, DOCCK+13, DOCCK+17
>> Y1	PRMPRV+3*, P1+6