Routine: ACHSEOBC

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS $$DEL^%ZISH $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	1	($$IM,$$LOC,NOW,RTRN)^ACHS
IHS VA Utilities	1	$$DIR^XBDIR

Package

Total

Call Graph

(,HOME)^%ZIS $$DEL^%ZISH $$FMTE^XLFDT $$REPEAT^XLFSTR

($$IM,$$LOC,NOW,RTRN)^ACHS

$$DIR^XBDIR

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSEOB ACHSEOBB

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
HDR	;
HDR1	;
FILDELF	;
FILDELC	;
FILDEND	;
FILDELA	;
FILDELK1	;
REPORT	;EP - Print EOBR processing summary report.
FILDELK2	;
TOT	;
FILDELC1	;
FILDELC2	;
REPORT1	;
FILDEL	;EP - Delete EOBR import files.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,?10,"NOT AN ENTRY POINT" Line Location: ACHSEOBC+4
Function Call: WRITE	Prompt: !!?10,ACHSZFN," has been DELETED" Line Location: FILDELK2+3
Function Call: WRITE	Prompt: !?10,$P(^DIC(4,ACHSZFPT,0),U,1),?55,$J($FN(ACHSZFCT(ACHSZFPT),","),10),! Line Location: REPORT1+3
Function Call: WRITE	Prompt: @IOF,ACHSTIME,!,?28,"CHS EOBR PROCESSING REPORT",?67,"PAGE ",$J(ACHSPG,3),!,?22,"for Documents Processed on: ",$$FMTE^XLFDT(ACHSEOBD),!,?40-(($L($$LOC^ACHS)+4)\2),"for ",$$LOC^ACHS,! Line Location: HDR+2
Function Call: WRITE	Prompt: !!?20,"Facility",?60,"# EOBR's",!?10,$$REPEAT^XLFSTR("-",60),!! Line Location: HDR1+1
Function Call: WRITE	Prompt: !!?10,$$REPEAT^XLFSTR("=",60),! Line Location: TOT+1
Function Call: WRITE	Prompt: @IOF Line Location: TOT+4
Routine Call	%ZIS Line Location: REPORT+5
Routine Call	%ZIS Line Location: REPORT+4

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	FILDELK1+5, FILDELK1+6, FILDELK2+1
^DIC(4 - [#4]	REPORT1+3

Name	Line Occurrences
FILDELA	FILDELA+4, FILDELA+6
FILDELC	FILDELA+2
FILDELC1	FILDELC2+2
FILDELC2	FILDELC2+5
FILDELF	FILDELC1+2
FILDELK1	FILDELK1+4, FILDELK1+6, FILDELK2+1, FILDELK2+4
FILDELK2	FILDELK1+5
FILDEND	FILDELF+1, FILDELF+4, FILDELK1+2
HDR	REPORT+7
REPORT1	REPORT1+4
TOT	REPORT1+2

Name	Field # of Occurrence
>> ACHSCNT	FILDELC+1, FILDELC2+3, FILDELC2+4
>> ACHSDATE	FILDELA+3*, FILDELA+4, FILDELA+5
>> ACHSDELD	FILDELC+1, FILDELC2+4, FILDELF+1, FILDELF+4, FILDELF+5
>> ACHSDSAV	FILDELC+1*
>> ACHSEOBD	HDR+2
>> ACHSERR	REPORT+1, REPORT+5
>> ACHSI	FILDEL+1, FILDELA+1, FILDELA+2, FILDELA+3, FILDELA+5
>> ACHSPG	REPORT+1, HDR+1, HDR+2
>> ACHSR	FILDELC+1, FILDELC1+1, FILDELC1+2, FILDELC2+1, FILDELC2+4, FILDELF+5, FILDELK1+1, FILDELK1+2, FILDELK1+3, FILDELK2+3
>> ACHSRDAT	FILDELA+5*
>> ACHSRR	FILDELC+1, FILDELC2+1, FILDELC2+2, FILDELK1+3*, FILDELK1+4, FILDELK1+5, FILDELK1+6, FILDELK2+1, FILDELK2+2, FILDELK2+3
>> ACHSTIME	HDR+2
>> ACHSUFLS(	FILDELA+1, FILDELA+3, FILDELK1+5, FILDELK1+6, FILDELK2+1, FILDELK2+2, FILDELK2+3!
>> ACHSUFLS("C"	FILDELA+5*, FILDELC1+1, FILDELC2+1, FILDELK1+1, FILDELK1+3, FILDELK2+3!
>> ACHSZFCT(	REPORT1+1, REPORT1+3
>> ACHSZFN	FILDELK2+2*, FILDELK2+3
>> ACHSZFPT	REPORT+1, REPORT1+1, REPORT1+2, REPORT1+3
>> ACHSZRC	TOT+2
DUZ(2	FILDELK1+5, FILDELK1+6, FILDELK2+1
IO	REPORT+6
IO(0	ACHSEOBC+3, FILDELF+2, FILDELK2+3
IOF	HDR+2, TOT+4
>> IOP	REPORT+3*
>> POP	REPORT+5
U	FILDELK1+5, FILDELK1+6, FILDELK2+1, REPORT1+3
>> ZTIO	REPORT+3

Information