Routine: ACDBILLD

Information

ACDBILLD ;IHS/ADC/EDE/KML - PURGE BILL FILE;

Source file <ACDBILLD.m>

Package	Total	Call Graph
Alcohol Chemical Dependency	3	(GETDTR,PAUSE)^ACDDEU (DIK,DIQ)^ACDFMC CHKCOV^ACDPCCL
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
P3COV	; 3RD PARTY COVERAGE
EOJ	;
PURGE	; PURGE ENTRIES WITHIN TIME FRAME
START	;
INIT	;
MAIN	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This routine purges entries in the CDMIS BILL file for a specified time frame",! Line Location: INIT+2
Function Call: WRITE	Prompt: ! Line Location: INIT+5
Function Call: WRITE	Prompt: "." Line Location: PURGE+14
Function Call: WRITE	Prompt: !!,ACDPC," entr"_$S(ACDPC=1:"y",1:"ies")_" purged.",!! Line Location: PURGE+18
Function Call: WRITE	Prompt: ! Line Location: P3COV+2
Function Call: WRITE	Prompt: !,"There is third party coverage for this unprinted visit" Line Location: P3COV+5
Routine Call	DIR Line Location: INIT+6 P3COV+6

FileNo	Call Tags
^ACDBILL - [#9002172.9]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACDBILL - [#9002172.9]	PURGE+5, PURGE+6
^ACDBILL("B"	PURGE+1, PURGE+2, PURGE+4

Name	Field # of Occurrence
ACD3PCOV	PURGE+8, EOJ+1!
ACD3PDAT	EOJ+1!
ACDALL	INIT+8*, PURGE+7, PURGE+8, EOJ+1!
ACDBDATE	PURGE+1, PURGE+2, PURGE+4, EOJ+1!
ACDBIEN	PURGE+3, PURGE+4, PURGE+5, PURGE+6, PURGE+12, P3COV+3, EOJ+1!
ACDDFNP	PURGE+9*, EOJ+1!
ACDDTHI	PURGE+2, EOJ+1!
ACDDTLO	PURGE+1, EOJ+1!
ACDPC	INIT+9, PURGE+15, PURGE+18, EOJ+1!
ACDQ	MAIN+2, INIT+1, INIT+4, INIT+10, PURGE+8, P3COV+1, P3COV+7, EOJ+1!
ACDVIEN	PURGE+9*, EOJ+1!
DA	INIT+6!, PURGE+12, P3COV+3, P3COV+6!
>> DIC	P3COV+3*
>> DIK	PURGE+12*
DIR	INIT+6!, P3COV+6!
DIR("A"	INIT+6, P3COV+6
DIR("B"	INIT+6, P3COV+6
DIR(0	INIT+6, P3COV+6
>> DIRUT	INIT+7
>> DR	P3COV+3*
U	PURGE+7, PURGE+8, PURGE+9
>> X	PURGE+6*, PURGE+7, PURGE+8, PURGE+9
>> Y	INIT+8, P3COV+7