Routine: ACRFVLK2

Information

ACRFVLK2 ;IHS/OIRM/DSD/EFG - VENDOR FILE LOOKUP 2 ; [ 05/02/2007 10:56 AM ]

Source file <ACRFVLK2.m>

Package	Total	Call Graph
Commitment Register	3	PAUSE^ACRFWARN ^ACRFZIS CLOSE^ACRFZISH
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
Commitment Register	2	ACRFUFM4 ACRFVLK3

Name	Comments	DBIA/ICR reference
PRINTAE	;EP - PRINT ACTIVE VENDORS WITH EIN
PRINTAD	;EP - PRINT ACTIVE VENDORS WITH DUNS
HFS(SUB,STR)	;LOCAL UTILITY TO OPEN DEVICE OR FILE
PROCHFS	;EP - PROCESS HFS FILE ACR2.121.04 IM22466
PRINTMN	;EP - PRINT VENDORS MISSING REQ DATA BY NAME
SUBHEAD(STR,NUM)	;EP - HEADING1 ACR2.121.04 IM22466
PRINTIV	;EP - PRINT INACTIVE VENDORS BY NAME
PRINTME	;EP - PRINT VENDORS MISSING OR BAD EIN
PRINTMD	;EP - PRINT VENDORS MISSING OR BAD DUNS
PRINTAV	;EP - PRINT ACTIVE VENDORS
CSV(REC)	;MAKE FLAT FILE COMMA SEPARATED VALUE STRING
PRINTMZ	;EP - PRINT VENDORS WHOSE ZIP IS < 9
HEAD(HD1,HD2)	;EP
WRT(NUM)	;EP - WRITE ALL DATA

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(HD2)/2,HD2,! Line Location: HEAD+8
Function Call: WRITE	Prompt: ! Line Location: WRT+13
Function Call: WRITE	Prompt: @IOF Line Location: WRT+17
Function Call: WRITE	Prompt: @IOF Line Location: WRT+18
Function Call: WRITE	Prompt: ! Line Location: CSV+1
Function Call: WRITE	Prompt: !!,"File "_ACRFILE_" has been put into "_ACRDIR Line Location: PROCHFS+2
Function Call: WRITE	Prompt: @IOF Line Location: PROCHFS+3
Function Call: WRITE	Prompt: !?10,$P(STR,U,5) Line Location: SUBHEAD+8
Function Call: WRITE	Prompt: ! Line Location: SUBHEAD+9
Function Call: WRITE	Prompt: ", ",$P(STR,U,I) Line Location: SUBHEAD+9
Function Call: WRITE	Prompt: !,"-------------------------------------------------------------------------------" Line Location: SUBHEAD+10
Routine Call	%ZIS Line Location: PROCHFS+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ACR"	WRT+3, WRT+4, WRT+19!

Name	Line Occurrences
@(	HFS+9
CSV	HEAD+3, HEAD+4, WRT+7, SUBHEAD+3
HFS	PRINTMN+5, PRINTIV+5, PRINTMD+5, PRINTME+5, PRINTMZ+5, PRINTAD+5, PRINTAE+4, PRINTAV+6
PROCHFS	HFS+10

Name	Field # of Occurrence
>> %FILE	HEAD+1, HEAD+2, WRT+5, WRT+6, SUBHEAD+1, SUBHEAD+2
ACR	WRT+1~, WRT+4*, WRT+7, WRT+9, WRT+11, WRT+12, WRT+13, WRT+14, WRT+16
ACR("HFS"	HFS+2*, HFS+5!
ACRDIR	HFS+1!, HFS+7*, PROCHFS+2
ACRFILE	HFS+1!, HFS+8*, PROCHFS+2
ACRHFS	HFS+1!, HFS+6, HEAD+1, WRT+5, WRT+17, WRT+18, SUBHEAD+1
>> ACROUT	WRT+3
ACRP	WRT+1~, WRT+2, WRT+3, WRT+4, WRT+9, WRT+11
>> ACRRTN	PRINTMN+3, PRINTIV+3, PRINTMD+3, PRINTME+3, PRINTMZ+3, PRINTAD+3, PRINTAE+2, PRINTAV+4
ACRTMP	WRT+1~, WRT+14*, WRT+15
HD1	HEAD~, HEAD+3, HEAD+7
HD2	HEAD~, HEAD+4, HEAD+8
I	WRT+1~, WRT+13, WRT+14, WRT+16, CSV+2, CSV+3, SUBHEAD+9*
IOF	WRT+17, WRT+18, PROCHFS+3
IOSL	WRT+17
NUM	WRT~, WRT+8, WRT+10, SUBHEAD~, SUBHEAD+4, SUBHEAD+6
REC	CSV~, CSV+2, CSV+3
STR	PRINTMN+2, PRINTMN+5, PRINTIV+2, PRINTIV+5, PRINTMD+2, PRINTMD+5, PRINTME+2, PRINTMZ+2, PRINTMZ+5, PRINTAD+2 , PRINTAD+5, PRINTAE+1, PRINTAE+4, PRINTAV+2, PRINTAV+6, HFS~, SUBHEAD~, SUBHEAD+3, SUBHEAD+5, SUBHEAD+7 , SUBHEAD+8, SUBHEAD+9
SUB	HFS~, HFS+9
>> TMP	CSV+3*, CSV+5, CSV+6
U	WRT+9, WRT+11, WRT+12, WRT+13, WRT+14, WRT+16, CSV+2, CSV+3, SUBHEAD+5, SUBHEAD+7 , SUBHEAD+8, SUBHEAD+9
>> ZISH1	HFS+7
>> ZISH2	HFS+8
>> ZTDESC	PRINTMN+4, PRINTIV+4, PRINTMD+4, PRINTME+4, PRINTMZ+4, PRINTAD+4, PRINTAE+3, PRINTAV+5
>> ZTRTN	PRINTMN+3, PRINTIV+3, PRINTMD+3, PRINTME+3, PRINTMZ+3, PRINTAD+3, PRINTAE+2, PRINTAV+4
>> ZTSAVE("STR"	PRINTAV+3, HFS+3