Routine: ACHSEOBS

Information

ACHSEOBS ; IHS/ITSC/TPF/PMF - SELECT EOBR FILE FOR PROCESSING ;

Package	Total	Call Graph
Contract Health Management Information System	2	$$AOP^ACHS ^ACHSEOBY
IHS VA Utilities	2	$$DIR^XBDIR $$C^XBFUNC
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSEOB

Name	Comments	DBIA/ICR reference
CONT	;
VKILL	; Kill vars, quit.
FACCK	;ACHS3.122 FAC ICD9 FILE ALREADY PROCESSED
SEQOK	;
ABEND	;
D1	;
D2	;
D0	;
DEND	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,$$REPEAT^XLFSTR("",79),!,$$C^XBFUNC(" SELECT EOBR FILE FOR PROCESSING *") Line Location: ACHSEOBS+3
Function Call: WRITE	Prompt: !,$$C^XBFUNC("LAST AREA OFFICE SEQUENCE NUMBER = "_$$AOP^ACHS(2,9)),!,$$C^XBFUNC("FI/EOBR Files Archive Directory = '"_$$AOP^ACHS(2,7)_"'.") Line Location: ACHSEOBS+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("*",79),! Line Location: ACHSEOBS+5
Function Call: WRITE	Prompt: !!,"NUMBER FILE NAME FI PROCESS DATE # RCDS SEQ #" Line Location: D0+4
Function Call: WRITE	Prompt: !,"------ --------------- --------------- ------ ------" Line Location: D0+5
Function Call: WRITE	Prompt: !,$J(ACHSISEQ,6),?9,$P(ACHSUFLS(ACHSI),U,1) Line Location: D2+5
Function Call: WRITE	Prompt: ?35,$$FMTE^XLFDT(X),?50,$J($FN($P(ACHSUFLS(ACHSI),U,4),",",0),6),?60,$J($P(ACHSUFLS(ACHSI),U,5),3) Line Location: D2+8
Function Call: WRITE	Prompt: ! Line Location: DEND+1
Function Call: WRITE	Prompt: !,*7,"Wrong BCBS Report (Sequence) Number Selected ",! Line Location: DEND+16
Function Call: WRITE	Prompt: *7,! Line Location: SEQOK+5
Function Call: WRITE	Prompt: *7,! Line Location: FACCK+4
Routine Call	DIR Line Location: DEND+18

Name	Line Occurrences (* Changed, ! Killed)
^ACHSAOP - [#9002079]	DEND+7, DEND+10, DEND+11*, DEND+12, SEQOK+3, FACCK+2
^AUTTLOC("C"	FACCK+1

Name	Line Occurrences
ABEND	ACHSEOBS+7, DEND+4, DEND+19, SEQOK+7, FACCK+6
CONT	DEND+8, SEQOK+3, FACCK+2
D0	DEND+19
D1	D2+2, D2+3
D2	D2+10
DEND	D1+2
FACCK	DEND+13
SEQOK	DEND+10, DEND+12

Name	Field # of Occurrence
>> ACHSAEND	DEND+3, ABEND+1
ACHSCMD	VKILL+1!
>> ACHSEOBD	DEND+5, DEND+6, SEQOK+3
ACHSERDT	VKILL+1!
ACHSERR	VKILL+1!
ACHSERRC	VKILL+1!
ACHSFILE	DEND+5*, DEND+12, DEND+13, FACCK+1, VKILL+1!
ACHSFNAM	VKILL+1!
ACHSFSIZ	VKILL+1!
ACHSHFS1	VKILL+1!
ACHSI	D0+1, D2+1, D2+2, D2+3, D2+5, D2+6, D2+8, D2+9, VKILL+1!
>> ACHSII	D0+1, D1+1, D1+2, D2+1
>> ACHSISAO	ACHSEOBS+4, DEND+6, DEND+8
ACHSISEQ	D0+1, D2+4, D2+5, D2+9, DEND+2, VKILL+1!
>> ACHSJFLG	ACHSEOBS+7
ACHSLCTR	VKILL+1!
ACHSLEOB	DEND+7*, VKILL+1!
ACHSLMT	VKILL+1!
>> ACHSMEDA	CONT+1*
ACHSRCT	VKILL+1!
ACHSSEL	D0+2!, VKILL+1!
ACHSSEL(	D2+9*, DEND+4, DEND+5
ACHSUFLS	VKILL+1!
ACHSUFLS(	D2+3, D2+5, D2+6, D2+8, DEND+5, DEND+12, DEND+13, FACCK+1
ACHSUFLS("C"	D1+1, D2+1
ACHSXX	VKILL+1!
ACHSZDEV	VKILL+1!
ACHSZFN	DEND+5*, CONT+1, VKILL+1!
ACHSZFO	VKILL+1!
ACHSZIN	VKILL+1!
DIR	DEND+14!, VKILL+1!
DIR(0	DEND+17*
>> DTOUT	DEND+3
>> DUOUT	DEND+3
DUZ(2	DEND+7, DEND+10, DEND+11, DEND+12, SEQOK+3, FACCK+2
IO(0	D0+3, DEND+15, SEQOK+4, FACCK+3
IOF	ACHSEOBS+3
U	D2+3, D2+5, D2+6, D2+8, DEND+5, DEND+7, DEND+10, DEND+11, DEND+12, DEND+13 , FACCK+1, FACCK+2
X	D2+6, D2+8, DEND+2, DEND+3, DEND+4, DEND+5, DEND+6, FACCK+1, FACCK+2, VKILL+1!
Y	DEND+19, VKILL+1!