STANDARD DATA DICTIONARY #731 -- VAMC MANAGEMENT FILE 9/29/25 PAGE 1
STORED IN ^ECT(731, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
File contains VAMC management information for each fiscal year. Data includes assigned FTEE by service by FY, workload data, and
contract information. **WARNING** All data should be input into this file through the IMS enter/edit menu options.
DD ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: FISCAL YEAR(B)
731,.01 FISCAL YEAR 0;1 FREE TEXT (Required)
FY
INPUT TRANSFORM: K:X'?2N X I $D(X) S DINUM=$S(+X<70:"3"_X,1:"2"_X)
LAST EDITED: OCT 22, 1990
HELP-PROMPT: Enter the two digit code for the Fiscal Year.
DESCRIPTION: Enter the fiscal year for which VAMC management data is to be collected. This is the 2-digit code
representing the fiscal year, i.e., 89 stands for fiscal year 1989.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 731^B
1)= S ^ECT(731,"B",$E(X,1,30),DA)=""
2)= K ^ECT(731,"B",$E(X,1,30),DA)
731,1 TOTAL ASSIGNED FTEE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: JAN 16, 1991
HELP-PROMPT: Type a Number between 0 and 9999, 3 Decimal Digits
DESCRIPTION:
Enter the total assigned FTEE for the VAMC for the selected fiscal year.
731,10 SERVICE 10;0 POINTER Multiple #731.01 (Add New Entry without Asking)
DESCRIPTION: Service is a pointer to the National Service file. Choose the service for which FTEE data is to be
entered.
731.01,.01 SERVICE 0;1 POINTER TO NATIONAL SERVICE FILE (#730) (Multiply asked)
INPUT TRANSFORM: S:$D(X)#2 DINUM=X
LAST EDITED: OCT 22, 1990
HELP-PROMPT: Select SERVICE for which FTEE data will be entered.
DESCRIPTION: Service is a pointer to the National Service file. Choose the service for which FTEE data is to
be entered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
731.01,1 ASSIGNED FTEE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: JAN 16, 1991
HELP-PROMPT: Type a Number between 0 and 9999, 3 Decimal Digits
DESCRIPTION:
Enter the assigned FTEE for the service for this fiscal year.
731,20 CONTRACT 20;0 Multiple #731.02 (Add New Entry without Asking)
DESCRIPTION:
Enter the contract number which uniquely identifies the contract.
IDENTIFIED BY: DESCRIPTION(#1)[R]
731.02,.01 CONTRACT # 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 03, 1990
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
Enter the contract number which uniquely identifies the contract.
CROSS-REFERENCE: 731.02^B
1)= S ^ECT(731,DA(1),20,"B",$E(X,1,30),DA)=""
2)= K ^ECT(731,DA(1),20,"B",$E(X,1,30),DA)
731.02,1 DESCRIPTION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: NOV 03, 1990
HELP-PROMPT: Answer must be 1-45 characters in length.
DESCRIPTION: What it the purpose of the contract? For example, 'FIRE ALARM SYSTEM MAINTENANCE' or 'DISPOSAL
OF TRASH & NON-EDIBLE GARBAGE'.
731.02,2 TYPE 0;3 SET
'1' FOR MAINTENANCE;
'2' FOR SERVICE;
'3' FOR SHARING;
'4' FOR CONSTRUCTION;
LAST EDITED: JAN 15, 1991
HELP-PROMPT: Indicate type of contract: maintenance, service, sharing, or construction.
DESCRIPTION: Indicate the type of contract: enter '1' for maintenance, '2' for service, '3' for sharing, or
'4' for construction.
731.02,3 AMOUNT 0;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: NOV 03, 1990
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
Enter the dollar amount of the contract.
731.02,4 VENDOR 0;5 POINTER TO VENDOR FILE (#440)
LAST EDITED: NOV 03, 1990
HELP-PROMPT: Select vendor for contract.
DESCRIPTION:
Select the contract vendor.
731.02,5 RESPONSIBLE SERVICE 0;6 POINTER TO NATIONAL SERVICE FILE (#730)
INPUT TRANSFORM: S DIC("S")="I $D(^ECC(730,""ALS"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 03, 1990
HELP-PROMPT: Enter the service which is responsible for the contract.
DESCRIPTION:
Enter the service which is responsible for the contract.
SCREEN: S DIC("S")="I $D(^ECC(730,""ALS"",+Y))"
EXPLANATION: Select only services which have been identified as 'local' services.
731,30 INPATIENT WORKLOAD 30;0 Multiple #731.03 (Add New Entry without Asking)
DESCRIPTION:
This multiple contains workload data for the VAMC, nursing home, or domiciliary.
731.03,.01 INPATIENT NAME 0;1 FREE TEXT (Multiply asked)
NAME
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
LAST EDITED: NOV 06, 1990
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION:
Field contains the name of the VAMC, nursing home, or domiciliary.
CROSS-REFERENCE: 731.03^B
1)= S ^ECT(731,DA(1),30,"B",$E(X,1,30),DA)=""
2)= K ^ECT(731,DA(1),30,"B",$E(X,1,30),DA)
731.03,1 DIVISION 0;2 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)
LAST EDITED: NOV 06, 1990
DESCRIPTION:
Enter the division from the Medical Center Division file - #40.8.
731.03,2 DISCHARGES 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
Enter the total number of discharges for the fiscal year for the inpatient entry.
731,40 OUTPATIENT WORKLOAD 40;0 POINTER Multiple #731.04 (Add New Entry without Asking)
DESCRIPTION:
This multiple contains workload data for all outpatient facilities.
731.04,.01 OUTPATIENT NAME 0;1 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) (Multiply asked)
NAME
INPUT TRANSFORM: S:$D(X)#2 DINUM=X
LAST EDITED: NOV 06, 1990
DESCRIPTION:
Field contains the name of the outpatient facility.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
731.04,1 VISITS 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 09, 1990
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
For the selected fiscal year, enter the total number of outpatient visits for this facility.
FILES POINTED TO FIELDS
MEDICAL CENTER DIVISION (#40.8) INPATIENT WORKLOAD:DIVISION (#1)
OUTPATIENT WORKLOAD:OUTPATIENT NAME (#.01)
NATIONAL SERVICE (#730) SERVICE:SERVICE (#.01)
CONTRACT:RESPONSIBLE SERVICE (#5)
VENDOR (#440) CONTRACT:VENDOR (#4)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):