Routine: IBDFFV

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$CJ^XLFSTR
Automated Information Collection System	3	^IBDFFV1 ^IBDFFV2 @(^IBDFUTL
VA Fileman	1	^DIR

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF VALIDATE FORMS
Integrated Billing	1	IBDF VALIDATE FORMS

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; -- determine sort criteria
HDR	; -- write out uncompiled forms header
PG(LEN)	; -- check page length ; -- LEN equal to length to check for (optional)...will default
EXIT	; -- Clean up and quit
DEVICE	; -- ask device
DQ	; -- entry point from task man

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"AICS Form Validation Report",!! Line Location: IBDFFV+6
Function Call: WRITE	Prompt: $C(7),!,"No forms found!" Line Location: DQ+5
Function Call: WRITE	Prompt: !?5,FORM Line Location: DQ+11
Function Call: WRITE	Prompt: !!,"CLINIC: ",CLIN Line Location: DQ+12
Function Call: WRITE	Prompt: !?5,FORM Line Location: DQ+13
Function Call: WRITE	Prompt: !!,$S(SORT="G":"GROUP",1:"DIVISION"),": ",HEADER Line Location: DQ+14
Function Call: WRITE	Prompt: !!?5,"CLINIC: ",CLIN Line Location: DQ+15
Function Call: WRITE	Prompt: !?10,FORM Line Location: DQ+16
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: DEVICE+2
Function Call: WRITE	Prompt: @IOF Line Location: PG+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ENCOUNTER FORM VALIDATION",IOM) Line Location: HDR+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("REPORT OF UNCOMPILED FORMS",IOM) Line Location: HDR+2
Function Call: WRITE	Prompt: !!!,"Validation can only be performed on compiled forms. To compile a form,",!,"you simply print it." Line Location: HDR+3
Function Call: WRITE	Prompt: !!!,"The following forms were found to be uncompiled:" Line Location: HDR+4
Routine Call	%ZIS Line Location: DEVICE+2
Routine Call	DIR Line Location: SORT+1 PG+4
Routine Call	%ZIS Line Location: DEVICE+1

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	DQ+2!, DQ+5, DQ+7, DQ+9, DQ+11, DQ+12, DQ+13, DQ+14, DQ+15, DQ+16 , EXIT+1!

Name	Field # of Occurrence
>> %ZIS	DEVICE+1*
CALL	IBDFFV+5~, SORT+3*, SORT+5
CLIN	DQ+8~, DQ+12, DQ+13, DQ+15, DQ+16
DIR	SORT+1!, PG+4!
DIR("A"	SORT+1*
DIR(0	SORT+1, PG+4
DIRUT	SORT+2, PG+4!
DTOUT	PG+4!
DUOUT	PG+4!
FORM	DQ+8~, DQ+11, DQ+13, DQ+16*
HEADER	DQ+8~, DQ+14*, DQ+15, DQ+16
I	IBDFFV+5~
IBDFL	IBDFFV+5~, IBDFFV+7, IBDFFV+8, IBDFFV+9, DQ+1~, DQ+3, SORT+2, DEVICE+2
IBDFOUT	DQ+6, DQ+11, DQ+12, DQ+13, DQ+14, DQ+15, DQ+16, EXIT+4!, PG+4*
>> IBDLF	DEVICE+1*
IO	DQ+5, DEVICE+3
IO("Q"	DEVICE+2
IOF	PG+5
IOM	HDR+1, HDR+2
IOSL	PG+3
IOST	PG+4
LEN	PG~, PG+2*, PG+3
POP	IBDFFV+5~, DEVICE+1
SORT	DQ+8~, DQ+9, DQ+11, DQ+12, DQ+13, DQ+14, DQ+15, DQ+16, EXIT+4!, SORT+3
U	SORT+3
VAUTC	EXIT+4!
VAUTD	EXIT+4!
VAUTF	EXIT+4!
VAUTG	EXIT+4!
X	IBDFFV+5~
Y	IBDFFV+5~, SORT+3, PG+4
Y(0	SORT+3
ZTDESC	EXIT+4!, DEVICE+2*
>> ZTQUEUED	EXIT+2
>> ZTREQ	EXIT+2*
ZTRTN	EXIT+4!, DEVICE+2*
ZTSAVE	EXIT+4!
ZTSAVE("SORT"	DEVICE+2*
ZTSAVE("VA*"	DEVICE+2*
ZTSK	EXIT+4!, DEVICE+2