Routine: ABMDBACK

Information

ABMDBACK ; IHS/ASDST/DMJ - APC-PCC Back Visit Check ;

Source file <ABMDBACK.m>

Package	Total	Call Graph
Third Party Billing	2	^ABMDDIE $$HDT^ABMDUTL
VA Fileman	2	C^%DTC ^DIR

Package	Total	Caller Graph
Third Party Billing	1	ABMDVCK

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"This program will cause the nightly claim generator to initiate " Line Location: SEL+1
Function Call: WRITE	Prompt: !?5,"a one time job of checking all visits back to the date specified." Line Location: SEL+2
Function Call: WRITE	Prompt: ! Line Location: SEL+7
Function Call: WRITE	Prompt: !!,"OK, all visits will be checked back to ",ABM("D")," during the nightly",!,"claim generation process.",! Line Location: SEL+9
Routine Call	DIR Line Location: SEL+3 SEL+10

Name	Line Occurrences (* Changed, ! Killed)
^AAPCRCDS("ABILL"	APC+3*
^ABMDCLM - [#9002274.3]	PCC+2, APC+2
^ABMDPARM(	PCC, APC, SEL+4, SEL+8
^AUPNVSIT("ABILL"	PCC+2*
^AUPNVSIT("B"	PCC, PCC+1

Name	Line Occurrences
DT	SEL+6, SEL+8
XIT	SEL+3, SEL+7, SEL+11

Name	Field # of Occurrence
^(0	SEL+4

Name	Field # of Occurrence
ABM	ABMDBACK+4!, APC*, APC+1, XIT!
ABM("BD"	PCC*, PCC+2, APC
ABM("D"	PCC, PCC+1, PCC+2, APC, SEL+4, SEL+5, SEL+7, SEL+8, SEL+9, DT+1
ABM("DIE-FAIL"	SEL+7
ABM("DT"	APC*, APC+3
ABM("VDFN"	PCC+1, PCC+2, APC+1, APC+2, APC+3
>> DA	DEL, SEL+7
>> DIE	DEL, SEL+7
DIR	SEL+3!, SEL+10!
DIR("A"	SEL+3*
DIR(0	SEL+3, SEL+10
>> DIRUT	SEL+3
>> DR	DEL, SEL+7
DT	SEL+4, SEL+5
DUZ(2	PCC, PCC+2, APC, APC+2, SEL+4, SEL+8
U	ABMDBACK+4*, PCC, APC, SEL+4, SEL+8
>> X	SEL+4
>> X1	SEL+4*
>> X2	SEL+4*
>> Y	SEL+3, SEL+7

Name	Comments	DBIA/ICR reference
DEL
XIT
APC
PCC
DT	;date external
SEL	;EP - Entry Point for intiating a back-billing check