Routine: BMCVDVD

Package	Total	Call Graph
VA Fileman	4	^DIE ^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	1	$$DIR^XBDIR
Referred Care Information System	1	(A1,A1A)^BMCVDV

Package	Total	Caller Graph
Referred Care Information System	2	BMCVDV BMCVDVA

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^BMCVDV	EP+1, END+2
A1A^BMCVDV	WRITE+2, EDIT+10
^DIE	EDIT1+1, GETADDR+6
^DIK	DELETE+8
$$GET1^DIQ	VCHK+4
^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+10
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(BMCZEIN(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(BMCPROV,0),U,1)_" "_$S($D(BMCEINS):BMCEINS,1:BMCEIN) Line Location: CHOOSE+1
Function Call: WRITE	Prompt: !!,"Edit entry "_$P(^AUTTVNDR(BMCPROV,0),U)_" "_$S($D(BMCEINS):BMCEINS,1:BMCEIN) 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(BMCPROV,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+3, EP+4, EP+9, EP+13, EP+20, WRITE+5, CHOOSE+1, EDIT1+1, DELETE+2, MESSAGE+2
^AUTTVNDR("C"	EP+15, EP+16, EP+17, EP+19
^AUTTVNDR("E"	GETD+2, GETD+3, GETD+4, GETD+6
^XUSEC("BMCZVEN"	CHECK+1

Label References

Name	Line Occurrences
@(	VCHK+5
CHOOSE	EDIT+2
DELETE	CHOOSE+7
EDIT	CHOOSE+6, DELETE+5
EDIT0	CHECK+1
EDIT1	EDIT0+4, MESSAGE+3
END	EP+3, CHECK+1, EDIT+8, DELETE+9
EP	EP+10, EDIT1+3
GETADDR	EP+10
GETD	EP+14, EP+15, EP+17
MESSAGE	EP+5
WRITE	EP+19, GETD+2, GETD+4, GETD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	VCHK+3*, VCHK+4, VCHK+5
>> %(0	EDIT+2
>> BMCDFLG	WRITE+1, WRITE+2, CHECK+1, EDIT+2, EDIT+8, EDIT+10, EDIT0+1, EDIT0+2
BMCEIN	EP+4*, EP+5, EP+15, EP+16, EP+17, EP+19, EP+21, EP+22, GETD+1, CHOOSE+1 , EDIT1+1, EDIT1+2!, DELETE+2, END+1!
BMCEINS	GETD+1*, GETD+2, GETD+3, GETD+4, GETD+6, CHOOSE+1, EDIT1+1, EDIT1+2!, DELETE+2, END+1!
BMCPROV	EP+1, EP+3, EP+4, EP+9, EP+13, EP+21, EP+22, GETD+6, EDIT0+1!, EDIT0+2! , CHOOSE+1, EDIT1+1!, DELETE+2, DELETE+6, MESSAGE+2, END+1!, GETADDR+6
BMCSUFF	EP+13*, EP+14, EP+21, EP+22, GETD+1, EDIT1+2!, END+1!
BMCTST	VCHK+2*, VCHK+4, VCHK+6!
>> BMCUFF	EP+20*, EP+22
>> BMCVFLG	VCHK+1, 1102, 1110, 1116, 1125, 1302, 1303, 1304
>> BMCYAYA	EP+9*, EP+10
BMCZEIN	EP+2!, WRITE+1, WRITE+2, EDIT1+2!, END+1!
BMCZEIN(	EP+21, EP+22, 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+10, GETADDR+3*, GETADDR+5
>> DUOUT	EP+10, CHOOSE+6, GETADDR+5
DUZ	CHECK+1
IO	MESSAGE+1
IOST	MESSAGE+3
U	EP+4, EP+10, EP+13, EP+20, WRITE+5, CHOOSE+1, EDIT1+1, DELETE+2, MESSAGE+2, VCHK+2
>> VAL	VCHK+4*, VCHK+5
X	EP+16, EP+17, EP+18, EP+19, EP+20, EP+21, EP+22, 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+2
Z	WRITE+4, WRITE+5, EDIT1+2!, END+1!

Customize PDF page

Package: Referred Care Information System

Routine: BMCVDVD

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: