Routine: AVAPCHK

Information

AVAPCHK ;IHS/ORDC/LJF - CLEAN UP FILES 3,6,16&200 ; [ 10/03/95 7:57 AM ]

Source Information

Source file <AVAPCHK.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	5	YX^%DTC FILE^DICN DT^DICRW ^DIE ^DIR
IHS VA Utilities	1	^XBCLS

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACDENVCK
Contract Health Management Information System	1	ACHSY200
IHS V Files 200 Conversion	1	BVCHK

Entry Points

Name	Comments	DBIA/ICR reference
READ	;
RESULTS	;EP; called to display results of run
SETERR(FILE,IEN,MSG)	; -- SUBRTN to set entry into error file
EN	;EP; called by A9AVA8
ERR13	;13=IF PROVIDER HAS PROVIDER CLASS BUT FILE 200 DOESN'T: FIX IT
ERR12	;12=PROVIDER ENTRY HAS NO ZERO NODE BUT HAS 99999999 NODE
ERR11	;11=PERSON ENTRY A3 NODE POINTS TO USER ENTRY WITH MISMATCHED 16TH
ERR10	;10=PERSON ENTRY A3 NODE POINTS TO USER ENTRY WITH NULL 16TH PIECE
LOOP3	; loop thru user file
LOOP200	; loop thru new person for missing zero nodes
LOOP16	; loop thru person files
ERR9	;9=PERSON ENTRY A3 NODE POINTS TO NON-EXISITING USER ENTRY
ERR8	;8=PERSON ENTRY HAS NULL A3 NODE
EXIT	;
ERR3	;3=USER ENTRY HAS NO 16TH PIECE
ERR2	;2=USER ENTRY NOT HAVE MATCHING VA(200 ENTRY
ERR1	;1=USER ENTRY MISSING 0 NODE
ERR4	;4=USER ENTRY 16TH PIECE POINTS TO NON-EXISTING PERSON ENTRY
ERR7	;7=PERSON ENTRY HAS NO ZERO NODE
ERR6	;6=USER ENTRY POINTS TO PERSON ENTRY WITH MISS-MATCHED A3 NODE
ERR5	;5=USER ENTRY POINTS TO PERSON WITH NO A3 NODE
ADD1(AVAX)	;EP; called to add new person & user entries for person entry

External References

Name	Field # of Occurrence
YX^%DTC	RESULTS+6
FILE^DICN	ERR2+4
DT^DICRW	EN+1, RESULTS+1
^DIE	ERR4+5, ERR4+6, ERR12+6, ERR12+7, ERR13+1
^DIR	READ+1
^XBCLS	RESULTS+1, RESULTS+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X Line Location: LOOP200+1
Function Call: WRITE	Prompt: !!,"RESULTS OF AVA CHECK OF FILES 3, 6, 16, & 200",! Line Location: RESULTS+2
Function Call: WRITE	Prompt: !!,"ALL FILES OKAY! READY FOR CONVERSION." Line Location: RESULTS+5
Function Call: WRITE	Prompt: !,"Check completed at ",Y Line Location: RESULTS+6
Function Call: WRITE	Prompt: !!,"FILE CHECK NOT RUN! ",^AVA("NOT OK") Line Location: RESULTS+9
Function Call: WRITE	Prompt: !!,"ERRORS FROM FILE ",AVAF Line Location: RESULTS+12
Function Call: WRITE	Prompt: !,"Entry #",AVAX,?15,^AVA(AVAF,AVAX) Line Location: RESULTS+14
Routine Call	DIE Line Location: ERR4+5 ERR4+6 ERR12+6 ERR12+7 ERR13+1
Routine Call	DIR Line Location: READ+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EN+3
^AVA(	RESULTS+12, RESULTS+13, RESULTS+14
^AVA("NOT OK"	EN+2!, EN+4, EN+5, RESULTS+8, RESULTS+9
^AVA("OK"	EN+2!, EXIT+1*, RESULTS+4, RESULTS+6
^AVA(16	EN+2!, EXIT+1, SETERR+2*
^AVA(3	EN+2!, EXIT+1, SETERR+1*
^DD(200	EN+5
^DIC(16 - [#16]	LOOP3+7, LOOP3+8, LOOP3+9, LOOP16+3, LOOP16+4, LOOP16+5, ERR4+1, ERR4+7, ERR5+1, ERR7+2 , ERR7+4, ERR7+5, ERR8+2, ERR8+3, ERR8+4, ERR11+3, ERR12+3, ADD1+6, ADD1+9, ADD1+13 , ADD1+17*
^DIC(3 - [#3]	LOOP3+3, LOOP3+4, LOOP3+6, LOOP16+6, LOOP16+7, LOOP16+8, ERR1+4, ERR1+5, ERR1+6, ERR1+7* , ERR1+8, ERR1+9, ERR2+1, ERR2+2, ERR2+3, ERR3+3, ERR4+2, ERR4+4, ERR4+5, ERR4+6 , ERR4+7, ERR9+3, ERR10+2, ERR11+2, ADD1+3, ADD1+4, ADD1+13, ADD1+14, ADD1+15
^DIC(6 - [#6]	LOOP16+10, LOOP16+11, ERR12+1!, ERR12+2!, ERR12+8, ERR13+1
^VA(200 - [#200]	LOOP200+1, LOOP3+5, LOOP16+11, ERR1+2, ERR1+3, ERR1+4, ERR1+5, ERR2+5, ERR3+1, ERR3+2 , ERR4+1, ERR4+2, ERR7+3, ERR7+4, ERR7+5, ERR8+3, ERR9+1, ERR9+3, ERR10+1, ERR10+3 , ERR12+4, ERR13+2, ADD1+2, ADD1+3, ADD1+4, ADD1+6, ADD1+7, ADD1+8, ADD1+10, ADD1+11

Label References

Name	Line Occurrences
ERR1	LOOP3+4, ERR2+1, ERR9+2
ERR10	LOOP16+7
ERR11	LOOP16+8
ERR12	LOOP16+10
ERR13	LOOP16+11
ERR2	LOOP3+5
ERR3	LOOP3+6
ERR4	LOOP3+7
ERR5	LOOP3+8
ERR6	LOOP3+9
ERR7	LOOP16+4
ERR8	LOOP16+5
ERR9	LOOP16+6
EXIT	EN+6
LOOP16	EN+6
LOOP3	EN+6
READ	RESULTS+6, RESULTS+9, RESULTS+15
SETERR	ERR1+2, ERR2+5, ERR4+7, ERR6+1, ERR7+6, ERR8+4, ERR9+4, ERR10+1, ERR11+4, ERR12+8 , ERR13+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	RESULTS+6*
AVA16	LOOP16+1!, LOOP16+2, LOOP16+3, LOOP16+4, LOOP16+5, LOOP16+8, LOOP16+10, LOOP16+11, EXIT+2!, ERR7+2 , ERR7+4, ERR7+5, ERR7+6, ERR8+2, ERR8+3, ERR8+4, ERR9+3, ERR9+4, ERR10+1, ERR10+2 , ERR10+3, ERR11+4, ERR12+1, ERR12+2, ERR12+3, ERR12+8, ERR13+1, ERR13+2
>> AVA200	ERR12+3*, ERR12+4, ERR12+6
AVA3	LOOP3+1!, LOOP3+2, LOOP3+3, LOOP3+4, LOOP3+5, LOOP3+6, LOOP3+9, LOOP16+1!, LOOP16+5, LOOP16+6 , LOOP16+7, LOOP16+8, LOOP16+11, EXIT+2!, ERR1+2, ERR1+3, ERR1+4, ERR1+5, ERR1+6, ERR1+7 , ERR1+8, ERR1+9, ERR2+1, ERR2+2, ERR2+3, ERR2+5, ERR3+1, ERR3+2, ERR3+3, ERR4+1 , ERR4+2, ERR4+4, ERR4+5, ERR4+6, ERR4+7, ERR5+1, ERR6+1, ERR8+3, ERR9+1, ERR9+3 , ERR10+1, ERR10+2, ERR10+3, ERR11+2, ERR11+3, ERR13+1, ERR13+2, ADD1+1~, ADD1+2*, ADD1+3 , ADD1+4, ADD1+6, ADD1+7, ADD1+8, ADD1+10, ADD1+11, ADD1+13, ADD1+14, ADD1+15, ADD1+17
>> AVACLS	ERR12+4*, ERR12+7
AVAF	RESULTS+11*, RESULTS+12, RESULTS+13, RESULTS+14, RESULTS+17!
AVAPER	LOOP3+1!, LOOP3+6, LOOP3+7, LOOP3+8, LOOP3+9, EXIT+2!, ERR3+2, ERR3+3, ERR5+1, ERR6+1
AVAX	RESULTS+13*, RESULTS+14, RESULTS+17!, ADD1~, ADD1+6, ADD1+8, ADD1+9, ADD1+13, ADD1+15, ADD1+17
DA	EXIT+2!, ERR4+5, ERR4+6, ERR12+6, ERR13+1
DD	ERR2+4!
DIC	EXIT+2!, ERR2+2*
DIC("DR"	ERR2+3*
DIC(0	ERR2+3*
DIE	EXIT+2!, ERR4+5, ERR4+6, ERR12+6, ERR13+1
>> DINUM	ERR2+2*
DIR	RESULTS+17!, READ+1!
DIR("A"	READ+1*
DIR(0	READ+1*
>> DLAYGO	ERR2+2*
DO	ERR2+4!
DR	EXIT+2!, ERR4+5, ERR4+6, ERR12+6, ERR12+7, ERR13+1*
FILE	SETERR~, SETERR+1
IEN	SETERR~, SETERR+1, SETERR+2
MSG	SETERR~, SETERR+1, SETERR+2
U	EN+5, LOOP3+6, LOOP16+7, LOOP16+8, LOOP16+10, LOOP16+11, ERR1+4, ERR1+5, ERR1+6, ERR1+8 , ERR2+1, ERR2+2, ERR2+3, ERR3+1, ERR3+2, ERR3+3, ERR4+1, ERR4+2, ERR4+4, ERR4+5 , ERR4+6, ERR4+7, ERR7+3, ERR7+4, ERR7+5, ERR8+2, ERR9+3, ERR10+1, ERR10+2, ERR10+3 , ERR11+2, ERR12+1, ERR12+3, ERR12+4, ERR13+1, ERR13+2, ADD1+2, ADD1+4, ADD1+6, ADD1+7 , ADD1+8, ADD1+9, ADD1+10, ADD1+13, ADD1+14, ADD1+15
X	EN+3, LOOP200+1, ERR1+1~, ERR1+6, ERR1+7, ERR1+8, ERR1+9, ERR2+2, ERR7+1~, ERR7+2 , ERR7+3, ERR7+4, ERR7+5, ERR8+1~, ERR8+2, ERR8+3, ERR11+1~, ERR11+2, ERR11+3, ADD1+1~ , ADD1+9*, ADD1+10, ADD1+11
>> Y	ERR8+3*, RESULTS+6

Customize PDF page

Package: IHS VA Support Files

Routine: AVAPCHK

Call Graph Total: 6

Caller Graph Total: 3