Routine: ACRFVLK

Information

ACRFVLK ;IHS/OIRM/DSD/AEF - VENDOR FILE LOOKUP ; [ 03/28/2007 10:56 AM ]

Source Information

Source file <ACRFVLK.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	5	^DDS HLP^DDSUTL ^DIC $$GET1^DIQ ^DIR
Commitment Register	2	$$DUNS^ACRFVLK (PAUSE,WARNING)^ACRFWARN
IHS VA Utilities	2	^XBFMK ^XBKVAR

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Commitment Register	7	ACRFEA21 ACRFEA42 ACRFPRC1 ACRFRR ACRFUFMU ACRFVEND ACRFVLK

Entry Points

Name	Comments	DBIA/ICR reference
EDITAUTH(X)	; EP; Check user's Vendor Edit Authority in ARMS USER File
DISP	;EP - If not new entry, display Current Vendor data.
WARN2	;EP; WARNING THAT VENDOR IS INACTIVE, DUNS IS MISSING OR BAD
EDIT	; Edit which vendor data
DUNS(X)	; EP;----- RETURNS DUNN AND BRADSTREET NUMBER
DUNSCHK	; EP - Check to see if there is a DUNS #
CHKVNDR	; EP - Check if vendor is inactive, DUNS exists, and DUNS is 9-13 long
SUFCHK	;CHECK EIN SUFFIX ACR2.121.03 IM22241
WARN	;EP; IN SM WARNING THAT VENDOR IS INACTIVE, DUNS IS MISSING OR BAD
AI	;EP - INVOKE SCREEN TO ALLOW ACTIVATION/INACTIVATION OF VENDOR
ADD	; EP - Add or Edit Vendor data.
ASKVND	; Ask / Lookup Vendor ; Only allow Vendor addition if Vendor Edit Authority is F, C, or A.
CHKACTV	; Check to see if Vendor has been inactivated
ACT	; EP - Check to see if Vendor has been inactivated
MSG	;EP - Message edit authority denied
SCREEN(ACRVND,DR)	; EP; call screen man ; pass in DR ; pass in ACRVND
EINCHK	;CHECK FOR VENDORS WITH THE SAME EIN NO ACR2.121.03 IM22241

External References

Name	Field # of Occurrence
$$DUNS^ACRFVLK	DUNSCHK+4
PAUSE^ACRFWARN	WARN2+7
WARNING^ACRFWARN	WARN2+2
^DDS	SCREEN+7
HLP^DDSUTL	ACT+6, DUNSCHK+9, DUNSCHK+15, EINCHK+7, EINCHK+8, EINCHK+9, SUFCHK+9, SUFCHK+10, SUFCHK+19, SUFCHK+20 , SUFCHK+21, SUFCHK+22
^DIC	ASKVND+11
$$GET1^DIQ	EDITAUTH+2, CHKACTV+2, CHKVNDR+3, ACT+1, ACT+2, DUNSCHK+5, EINCHK+5, SUFCHK+2, SUFCHK+13, SUFCHK+17
^DIR	EDIT+13
^XBFMK	EDIT+2
^XBKVAR	ADD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EDIT+12
Function Call: WRITE	Prompt: $G(ACRVERR) Line Location: WARN+3
Function Call: WRITE	Prompt: $G(ACRVERR) Line Location: WARN2+4
Routine Call	DDS Line Location: SCREEN+7
Routine Call	DIC Line Location: ASKVND+11
Routine Call	DIR Line Location: EDIT+13

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	DUNS+6
^AUTTVNDR("E"	EINCHK+2, EINCHK+4, SUFCHK+15

Label References

Name	Line Occurrences
$$EDITAUTH	ADD+4, AI+1
@(	CHKVNDR+6
ACT	CHKVNDR+4
ASKVND	ADD+6, AI+2
CHKACTV	ADD+13
DISP	ADD+12
DUNSCHK	ADD+14, CHKVNDR+5
EDIT	ADD+18
MSG	ADD+16, AI+4
SCREEN	ADD+10, DISP+2, CHKACTV+6, MSG+3, EDIT+17, EDIT+20, EDIT+29, AI+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACRACTV	CHKACTV+2, CHKACTV+3, CHKVNDR+1!, CHKVNDR+7!, ACT+2, ACT+3
ACRDERR	CHKVNDR+2!, DUNSCHK+3!, DUNSCHK+8, DUNSCHK+9, DUNSCHK+14, DUNSCHK+15, WARN+1, WARN+2, WARN+3, WARN2+1 , WARN2+3, WARN2+4
ACRDIC	ADD+2~
ACRDUNS	CHKVNDR+1!, CHKVNDR+7!, DUNSCHK+4*, DUNSCHK+6, DUNSCHK+11, DUNSCHK+12
>> ACREIN	SUFCHK+2, SUFCHK+3
>> ACREINNW	SUFCHK+2, SUFCHK+3, SUFCHK+13, SUFCHK+14
ACRINACT	CHKVNDR+1!
ACRNODUN	CHKVNDR+1!
>> ACROUT	WARN+4, WARN2+8
>> ACRQUIT	ADD+3, ADD+5, ADD+7, ADD+11, ADD+15, ADD+17, ADD+18, ASKVND+12, CHKACTV+1, CHKACTV+4 , MSG+1, EDIT+14, WARN+4, WARN2+8, AI+3
ACRSIZE	CHKVNDR+1!
ACRSUFF	SUFCHK+1!, SUFCHK+6*
ACRVAUTH	ADD+2~, ADD+4, ADD+16, ASKVND+7, EDIT+15, EDIT+18, AI+1, AI+4
ACRVDUP	EINCHK+1, EINCHK+5, EINCHK+7, EINCHK+11!, SUFCHK+12, SUFCHK+17, SUFCHK+19, SUFCHK+24!
ACRVEIN	EINCHK+1, EINCHK+2, EINCHK+3, EINCHK+4, EINCHK+11!, SUFCHK+12, SUFCHK+13, SUFCHK+14*, SUFCHK+15, SUFCHK+24!
ACRVERR	CHKVNDR+1!, ACT+5*, ACT+6, WARN+1, WARN+3, WARN2+1, WARN2+4
ACRVIEN	EINCHK+1, EINCHK+4, EINCHK+5, SUFCHK+12, SUFCHK+15, SUFCHK+16, SUFCHK+17, SUFCHK+24!
>> ACRVNAME	CHKVNDR+3, ACT+1, ACT+5, DUNSCHK+5*, DUNSCHK+8, DUNSCHK+14
ACRVND	ADD+2~, ADD+8, ADD+10, ADD+11, ASKVND+13*, DISP+2, CHKACTV+2, CHKACTV+6, MSG+3, EDIT+17 , EDIT+20, EDIT+29, SCREEN~, SCREEN+5, CHKVNDR+3, ACT+1, ACT+2, DUNSCHK+4, DUNSCHK+5, AI+6
ACRVND(0	ASKVND+14*
ACRVNDR	CHKVNDR+1!, CHKVNDR+7!
>> ACRWARN	CHKVNDR+6, DUNSCHK+1, DUNSCHK+2
D	ASKVND+3!
DA	ASKVND+3!, EDIT+1!, SCREEN+4!, SCREEN+5*, SCREEN+8!, SUFCHK+2, SUFCHK+13, SUFCHK+16
DD	ASKVND+3!
>> DDSBR	EINCHK+10, SUFCHK+23
DDSFILE	SCREEN+4!, SCREEN+6*, SCREEN+8!
>> DDSREFT	ACT+6, DUNSCHK+2, DUNSCHK+9, DUNSCHK+15
DIC	ASKVND+3!, ASKVND+4*
DIC("A"	ASKVND+6, ASKVND+9
DIC(0	ASKVND+5, ASKVND+8
DINUM	ASKVND+3!
DIR	EDIT+1!
DIR("?"	EDIT+11*
DIR("A"	EDIT+10*
DIR(0	EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7, EDIT+8, EDIT+9*
DLAYGO	ASKVND+3!, ASKVND+10*
DO	ASKVND+3!
DR	ADD+9, ADD+10, ASKVND+3!, DISP+1, DISP+2, CHKACTV+5, CHKACTV+6, MSG+2, MSG+3, EDIT+1! , EDIT+16, EDIT+17, EDIT+19, EDIT+20, EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26 , EDIT+27, EDIT+28, EDIT+29, SCREEN~, SCREEN+8!, AI+5*, AI+6
DUZ	ADD+4, AI+1
IOF	ASKVND+2, SCREEN+3, SCREEN+9
U	ADD+8, ADD+11, DUNS+6
X	EDITAUTH~, EDITAUTH+1, EDITAUTH+2, ASKVND+3!, EDIT+1!, SCREEN+4!, SCREEN+8!, DUNS~, DUNS+6, EINCHK+3 , SUFCHK+5, SUFCHK+11, SUFCHK+13, SUFCHK+14
Y	EDITAUTH+2, EDITAUTH+3, ASKVND+3!, ASKVND+12, ASKVND+13, EDIT+1!, EDIT+14, EDIT+15, EDIT+18, EDIT+21 , EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26, EDIT+27, SCREEN+4!, SCREEN+8!, DUNS+4~, DUNS+5 , DUNS+6*, DUNS+7
Y(0	ASKVND+14

Customize PDF page

Package: Commitment Register

Routine: ACRFVLK

Call Graph Total: 9

Caller Graph Total: 7