Routine: ACDBILLS

Package	Total	Call Graph
Alcohol Chemical Dependency	3	($$CTR,$$USR)^ACD PAUSE^ACDDEU CHKCOV^ACDPCCL
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	1	^XBDBQUE

Name	Comments	DBIA/ICR reference
STATUS	; EP-RINT BILL FILE STATUS
COUNT	; COUNT EACH RECORD
HEAD	; PRINT HEADER
EOJ	;
DBQUE	; call to XBDBQUE
START	;
INIT	;
PRINT	; PRINT OUTPUT
MAIN	;
CMP	; EP-FOR XBDBQUE ; all action takes place in status EP

Name	Line Occurrences
Function Call: WRITE	Prompt: "RECORD COUNT",?22,"IIF",?35,"TDC",?50,"CS",! Line Location: PRINT+2
Function Call: WRITE	Prompt: ?3,$J(ACDCTR,5),?20,$J(ACDFC1,5),?33,$J(ACDFC2,5),?47,$J(ACDFC3,5),! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"PRINTED NOT PRINTED COVERAGE",! Line Location: PRINT+4
Function Call: WRITE	Prompt: ?1,$J(ACDCPR,5),?15,$J(ACDCNP,5),?28,$J(ACDCCV,5),! Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$$CTR^ACD("CDMIS BILL FILE STATUS REFPORT",80),!! Line Location: HEAD+2
Function Call: WRITE	Prompt: "Run at ",ACDSITE," for ",$$USR^ACD()," on ",$$FMTE^XLFDT(DT),! Line Location: HEAD+3
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("=",80),!! Line Location: HEAD+4

Name	Line Occurrences (* Changed, ! Killed)
^ACDBILL - [#9002172.9]	STATUS+2, COUNT+2, COUNT+3

Name	Field # of Occurrence
ACD3PCOV	COUNT+9, EOJ+1!
ACD3PDAT	EOJ+1!
ACDBIEN	STATUS+1, STATUS+2, COUNT+2, COUNT+3, EOJ+2!
ACDCCV	INIT+2, PRINT+5, COUNT+9, EOJ+2!
ACDCNP	INIT+2, PRINT+5, COUNT+6, EOJ+2!
ACDCPR	INIT+2, PRINT+5, COUNT+5, EOJ+2!
ACDCTR	INIT+2, PRINT+3, COUNT+1, EOJ+2!
ACDDFNP	COUNT+7*, EOJ+2!
ACDFC1	INIT+2*, PRINT+3, EOJ+1!
ACDFC2	INIT+2*, PRINT+3, EOJ+1!
ACDFC3	INIT+2*, PRINT+3, EOJ+1!
ACDQ	MAIN+2, INIT+1, INIT+3, EOJ+2!
>> ACDSITE	HEAD+3
ACDVIEN	COUNT+7*, EOJ+2!
DT	HEAD+3
IO("S"	HEAD+1
IOF	HEAD+1
IOST	HEAD+1
U	COUNT+4, COUNT+5, COUNT+7
>> X	COUNT+3*, COUNT+4, COUNT+5, COUNT+7
>> XBNS	DBQUE+1*
>> XBRC	DBQUE+1*
>> XBRP	DBQUE+1*
>> XBRX	DBQUE+1*
>> Y	COUNT+4*
>> ZTQUEUED	HEAD+1

Information