Global: ^PRC(440

FileMan FileNo	FileMan Filename	Package
440	VENDOR	IFCAP

Package	Total	Routines
IFCAP	200	CONTRACT/BOA NUMBER ITEM SPECIFIC INFORMATION PRCBVE PRCF FMS VENEDIT1 PRCF FMS VENEDIT1B PRCF FMS VENEDIT2 PRCF FMS VENEDIT2B PRCF SUB EDIT PRCFA TT900.00 PRCFAC4 PRCFDA1X PRCFDCI PRCFDE PRCFVEX PRCH1A1 PRCH1A2 PRCH69EN PRCHAMY4 PRCHCRD PRCHCRD3 PRCHDSP PRCHDSP7 PRCHE1A PRCHMA0 PRCHMA1 PRCHNPT PRCHPNT PRCHQ15 PRCHQ4 PRCHQ41B PRCHQ4A PRCHQRP4 PRCHRP1 PRCHRP6 PRCHRP7 PRCHRPT1 PRCHSP1 PRCHUTL PRCHVENDOR PRCHVENDOR1 PRCOE1 PRCOEDI PRCOPHA PRCORV PRCOVUP2 PRCPAUTH PRCPAWI0 PRCPCSP1 PRCPEIPS PRCPRAVL PRCPRCAT PRCPRPIT PRCPRPOS PRCPUX1 PRCVIMF VENDOR ^PRC(440 PRCFAC01 PRCFAC3 PRCFARR PRCFARR0 PRCFDA1 PRCFDBL PRCFDBL2 PRCFDE2 PRCFDSC1 PRCFDSUS PRCFFMO1 PRCFVEX1 PRCGARC1 PRCH410 PRCH442 PRCH516P PRCH69 PRCHAAC PRCHAM1 PRCHAM4 PRCHAM5 PRCHCON2 PRCHCRD1 PRCHCRD2 PRCHCS2 PRCHDAM PRCHDAM4 PRCHDP1 PRCHDP8 PRCHDPO PRCHDSP2 PRCHE1 PRCHEA1 PRCHFPDE PRCHFPDS PRCHFPDT PRCHFPT0 PRCHHI8 PRCHI1 PRCHID PRCHITM5 PRCHITX PRCHJS03 PRCHLO1 PRCHLO6 PRCHMA2 PRCHNPO1 PRCHNPO4 PRCHNPO5 PRCHNPO7 PRCHNRQ PRCHP18 PRCHPAM PRCHPAM5 PRCHPAM8 PRCHQ11 PRCHQ13A PRCHQ1B PRCHQ1C PRCHQ3 PRCHQ5 PRCHQ6 PRCHQPST PRCHQRP3 PRCHRAT9 PRCHRCS PRCHRCS7 PRCHRP10 PRCHRP2 PRCHRP4 PRCHRP5 PRCHRP9 PRCHRPL PRCHRPT9 PRCHRPTX PRCHSWCH PRCHT12 PRCHT13 PRCHT33 PRCHT34 PRCHVENDORNOREACT PRCOE4 PRCOEC1 PRCOER PRCOESE PRCOPHA1 PRCORV1 PRCOSS1 PRCOSS6 PRCOSSO PRCOVL PRCOVRQ PRCOVRQ1 PRCOVTST PRCOVUP PRCOVUP1 PRCOVUP4 PRCP REPORT:POSTED STOCK PRCP5POS PRCPAGP0 PRCPAGP1 PRCPAGPR PRCPAGPV PRCPAWI1 PRCPDAP2 PRCPEIPU PRCPEITD PRCPPOL1 PRCPPOLM PRCPRDIN PRCPRIT1 PRCPRPKG PRCPSMB1 PRCPUMAN PRCPWPPL PRCSES1 PRCSP121 PRCVIT PRCVNDR PROCUREMENT SOURCE ^PRC(440.3 PRCPEIUI PRCPRCOS PRCPRDI0 PRCPREME PRCPRLAS PRCPRPK1 PRCPRPK2 PRCPSMST PRCPUUIW PRCPWDOR PRCPWDOU PRCPWPLM PRCSD121 PRCSES PRCSP13 PRCSP132 PRCSRIE PRCSRIG2 PRCVIBF PRCVRC2 SOCIOECONOMIC GROUP (FPDS) SYNONYM
Prosthetics	45	RMPOBIL5 RMPOBIL7 RMPOLF2 RMPOLM RMPOPAT2 RMPORMB RMPOVDC RMPR21A RMPR29B RMPR29LS RMPR29U RMPR31U RMPR421A RMPR4LOP RMPR4OPN RMPR4P21 RMPR5N2 RMPR5N3 RMPR5SRV RMPR9P21 RMPR9S4 RMPR9S7 RMPR9S8 RMPRFO2 RMPRFO3 RMPRFO6 RMPRHL RMPRL22 RMPRL9 RMPRLOP RMPROPN RMPROPN1 RMPRP21 RMPRP55 RMPRPAT2 RMPRPCEL RMPRPI09 RMPRPIYK RMPRPRT1 RMPRSE1 RMPRSE2 RMPRSE21 RMPRSEA RMPRST2 RMPRSTK
Drug Accountability	8	PRIMARY INVENTORY POINT(S) PSACON PSACON1 PSADRI PSADRIH PSADRIP PSAREC PSAUNI
Equipment Turn-In Request	6	PRCN2237 PRCNENG PRCNHLP PRCNREQE PRCNUTL PRCNUTL1
Accounts Receivable	4	PRCAEA1 PRCASVC6 RCAMADD RCTOP1
Beneficiary Travel	1	DGBTOA2
Real Time Location System	1	VIAAIMUP

Package	Total	Routines
IFCAP	32	PRCFVEX1 PRCHE PRCHE1 PRCHEA1 PRCHITM5 PRCHJS03 PRCHLO7 PRCHMA2 PRCHNPO5 PRCHNPT PRCHQPST PRCHRPT7 PRCHT13 PRCHT34 PRCHUTL PRCHVEND PRCORV PRCORV1 PRCOVL PRCOVL1 PRCOVUP PRCOVUP1 PRCPAGPV PRCPEIPS PRCSES PRCV442A PRCV442B PRCVLIC PRCVRC1 PRCVRC2 PRCVTAP PRCVTCA
Prosthetics	6	RMPOPED RMPRED6 RMPREXT RMPRPIU0 RMPRPIYA RMPRPIYE
Accounts Receivable	3	PRCAEA1 RCAM RCTOP1
Beneficiary Travel	2	DGBTOA1 DGBTR125
Equipment Turn-In Request	2	PRCNUTL PRCNUTL1

Package	Total	FileMan Files
Prosthetics	14	HOME OXYGEN TRANSACTIONS FILE(#665.72)[#665.7231(.01), #665.7232(5)] RECORD OF PROS APPLIANCE/REPAIR(#660)[7] PROS ITEM LOCATION(#661.3)[#661.312(25)] HCPCS INVENTORY ORDER AND REORDER(#661.41)[4] PROSTHETIC INVENTORY TRANSACTION(#661.6)[12] PROSTHETIC TRANSACTION PATIENT ISSUE(#661.63)[9] VENDOR PRODUCT HCPCS MAP(#661.8)[3] PROSTHETICS 1358(#664)[4] PROSTHETIC 2529-3(#664.1)[#664.16(15)] PROSTHETIC WORK ORDER(#664.2)[#664.22(5)] PROSTHETICS PATIENT(#665)[#665.194(1)] PROSTHETIC HOME/LIAISON VISITS(#665.1)[1] PROS LETTER TRANSACTION FILE(#665.4)[7] PROSTHETICS SITE PARAMETERS(#669.9)[#669.962(.01)]
IFCAP	11	VENDOR(#440)[15] ITEM MASTER(#441)[9, 10, #441.01(.01), #441.03(3)] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[5, 53] AMENDMENTS(#443.6)[5, 53] REQUEST FOR QUOTATION(#444)[20, 24, #444.01(.01), #444.019(13), #444.019(17), #444.021(11), #444.022(.01), #444.024(.01)] RFQ VENDOR(#444.1)[60] INVOICE TRACKING(#421.5)[6] GENERIC INVENTORY(#445)[#445.01(.4), #445.07(.01)] CONTROL POINT ACTIVITY(#410)[12] REPETITIVE ITEM LIST(#410.3)[#410.31(4)] DYNAMED IFCAP INTERFACE AUDIT(#414.02)[2]
Engineering	2	CATEGORY STOCK NUMBER(#6917)[#6917.016(.01)] EQUIPMENT INV.(#6914)[10]
Accounts Receivable	1	AR DEBTOR(#340)[.01, .06]
Beneficiary Travel	1	BENEFICIARY TRAVEL CLAIM(#392)[7, 71]
Equipment Turn-In Request	1	EQUIPMENT REQUEST(#413)[55.5, #413.015(2)]
Incomplete Records Tracking	1	INCOMPLETE RECORDS(#393)[10.04]
Integrated Billing	1	PFSS CHARGE CACHE(#373)[23.01]
Interim Management Support	1	VAMC MANAGEMENT(#731)[#731.02(4)]

Package	Total	FileMan Files
IFCAP	3	VENDOR(#440)[15] CODE INDEX(#420.6)[#440.01(.01), #440.05(.01)] SOURCE CODE(#420.8)[.06]
Kernel	2	STATE(#5)[4.4, 16.5, 17.8, 22.5] NEW PERSON(#200)[31, 33]

Fields, Total: 79

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) K:$$NOK^PRCHE1(X) X` LAST EDITED: `MAR 17, 2017` HELP-PROMPT: `Type a whole number between 1 and 949999; 950000-999999 are reserved.` DESCRIPTION: `This is the vendor number. Values 950000 and higher are reserved for vendor entries controlled by the VHA Procurement & Logistics Office.` TECHNICAL DESCR: `This is the internal entry number for this vendor.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD******************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>36!($L(X)<1)!'(X'?1P.E) X I $D(X) S:$D(PRCHPO) DIC("DR")="[PRCHVENDOR]"` LAST EDITED: `MAY 10, 1999` HELP-PROMPT: `ANSWER MUST BE 1-36 CHARACTERS IN LENGTH` DESCRIPTION: `This is the vendor name.` DELETE TEST: `1,0)= I 1 D EN^DDIOL(" VENDOR CAN'T BE DELETED!! ","","?0")` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `440^B^MUMPS` `1)= I $D(X) S X=$$UP^XLFSTR(X),^PRC(440,"B",$E(X,1,30),DA)=""` `2)= I $D(X) S X=$$UP^XLFSTR(X) K ^PRC(440,"B",$E(X,1,30),DA)` `TESTING TO SEE IF MIXED OR LOWER CASE SHOWS UP AS UPPERCASE.` CROSS-REFERENCE: `440^AD^MUMPS` `1)= I '$D(DIU(0)),$E(X,1,2)'="" S:$D(DT) $P(^PRC(440,DA,10),U,1)=DT S:$D(DUZ) $P(^(10),U,2)=DUZ` `2)= Q` `This X-REF will SET both the DATE VENDOR CREATED and CREATED BY fields if the vendor is not INACTIVATED. Inactivation is shown when the first two characters of the vendor's name are '**'.`
.05	SUPPLY WHSE. INDICATOR	0;11	SET	'S' FOR SUPPLY WAREHOUSE; INPUT TRANSFORM: `I $D(^PRC(440,"AC")) S Z0=+$O(^("AC","S",0)) I $D(^PRC(440,Z0,0)) W !,*7,$P(^(0),U,1)_" is already designated as the SUPPLY WAREHOUSE " K X` LAST EDITED: `JUN 05, 1987` HELP-PROMPT: `There can only be one source designated as the SUPPLY WAREHOUSE` DESCRIPTION: `This is the set of codes for supply warehouse indicator. Only one source can be designated as the supply warehouse.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `440^AC^MUMPS` `1)= K ^PRC(440,"AC") S ^PRC(440,"AC",X,DA)=""` `2)= K ^PRC(440,"AC",X,DA)` `This X-REF is used to allow only one 'VENDOR' to be the 'SUPPLY WAREHOUSE'. The input transform for this field will allow only one vendor in this 'AC' X-REF to have a SUPPLY WHSE. INDICATOR, an 'S', in this field.`
.06	FEDERAL SOURCE	2;2	POINTER TO SOURCE CODE FILE (#420.8)	SOURCE CODE(#420.8) INPUT TRANSFORM: `S DIC("S")="I ""134590""[$E(^(0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 22, 1994` HELP-PROMPT: `Enter only if this is Federal Source vendor and will only be used on a requisition.` DESCRIPTION: `This is the federal source.` SCREEN: `S DIC("S")="I ""134590""[$E(^(0))"` EXPLANATION: `ENTER THE APPROPRIATE SOURCE CODE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.2	EDI VENDOR?	3;2	SET	'Y' FOR YES; LAST EDITED: `AUG 01, 1991` HELP-PROMPT: `Enter YES if this vendor can accept purchase orders electronically using EDI X12. Do do only if directed from Austin.` DESCRIPTION: `This field identifies those vendors who are prepared to receive purchase orders electronically through the EDI system in AUSTIN. Don't enter anything in this field unless directed to do so from the EDI group in Austin,` `Texas.`
.4	VENDOR ID NUMBER	3;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<5) X I $D(X) K:X'?5.12UN X` LAST EDITED: `JUN 18, 1996` HELP-PROMPT: `Enter the vendor's EDI identification number. It should be 5-12 upper case alpha/numeric characters.` DESCRIPTION: `This field uniquely identifies a vendor to the EDI system. Don't enter anything in this field unless directed to do so from the EDI group in Austin, Texas.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `440^AG` `1)= S ^PRC(440,"AG",$E(X,1,30),DA)=""` `2)= K ^PRC(440,"AG",$E(X,1,30),DA)` `This x-ref allows quick location of the vendor record with the vendor ID number selected.`
1	ORDERING ADDRESS1	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>33!($L(X)<1) X` LAST EDITED: `FEB 20, 1986` HELP-PROMPT: `ANSWER MUST BE 1-33 CHARACTERS IN LENGTH` DESCRIPTION: `This is the vendor ordering address line 1.`
2	ORDERING ADDRESS2	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>33!($L(X)<1) X` LAST EDITED: `FEB 20, 1986` HELP-PROMPT: `ANSWER MUST BE 1-33 CHARACTERS IN LENGTH` DESCRIPTION: `This is the vendor ordering address line 2.`
3	ORDERING ADDRESS3	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `FEB 20, 1986` HELP-PROMPT: `ANSWER MUST BE 1-25 CHARACTERS IN LENGTH` DESCRIPTION: `This is the vendor ordering address line 3.`
4	ORDERING ADDRESS4	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `FEB 20, 1986` HELP-PROMPT: `ANSWER MUST BE 1-25 CHARACTERS IN LENGTH` DESCRIPTION: `This is the vendor ordering address line 4.`
4.2	ORDERING CITY	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `FEB 08, 1986` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH` DESCRIPTION: `This is the city of the vendor ordering address.`
4.4	ORDERING STATE	0;7	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `FEB 08, 1986` HELP-PROMPT: `enter the state that goes with this ORDERING ADDRESS.` DESCRIPTION: `This is the state for the vendor ordering address.`
4.6	ORDERING ZIP CODE	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)<5!(X'?5N.E)!($L(X)>10)!($L(X)>5&(X'?5N1"-"4N)) X` LAST EDITED: `APR 06, 1995` HELP-PROMPT: `5 DIGIT ZIP OR A 9 DIGIT ZIP IN THIS FORMAT 12345-6789` DESCRIPTION: `This is the zip code of the ordering address.` TECHNICAL DESCR: `The input transform checks for a pattern of 5 numerics or 5 numerics followed by a dash (-) and 4 numerics. It also checks for a total length of 10, so fileman will print the zip+4 in outputs.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4.7	COUNTY	2;4	FREE TEXT	INPUT TRANSFORM: `S Z0=$S($P(^PRC(440,D0,0),U,7)]"":$P(^(0),U,7),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC` OUTPUT TRANSFORM: `Q:Y']"" S Z0=$S($P(^PRC(440,D0,0),U,7)]"":$P(^(0),U,7),1:0) Q:'Z0 S Y=$S($D(^DIC(5,Z0,1,Y,0)):$P(^(0),U,1),1:"") K Z0` LAST EDITED: `MAY 14, 1986` HELP-PROMPT: `Enter the appropriate county for the given state` DESCRIPTION: `This is the appropriate county for the given state of the vendor ordering address.` EXECUTABLE HELP: `S ZD=D,X="?",Z0=$S($P(^PRC(440,D0,0),U,7)]"":$P(^(0),U,7),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4.8	PROCUREMENT CONTACT PERSON	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 27, 1985` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the name of the procurement contact person.`
5	VENDOR PHONE NUMBER	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<7) X` LAST EDITED: `JUL 07, 1994` HELP-PROMPT: `Answer must be 7-18 characters in length.` DESCRIPTION: `This is the phone number of the vendor contact person.`
5.1	ACCOUNT NO.	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>33!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-33 CHARACTERS IN LENGTH` DESCRIPTION: `This is the vendor account number.`
5.2	GUARANTEED DELIVERY VENDOR?	2;11	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 20, 1989` HELP-PROMPT: `Enter 'Y' if an agreement has been set up with this vendor to guarantee delivery on direct deliveries to patients.` DESCRIPTION: `Enter YES if there is a guaranteed delivery agreement for this vendor.`
6	CONTRACT/BOA NUMBER	4;0	Multiple #440.03	440.03 LAST EDITED: `FEB 03, 1997` DESCRIPTION: `This is the Vendor's Contract # or Basic Ordering Agreement(BOA) #.` IDENTIFIED BY: `BEGINING DATE(#.5), EXPIRATION DATE(#1)[R], CONTRACT TERMS(#2), CONTRACT FLAG(#5)[R]`
8	LABOR SURPLUS AREA?	2;5	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 19, 1986` HELP-PROMPT: `Enter 'YES' if this vendor is located in a labor surplus area.` DESCRIPTION: `This indicates whether or not the vendor is located in a labor surplus.`
8.2	BUSINESS TYPE (FPDS-88)	2;6	SET	**********************REQUIRED FIELD********************** '1' FOR SMALL; '2' FOR LARGE; '3' FOR OTHER ENTITIES; '4' FOR OUTSIDE U.S.; '5' FOR FEDERAL GOVT. SOURCE; LAST EDITED: `AUG 25, 1988` HELP-PROMPT: `Select one entry from the choices.` DESCRIPTION: `This is the type of business for FY88 FPDS reporting purposes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8.3	BUSINESS TYPE (FPDS)	2;3	SET	**********************REQUIRED FIELD********************** '1' FOR SMALL; '2' FOR LARGE; '3' FOR OUTSIDE U.S.; '4' FOR OTHER ENTITIES; LAST EDITED: `AUG 25, 1988` HELP-PROMPT: `Enter FPDS Business Type for FPDS reports for FY 1989 or later.` DESCRIPTION: `This is the type of business for FY89 FPDS reporting purposes.`
9	TYPE OF OWNERSHIP (FY88)	1;0	POINTER Multiple #440.01	440.01 DESCRIPTION: `This is the type of ownership for FY88 FPDS reporting purposes.`
10	SOCIOECONOMIC GROUP (FPDS)	1.1;0	POINTER Multiple #440.05	440.05 DESCRIPTION: `This is the socioeconomic group of the vendor for the current year.`
11	SPECIAL FACTORS	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-50 CHARACTERS IN LENGTH` DESCRIPTION: `These are the special factors to be considered when ordering from this vendor.`
12.4	AUSTIN DELETED?	2;9	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 13, 1986` DESCRIPTION: `This indicates whether or not the vendor has been deleted from the Austin DPC vendor file.`
12.5	FEE VENDOR	2;10	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 13, 1986` DESCRIPTION: `This indicates whether or not this vendor is a fee basis vendor.`
13	IS A SF129 ON FILE?	2;7	SET	'Y' FOR YES; 'N' FOR NO; 'NA' FOR NOT APPLICABLE; LAST EDITED: `MAR 29, 1986` DESCRIPTION: `This indicates whether or not a Standard Form 129 is on file.`
14	DATE OF SF129	2;8	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 29, 1986` DESCRIPTION: `This is the date of the Standard Form 129.`
15	REPLACEMENT VENDOR	9;1	POINTER TO VENDOR FILE (#440)	VENDOR(#440) INPUT TRANSFORM: `S DIC("S")="I $S('$D(^(10)):1,+$P(^(10),U,5)=0:1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0!(+Y=$G(DA))!(+Y=$G(D0)) X` LAST EDITED: `MAY 05, 1997` DESCRIPTION: `This is the replacement vendor.` SCREEN: `S DIC("S")="I $S('$D(^(10)):1,+$P(^(10),U,5)=0:1,1:0)"` EXPLANATION: `The Replacement Vendor for a vendor cannot be inactive (or that vendor itself).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
16	SERVICE/RETURN ADDRESS1	6;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>33!($L(X)<1) X` LAST EDITED: `NOV 22, 1986` HELP-PROMPT: `ANSWER MUST BE 1-33 CHARACTERS IN LENGTH` DESCRIPTION: `This is the service/return address 1.`
16.1	SERVICE/RETURN ADDRESS2	6;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>33!($L(X)<1) X` LAST EDITED: `NOV 22, 1986` HELP-PROMPT: `ANSWER MUST BE 1-33 CHARACTERS IN LENGTH` DESCRIPTION: `This is the service/return address 2.`
16.2	SERVICE/RETURN ADDRESS3	6;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `NOV 22, 1986` HELP-PROMPT: `ANSWER MUST BE 1-25 CHARACTERS IN LENGTH` DESCRIPTION: `This is the service/return address 3.`
16.3	SERVICE/RETURN ADDRESS4	6;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `NOV 22, 1986` HELP-PROMPT: `ANSWER MUST BE 1-25 CHARACTERS IN LENGTH` DESCRIPTION: `This is the service/return address 4`
16.4	SERVICE/RETURN CITY	6;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `NOV 22, 1986` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH` DESCRIPTION: `This is the city of the service/return address.`
16.5	SERVICE/RETURN STATE	6;6	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `NOV 22, 1986` DESCRIPTION: `This is the state of the service/return address.`
16.6	SERVICE/RETURN ZIP CODE	6;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)<5!(X'?5N.E)!($L(X)>10)!($L(X)>5&(X'?5N1"-"4N)) X` LAST EDITED: `APR 06, 1995` HELP-PROMPT: `5 DIGIT ZIP CODE OR 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789` DESCRIPTION: `This is the zip code of the service/return address.` TECHNICAL DESCR: `The input transform checks for a pattern of 5 numerics or 5 numerics followed by a dash (-) and 4 numerics. It also checks for a total length of 10, so fileman will print the zip+4 in outputs.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
16.7	SERVICE CONTACT PERSON	6;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 22, 1986` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the service contact person.`
16.8	SERVICE PHONE NO.	6;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<3) X` LAST EDITED: `NOV 22, 1986` HELP-PROMPT: `ANSWER MUST BE 3-18 CHARACTERS IN LENGTH` DESCRIPTION: `This is the phone number for the service/return contact person.`
17	PAYMENT CONTACT PERSON	7;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 22, 1986` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the payment contact person.`
17.2	PAYMENT PHONE NO.	7;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<3) X` LAST EDITED: `NOV 22, 1986` HELP-PROMPT: `ANSWER MUST BE 3-18 CHARACTERS IN LENGTH` DESCRIPTION: `This is the phone number for the payment contact person.`
17.3	PAYMENT ADDRESS1	7;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 11, 2001` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the mailing address, where payment of bill will be sent to.` TECHNICAL DESCR: `Changed from 33 characters maximum to 23 characters for FMS. Changed from 23 characters maximum to 30 characters by IFCAP patch PRC5.130.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
17.4	PAYMENT ADDRESS2	7;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 11, 2001` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the mailing address, where payment of bill will be sent to.` TECHNICAL DESCR: `Changed from 33 characters maximum to 23 characters for FMS. Changed from 23 characters maximum to 30 characters by IFCAP patch PRC5.130.`
17.5	PAYMENT ADDRESS3	7;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 11, 2001` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the mailing address, where payment of bill will be sent to.` TECHNICAL DESCR: `Changed from 25 characters maximum to 23 characters to be the same as PAYMENT ADDRESS1 and PAYMENT ADDRESS 2. Changed from 23 characters maximum to 30 characters to be the same as PAYMENT ADDRESS1 and PAYMENT ADDRESS2.`
17.6	PAYMENT ADDRESS4	7;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 11, 2001` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the mailing address, where payment of bill will be sent to.` TECHNICAL DESCR: `Changed from 25 characters maximum to 23 characters to be the same as PAYMENT ADDRESS1 and PAYMENT ADDRESS2. Changed from 23 characters maximum to 30 characters to be the same as PAYMENT ADDRESS1 and PAYMENT ADDRESS2.`
17.7	PAYMENT CITY	7;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `JUL 07, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `This is the city of payment address.`
17.8	PAYMENT STATE	7;8	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) LAST EDITED: `JUL 07, 1994` DESCRIPTION: `This is the state of the payment address.`
17.9	PAYMENT ZIP CODE	7;9	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)<5!(X'?5N.E)!($L(X)>10)!($L(X)>5&(X'?5N1"-"4N)) X` LAST EDITED: `APR 06, 1995` HELP-PROMPT: `ENTER 5 DIGIT ZIP CODE OR 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789` DESCRIPTION: `This is the zip code for the payment address.` TECHNICAL DESCR: `The input transform checks for a pattern of 5 numerics or 5 numerics followed by a dash (-) and 4 numerics. It also checks for a total length of 10, so fileman will print the zip+4 in outputs.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
18	CALM ID NUMBER	7;10	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!(X'?9UN) X` LAST EDITED: `JUN 15, 1994` HELP-PROMPT: `Answer must be 9 characters in length.` DESCRIPTION: `This is the CALM identification number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `440^AF` `1)= S ^PRC(440,"AF",$E(X,1,30),DA)=""` `2)= K ^PRC(440,"AF",$E(X,1,30),DA)` `This x-ref is used during FMS-VENDOR conversion as one way to find the vendor record entered in the FMS-CVU document.`
18.2	CALM STUB NAME	7;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `FEB 12, 1987` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the CALM stub name.`
18.3	DUN & BRADSTREET #	7;12	FREE TEXT	INPUT TRANSFORM: `S:$E(X,1,3)="DUN" X=$E(X,4,99) K:X'?9N&(X'?13N) X` LAST EDITED: `MAR 13, 2007` HELP-PROMPT: `ANSWER MUST BE EITHER 9 OR 13 DIGITS IN LENGTH` DESCRIPTION: `This is the vendor's Dun & Bradstreet number, if applicable.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `440^DB^MUMPS` `1)= S ^PRC(440,"DB","DUN"_$E(X,1,30),DA)=""` `2)= K ^PRC(440,"DB","DUN"_$E(X,1,30),DA)` `This cross reference enables lookup by Dun & Bradstreet #.`
20	SYNONYM	5;0	Multiple #440.02	440.02 DESCRIPTION: `This is a synonym for the vendor.`
21	REMARKS	8;0	WORD-PROCESSING #440.04	DESCRIPTION: `These are remarks about the vendor.` LAST EDITED: `NOV 22, 1986` DESCRIPTION: `Remarks about the vendor`
22.1	BILLING ADDRESS1	.11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `MAY 18, 1987` HELP-PROMPT: `ANSWER MUST BE 1-50 CHARACTERS IN LENGTH` DESCRIPTION: `This is the billing address 1.`
22.2	BILLING ADDRESS2	.11;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `MAY 18, 1987` HELP-PROMPT: `ANSWER MUST BE 1-50 CHARACTERS IN LENGTH` DESCRIPTION: `This is the billing address 2.`
22.3	BILLING ADDRESS3	.11;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAY 18, 1987` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the billing address 3.`
22.4	BILLING CITY	.11;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAY 18, 1987` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the city of the billing address.`
22.5	BILLING STATE	.11;5	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `NOV 25, 1987` DESCRIPTION: `This is the state of the billing address.`
22.6	BILLING ZIP CODE	.11;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<5) X` LAST EDITED: `MAY 18, 1987` HELP-PROMPT: `ANSWER MUST BE 5-9 CHARACTERS IN LENGTH` DESCRIPTION: `This is the zip code of the billing address.`
22.7	BILLING PHONE NUMBER	.11;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `MAR 01, 1991` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `This is the phone number of the billing address.`
30	DATE VENDOR CREATED	10;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 07, 1989` HELP-PROMPT: `Date Vendor was originally created, or Vendor Name was changed.` DESCRIPTION: `This is the date the vendor was created, or the date the vendor name changed.`
31	CREATED BY	10;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 21, 1992` HELP-PROMPT: `Name of person who added vendor to this file.` DESCRIPTION: `This is the person who created the vendor.`
31.5	INACTIVATED VENDOR	10;5	SET	'1' FOR INACTIVATED; LAST EDITED: `JUL 29, 1993` HELP-PROMPT: `Set to '1' automatically by the option used to inactivate a vendor.` DESCRIPTION: `This field is set automatically by the option used to inactivate a vendor.` CROSS-REFERENCE: `440^AE^MUMPS` `1)= I '$D(DIU(0)) S:$D(DT) $P(^PRC(440,DA,10),U,3)=DT S:$D(DUZ) $P(^(10),U,4)=DUZ` `2)= I '$D(DIU(0)) S $P(^PRC(440,DA,10),U,3,4)="^"` `This X-REF will SET the DATE INACTIVATED and the INACTIVATED BY fields when a vendor is inactivated. If a vendor is reactivated both fields will be set to null in the KILL statement.`
32	DATE INACTIVATED	10;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 07, 1989` DESCRIPTION: `This is the date the vendor was made inactive.`
33	INACTIVATED BY	10;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 21, 1992` DESCRIPTION: `This is the person who made the vendor inactive.`
34	FMS VENDOR CODE	3;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9) X` LAST EDITED: `FEB 23, 1995` HELP-PROMPT: `Answer must be 9 characters in length.` DESCRIPTION: `This is the code that FMS uses to identify a vendor. It comes from the SSN/TAX ID NUMBER field in this file.` CROSS-REFERENCE: `440^D` `1)= S ^PRC(440,"D",$E(X,1,30),DA)=""` `2)= K ^PRC(440,"D",$E(X,1,30),DA)`
34.5	FMS VENDOR NAME	3;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `AUG 08, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the FMS Vendor Name which is entered in the FMS system.` `UNEDITABLE`
35	ALT-ADDR-IND	3;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `JAN 27, 1994` DESCRIPTION: `This field allows one VENDOR to have many payment addresses.`
36	NON-RECURRING/RECURRING VENDOR	3;6	SET	'N' FOR NON-RECURRING VENDOR; 'R' FOR RECURRING; LAST EDITED: `SEP 19, 1994` DESCRIPTION: `This field having a 'N' will represent that this vendor will be used only one time.`
38	TAX ID/SSN	3;8	FREE TEXT	INPUT TRANSFORM: `S X=$TR(X,"-") K:$L(X)>9!($L(X)<9)!(X'?9N) X` LAST EDITED: `JUL 12, 1994` HELP-PROMPT: `Enter 9 digits with 0 Decimal Digits.` DESCRIPTION: `This field will send FMS information that will be used as the FMS VENDOR CODE. FMS might use a different FMS VENDOR CODE but that is normally not done.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
39	SSN/TAX ID INDICATOR	3;9	SET	'S' FOR SOCIAL SECURITY NUMBER; 'T' FOR TAX IDENTIFICATION NUMBER; LAST EDITED: `JUL 07, 1994` DESCRIPTION: `This field identifies what the TAX ID/SSN field is.`
40	PAYMENT HOLD INDICATOR	3;10	SET	'N' FOR NO; 'Y' FOR YES; 'C' FOR CORRESPONDENCE; LAST EDITED: `FEB 04, 1994` DESCRIPTION: `Is payment for this vendor placed on hold? Do we pay this vendor or don't we.`
41	1099 VENDOR INDICATOR	3;11	SET	**********************REQUIRED FIELD********************** 'N' FOR NO; 'Y' FOR YES; LAST EDITED: `JUL 07, 1994` DESCRIPTION: `Is a 1099 form filled out for this vendor?`
42	PENDING FLAG	3;12	SET	'P' FOR PENDING APPROVAL; 'C' FOR CONFIRMATION OF APPROVAL; LAST EDITED: `FEB 04, 1994` DESCRIPTION: `Internal IFCAP flag used to state what is being done with this vendor and FMS. When a vendor request is sent to FMS other requests should wait until there is a FMS VENDOR UPDATE. Actually no other requests can be created` `until the update comes back.`
43	CENTRAL REMIT	3;13	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 11, 1994` DESCRIPTION: `Should all payments for this vendor be sent to one place?`
44	VENDOR TYPE	3;14	SET	**********************REQUIRED FIELD********************** 'A' FOR AGENT CASHIER; 'C' FOR COMMERCIAL; 'E' FOR EMPLOYEE; 'F' FOR FEDERAL GOVERNMENT; 'G' FOR GSA; 'I' FOR INDIVIDUALS-OTHER; 'O' FOR OTHER COUNTRIES; 'R' FOR COMMERCIAL-RECURRING PMTS; 'U' FOR UTILITY COMPANIES; 'V' FOR VETERANS; 'K' FOR CANTEEN; LAST EDITED: `APR 24, 1995` EXECUTABLE HELP: `I X="??" S XQH="PRCH VENDOR TYPE HELP" D EN^XQH`
45	MTI ACTION	3;15	SET	'A' FOR ADD; 'F' FOR ADD IFCAP ONLY; 'C' FOR CHANGE; 'D' FOR DELETE; LAST EDITED: `FEB 17, 1994` DESCRIPTION: `This is a set of conditions telling IFCAP what to do with the FMS VENDOR UPDATE. This field is never changed by IFCAP users.`
46	FAX #	10;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<7) X` LAST EDITED: `JUL 07, 1994` HELP-PROMPT: `Answer must be 7-18 characters in length.` DESCRIPTION: `This is the vendor's FAX phone number.`
55	UEI	3;16	FREE TEXT	INPUT TRANSFORM: `S X=$$UP^XLFSTR(X) K:'$$VALIDUEI^PRCHUEI(X) X` `MAXIMUM LENGTH: 12` LAST EDITED: `FEB 24, 2022` HELP-PROMPT: `Enter GSA's 12 characters Unique Entity Identifier for this vendor.` DESCRIPTION: `This field holds the Unique Entity Identifier (UEI) which is the alphanumeric value used as the primary key for vendors in GSA's System of Award Management (SAM). Value does not contain letters 'O' or 'I'.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `440^E` `1)= S ^PRC(440,"E",$E(X,1,30),DA)=""` `2)= K ^PRC(440,"E",$E(X,1,30),DA)` `This cross reference enables the lookup and sorting of vendor entries by the Unique Entity Identifier (UEI).`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #609	Prosthetics
ICR #800	Prosthetics M DATA EXTRACTOR
ICR #805	Accounts Receivable
ICR #988	Library
ICR #1498	Engineering	NAME (.01). Access: Pointed to
ICR #1525	EQUIPMENT/TURN-IN REQUEST	NAME (.01). Access: Pointed to	File 413 is the file that contains the non-expendableequipment requests. It is a front-end to the purchasing of equipment.
ICR #2606	Pharmacy Benefits Management	Name (.01). Access: Read w/Fileman
ICR #2859	Accounts Receivable	TAX ID/SSN (38). Access: Read w/Fileman SSN/TAX ID INDICATOR (39). Access: Read w/Fileman
ICR #4599	Prosthetics	BUSINESS TYPE (FPDS) (8.3). Access: Read w/Fileman DUN & BRADSTREET # (18.3). Access: Read w/Fileman TAX ID/SSN (38). Access: Read w/Fileman SSN/TAX ID INDICATOR (39). Access: Read w/Fileman
ICR #4676	Integrated Billing	NAME (.01). Access: Read w/Fileman
ICR #6530	ABOVE PAR ADVANCED PROSTHETICS ACQUISITION TOOL	NAME (.01). Access: Direct Global Read & R/W w/Fileman ORDERING ADDRESS 1 (1). Access: Both R/W w/Fileman ORDERING ADDRESS2 (2). Access: Both R/W w/Fileman ORDERING ADDRESS3 (3). Access: Both R/W w/Fileman ORDERING ADDRESS4 (4). Access: Both R/W w/Fileman ORDERING CITY (4.2). Access: Both R/W w/Fileman ORDERING STATE (4.4). Access: Both R/W w/Fileman ORDERING ZIP CODE (4.6). Access: Both R/W w/Fileman PROCUREMENT CONTACT PERSON (4.8). Access: Both R/W w/Fileman VENDOR PHONE NUMBER (5). Access: Both R/W w/Fileman SUPPLY WHSE. INDICATOR (.05). Access: Read w/Fileman BILLING ADDRESS1 (22.1). Access: Read w/Fileman BILLING ADDRESS2 (22.2). Access: Read w/Fileman BILLING ADDRESS3 (22.3). Access: Read w/Fileman BILLING CITY (22.4). Access: Read w/Fileman BILLING STATE (22.5). Access: Read w/Fileman BILLING ZIP CODE (22.6). Access: Read w/Fileman BILLING PHONE NUMBER (22.7). Access: Read w/Fileman TYPE OF OWNERSHIP (.01). Access: Both R/W w/Fileman SOCIOECONOMIC GROUP(FPDS) (.01). Access: Both R/W w/Fileman ACCOUNT NO. (5.1). Access: Both R/W w/Fileman FEDERAL SOURCE (.06). Access: Both R/W w/Fileman BUSINESS TYPE (FPDS) (8.3). Access: Both R/W w/Fileman COUNTY (4.7). Access: Both R/W w/Fileman LABOR SURPLUS AREA? (8). Access: Both R/W w/Fileman BUSINESS TYPE (FPDS-88) (8.2). Access: Both R/W w/Fileman IS A SF129 ON FILE? (13). Access: Both R/W w/Fileman DATE OF SF129 (14). Access: Both R/W w/Fileman AUSTIN DELETED? (12.4). Access: Read w/Fileman FEE VENDOR (12.5). Access: Read w/Fileman GUARANTEED DELIVERY VENDOR? (5.2). Access: Both R/W w/Fileman SPECIAL FACTORS (11). Access: Both R/W w/Fileman EDI VENDOR? (.2). Access: Both R/W w/Fileman VENDOR ID NUMBER (.4). Access: Both R/W w/Fileman FMS VENDOR CODE (34). Access: Read w/Fileman ALT-ADDR-IND (35). Access: Read w/Fileman NON-RECURRING/RECURRING VENDOR (36). Access: Both R/W w/Fileman FMS VENDOR NAME (34.5). Access: Read w/Fileman TAX ID/SSN (38). Access: Read w/Fileman SSN/TAX ID INDICATOR (39). Access: Read w/Fileman PAYMENT HOLD INDICATOR (40). Access: Read w/Fileman 1099 VENDOR INDICATOR (41). Access: Both R/W w/Fileman PENDING FLAG (42). Access: Read w/Fileman CENTRAL REMIT (43). Access: Read w/Fileman VENDOR TYPE (44). Access: Both R/W w/Fileman MTI ACTION (45). Access: Read w/Fileman UEI (55). Access: Read w/Fileman CONTRACT/BOA NUMBER (.01). Access: Both R/W w/Fileman EXPIRATION DATE (1). Access: Both R/W w/Fileman BEGINING DATE (.5). Access: Both R/W w/Fileman PROMPT PAYMENT TERMS % (3). Access: Both R/W w/Fileman PROMPT PAYMENT TERMS DAYS (4). Access: Both R/W w/Fileman CONTRACT FLAG (5). Access: Both R/W w/Fileman CONTRACT TERMS (2). Access: Both R/W w/Fileman SYNONYM (.01). Access: Both R/W w/Fileman SERVICE/RETURN ADDRESS1 (16). Access: Read w/Fileman SERVICE/RETURN ADDRESS2 (16.1). Access: Read w/Fileman SERVICE/RETURN ADDRESS3 (16.2). Access: Read w/Fileman SERVICE/RETURN ADDRESS4 (16.3). Access: Read w/Fileman SERVICE/RETURN CITY (16.4). Access: Read w/Fileman SERVICE/RETURN STATE (16.5). Access: Read w/Fileman SERVICE/RETURN ZIP CODE (16.6). Access: Read w/Fileman SERVICE CONTACT PERSON (16.7). Access: Read w/Fileman SERVICE PHONE NO. (16.8). Access: Read w/Fileman PAYMENT CONTACT PERSON (17). Access: Both R/W w/Fileman PAYMENT PHONE NO. (17.2). Access: Both R/W w/Fileman PAYMENT ADDRESS1 (17.3). Access: Both R/W w/Fileman PAYMENT ADDRESS2 (17.4). Access: Both R/W w/Fileman PAYMENT ADDRESS3 (17.5). Access: Read w/Fileman PAYMENT ADDRESS4 (17.6). Access: Read w/Fileman PAYMENT CITY (17.7). Access: Both R/W w/Fileman PAYMENT STATE (17.8). Access: Both R/W w/Fileman PAYMENT ZIP CODE (17.9). Access: Both R/W w/Fileman CALM ID NUMBER (18). Access: Read w/Fileman CALM STUB NAME (18.2). Access: Read w/Fileman DUN & BRADSTREET # (18.3). Access: Both R/W w/Fileman REMARKS (.01). Access: Both R/W w/Fileman REPLACEMENT VENDOR CREATED (15). Access: Both R/W w/Fileman DATE VENDOR CREATED (30). Access: Read w/Fileman CREATED BY (31). Access: Read w/Fileman DATE INACTIVATED (32). Access: Read w/Fileman INACTIVATED BY (33). Access: Read w/Fileman INACTIVATED VENDOR (31.5). Access: Both R/W w/Fileman FAX # (46). Access: Both R/W w/Fileman	"B" cross reference Used to look up by NAME"AC" cross reference Used to look up by SUPPLY WHSE.INDICATOR"B" cross reference Used to look up by CONTRACT/BOANUMBER"D" cross reference Used to look up by FMS VENDORCODE

Name	Field # of Occurrence
^%DT	14+1, 30+1, 32+1
EN^DDIOL	.01DEL1+1
^DIC	.06+1, 4.7+1, 4.7(HELP ), 15+1
$$NOK^PRCHE1	.001+1
START^PRCHID	IDZ+1
$$VALIDUEI^PRCHUEI	55+1
$$UP^XLFSTR	.01(XREF 1S), .01(XREF 1K), 55+1
EN^XQH	44(HELP )

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	4.7+1, 4.7OT+1, 4.7(HELP )
^PRC(440 - [#440]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .05(XREF 1S), .05(XREF 1K), .4(XREF 1S), .4(XREF 1K), 4.7+1, 4.7OT+1, 4.7(HELP ) , 18(XREF 1S), 18(XREF 1K), 18.3(XREF 1S), 18.3(XREF 1K), 31.5(XREF 1S), 31.5(XREF 1K), 34(XREF 1S), 34(XREF 1K), 55(XREF 1S), 55(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	14+1, 30+1, 32+1*
>> D	4.7(HELP )
>> D0	4.7+1, 4.7OT+1, 4.7(HELP ), 15+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .05(XREF 1S), .05(XREF 1K), .4(XREF 1S), .4(XREF 1K), 15+1, 18(XREF 1S), 18(XREF 1K) , 18.3(XREF 1S), 18.3(XREF 1K), 31.5(XREF 1S), 31.5(XREF 1K), 34(XREF 1S), 34(XREF 1K), 55(XREF 1S), 55(XREF 1K)
DIC	.06+1!, 4.7+1!, 4.7(HELP ), 15+1!*
DIC("DR"	.01+1*
DIC("S"	.06+1, .06SCR+1, 15+1, 15SCR+1
DIC(0	4.7+1*, 4.7(HELP )
>> DIE	.06+1, 4.7(HELP ), 15+1
>> DIU(0	.01(XREF 2S), 31.5(XREF 1S), 31.5(XREF 1K)
DT	.01(XREF 2S), 31.5(XREF 1S)
DUZ	.01(XREF 2S), 31.5(XREF 1S)
>> PRCHPO	.01+1
U	.01(XREF 2S), 4.7+1, 4.7OT+1, 4.7(HELP ), 31.5(XREF 1S), 31.5(XREF 1K)
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .05(XREF 1S), .05(XREF 1K), .06+1!, .4+1!, .4(XREF 1S) , .4(XREF 1K), 1+1!, 2+1!, 3+1!, 4+1!, 4.2+1!, 4.6+1!, 4.7+1!, 4.7(HELP ), 4.8+1! , 5+1!, 5.1+1!, 11+1!, 14+1!, 15+1!, 16+1!, 16.1+1!, 16.2+1!, 16.3+1!, 16.4+1! , 16.6+1!, 16.7+1!, 16.8+1!, 17+1!, 17.2+1!, 17.3+1!, 17.4+1!, 17.5+1!, 17.6+1!, 17.7+1! , 17.9+1!, 18+1!, 18(XREF 1S), 18(XREF 1K), 18.2+1!, 18.3+1!, 18.3(XREF 1S), 18.3(XREF 1K), 22.1+1!, 22.2+1! , 22.3+1!, 22.4+1!, 22.6+1!, 22.7+1!, 30+1!, 32+1!, 34+1!, 34(XREF 1S), 34(XREF 1K), 34.5+1! , 35+1!, 38+1!, 44(HELP ), 46+1!, 55+1*!, 55(XREF 1S), 55(XREF 1K)
>> XQH	44(HELP )
>> Y	.06+1, 4.7+1, 4.7OT+1*, 14+1, 15+1, 30+1, 32+1
>> Y(0	4.7OT+1*
Z0	4.7+1!, 4.7OT+1!, 4.7(HELP )
ZD	4.7(HELP )

Customize PDF page

Package: IFCAP

Global: ^PRC(440

Information

Description

Directly Accessed By Routines, Total: 276

Accessed By FileMan Db Calls, Total: 45

Pointed To By FileMan Files, Total: 33

Pointer To FileMan Files, Total: 5

Fields, Total: 79

ICR, Total: 11

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	4.7+1, 4.7OT+1, 4.7(HELP )
^(10	.01(XREF 2S), 31.5(XREF 1S)