Routine: ACHSVDVD

Package	Total	Call Graph
VA Fileman	4	^DIE ^DIK $$GET1^DIQ ^DIR
Contract Health Management Information System	1	(A1,A1A)^ACHSVDV
IHS VA Utilities	1	$$DIR^XBDIR

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHSA1 ACHSVDV ACHSVDVA

Entry Points

Name	Comments	DBIA/ICR reference
1304
EDIT1	;
END	;
1302
1110
EDIT	;
1303
GETD	;
1125
VCHK	;
CHECK	;
WRITE	;
EDIT0	;
GETADDR	;
1102
CHOOSE	;
1116
MESSAGE	;EP
EP	;
DELETE	;

External References

Name	Field # of Occurrence
A1^ACHSVDV	EP+2, END+2
A1A^ACHSVDV	WRITE+2, EDIT+10
^DIE	EDIT1+1, GETADDR+6
^DIK	DELETE+8
$$GET1^DIQ	VCHK+7
^DIR	EDIT+6, CHOOSE+4, DELETE+3, MESSAGE+3
$$DIR^XBDIR	GETADDR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Vendor address incomplete.",!,"Please make sure that at least street, city, and state are complete" Line Location: EP+11
Function Call: WRITE	Prompt: !!?12,7,7,"*** The EIN you have entered for this VENDOR is a *",!?11,"* duplicate of the EIN for the following VENDOR(S) ***",!! Line Location: WRITE+3
Function Call: WRITE	Prompt: !,$P(^AUTTVNDR(Z,0),U,1),?40,$P(ACHSZEIN(Z),U) Line Location: WRITE+5
Function Call: WRITE	Prompt: !!?20," Duplicate EIN's are NOT ALLOWED! ",!?24,"You MUST enter a UNIQUE EIN or",!?25,"a SUFFIX to an existing EIN." Line Location: EDIT+1
Function Call: WRITE	Prompt: !! Line Location: EDIT+5
Function Call: WRITE	Prompt: !!!,"Entry for "_$P(^AUTTVNDR(ACHSPROV,0),U,1)_" "_$S($D(ACHSEINS):ACHSEINS,1:ACHSEIN) Line Location: CHOOSE+1
Function Call: WRITE	Prompt: !!,"Edit entry "_$P(^AUTTVNDR(ACHSPROV,0),U)_" "_$S($D(ACHSEINS):ACHSEINS,1:ACHSEIN) Line Location: EDIT1+1
Function Call: WRITE	Prompt: !! Line Location: EDIT1+1
Function Call: WRITE	Prompt: " ...DELETING..." Line Location: DELETE+7
Function Call: WRITE	Prompt: !!,"There is no EIN on file for ",$P(^AUTTVNDR(ACHSPROV,0),U,1),".",!,"Please edit to continue this process." Line Location: MESSAGE+2
Function Call: WRITE	Prompt: !!!! Line Location: MESSAGE+3
Function Call: WRITE	Prompt: !! Line Location: GETADDR+6
Function Call: WRITE	Prompt: !,"Vendor EIN suffix incomplete",! Line Location: 1102+0
Function Call: WRITE	Prompt: !,"Vendor FED/NON-FED field incomplete",! Line Location: 1110+0
Function Call: WRITE	Prompt: "Vendor Congressional District incomplete",! Line Location: 1116+0
Function Call: WRITE	Prompt: "Vendor Geographical Location incomplete",! Line Location: 1125+0
Function Call: WRITE	Prompt: !,"Vendor mailing address city incomplete",! Line Location: 1302+0
Function Call: WRITE	Prompt: !,"Vendor mailing address state incomplete",! Line Location: 1303+0
Function Call: WRITE	Prompt: !,"Vendor mailing address zip incomplete",! Line Location: 1304+0
Routine Call	DIE Line Location: EDIT1+1 GETADDR+6
Routine Call	DIR Line Location: EDIT+6 CHOOSE+4 DELETE+3 MESSAGE+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	EP+4, EP+5, EP+10, EP+14, EP+21, WRITE+5, CHOOSE+1, EDIT1+1, DELETE+2, MESSAGE+2
^AUTTVNDR("C"	EP+16, EP+17, EP+18, EP+20
^AUTTVNDR("E"	GETD+2, GETD+3, GETD+4, GETD+6
^XUSEC("ACHSZMGR"	CHECK+1

Label References

Name	Line Occurrences
@(	VCHK+8
CHOOSE	EDIT+2
DELETE	CHOOSE+7
EDIT	CHOOSE+6, DELETE+5
EDIT0	CHECK+1
EDIT1	EDIT0+4, MESSAGE+3
END	EP+4, CHECK+1, EDIT+8, DELETE+9
EP	EP+11, EDIT1+3
GETADDR	EP+11
GETD	EP+15, EP+16, EP+18
MESSAGE	EP+6
WRITE	EP+20, GETD+2, GETD+4, GETD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	VCHK+6*, VCHK+7, VCHK+8
>> %(0	EDIT+2
>> ACHSDFLG	WRITE+1, WRITE+2, CHECK+1, EDIT+2, EDIT+8, EDIT+10, EDIT0+1, EDIT0+2
ACHSEIN	EP+1!, EP+5*, EP+6, EP+16, EP+17, EP+18, EP+20, EP+22, EP+23, GETD+1 , CHOOSE+1, EDIT1+1, EDIT1+2!, DELETE+2, END+1!
ACHSEINS	EP+1!, GETD+1*, GETD+2, GETD+3, GETD+4, GETD+6, CHOOSE+1, EDIT1+1, EDIT1+2!, DELETE+2 , END+1!
ACHSPROV	EP+2, EP+4, EP+5, EP+10, EP+14, EP+22, EP+23, GETD+6, EDIT0+1!, EDIT0+2! , CHOOSE+1, EDIT1+1!, DELETE+2, DELETE+6, MESSAGE+2, END+1!, GETADDR+6
ACHSSUFF	EP+1!, EP+14*, EP+15, EP+22, EP+23, GETD+1, EDIT1+2!, END+1!
ACHSTST	VCHK+5*, VCHK+7, VCHK+10!
ACHSUFF	EP+1!, EP+21*, EP+23
>> ACHSVFLG	VCHK+4, 1102, 1110, 1116, 1125, 1302, 1303, 1304
>> ACHSYAYA	EP+10*, EP+11
ACHSZEIN	EP+1!, EP+3!, WRITE+1, WRITE+2, EDIT1+2!, END+1!
ACHSZEIN(	EP+22, EP+23, GETD+6*, WRITE+5
DA	EDIT1+1, EDIT1+2!, DELETE+6, END+1!, GETADDR+6*
DIC	EDIT1+2!
DIE	EDIT1+1, EDIT1+2!, GETADDR+6
DIK	EDIT1+2!, DELETE+6*
DIR	EDIT+3!, EDIT+7!, CHOOSE+2!, CHOOSE+5!, EDIT1+2!, DELETE+1!, DELETE+4!, MESSAGE+3!
DIR("A"	EDIT+4, DELETE+2, MESSAGE+3*
DIR("B"	EDIT+4, CHOOSE+3, DELETE+2*
DIR(0	EDIT+4, CHOOSE+3, DELETE+2, MESSAGE+3
>> DIROUT	CHOOSE+6
>> DIRUT	EDIT+8, EDIT0+1, CHOOSE+6
>> DR	EDIT1+1, GETADDR+6
>> DTOUT	EP+11, GETADDR+3*, GETADDR+5
>> DUOUT	EP+11, CHOOSE+6, GETADDR+5
DUZ	CHECK+1
IO	MESSAGE+1
IOST	MESSAGE+3
U	EP+5, EP+11, EP+14, EP+21, WRITE+5, CHOOSE+1, EDIT1+1, DELETE+2, MESSAGE+2, VCHK+5
>> VAL	VCHK+7*, VCHK+8
X	EP+1!, EP+17, EP+18, EP+19, EP+20, EP+21, EP+22, EP+23, GETD+1, GETD+3* , GETD+4, GETD+5, GETD+6, EDIT1+2!, END+1!
>> Y	CHECK+1, EDIT+10, EDIT0+2, EDIT0+3, CHOOSE+7, EDIT1+1, DELETE+5, MESSAGE+3, GETADDR+2, GETADDR+3 , VCHK+5
Z	EP+1!, WRITE+4, WRITE+5, EDIT1+2!, END+1!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSVDVD

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: