STANDARD DATA DICTIONARY #6925 -- CONSTRUCTION PROJECT FILE 3/24/25 PAGE 1
STORED IN ^ENG("PROJ", *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
File of delegated projects. Fund amounts should be recorded in whole dollars only.
DD ACCESS: #
WR ACCESS: E
DEL ACCESS: e
LAYGO ACCESS: E
IDENTIFIED BY: PROJECT TITLE (#2)[R]
POINTED TO BY: DOMINO PROJECT field (#.01) of the DOMINOS sub-field (#6925.0225) of the CONSTRUCTION PROJECT File (#6925)
PROJECT NO. field (#20) of the ENG BUILDING File (#6928.3)
CROSS
REFERENCED BY: DOMINO PROJECT(AB), PROJECT NUMBER(B), PROJECT TITLE(C), FACILITY TYPE(E), FUNDING YEAR - A/E(F),
FUNDING YEAR - CONST(G), FY RENT STARTS(L)
6925,.01 PROJECT NUMBER 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X'?3N1"-"2NA1"-"1.3N0.1U&(X'?3N1"-"1.3N0.1U) X I $D(X),$G(DIUTIL)'="VERIFY FIELDS",$D(^ENG("PROJ"
,"B",X)) D EN^DDIOL("Project Number is in use!") K X
LAST EDITED: APR 25, 1997
HELP-PROMPT: ENTER THE OFFICIALLY ASSIGNED PROJECT NUMBER (must begin with 3 numerics and use dashes as
delimiters)
DESCRIPTION: The principal identifier of entries in the CONSTRUCTION PROJECT file.
Format should be either 'SSS-NNN' or 'SSS-YY-NNN'; where SSS is the facility number and NNN is a
sequential project number. YY is usually the fiscal year for which an NRM, Station Level, or Lease
request is being submitted. An optional single uppercase letter can follow the sequential project
number.
Note that the facility number need not always be the number of the VAMC. For example, if you are
reporting on a National Cemetery project the first 3 digits will generally be the facility number
of the National Cemetery itself. If you have questions about official project numbers, please
consult your VISN support center.
EXECUTABLE HELP: W !,"Must begin with station number. Enter '??' for more help."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6925^B
1)= S ^ENG("PROJ","B",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ","B",$E(X,1,30),DA)
6925,.05 FMS # ; COMPUTED
MUMPS CODE: S X=$$FMS^ENPRUTL(D0)
ALGORITHM: S X=$$FMS^ENPRUTL(D0)
LAST EDITED: APR 30, 1997
DESCRIPTION:
This field computes the FMS # of Major or Minor program projects.
6925,1 REPORTING PERIOD (Month/Year) 0;2 DATE
INPUT TRANSFORM: S %DT="P" D ^%DT K:Y<1 X I $D(X) S X=$E(Y,1,5)_"00",%DT="E" D ^%DT S X=Y
LAST EDITED: DEC 21, 1992
HELP-PROMPT: Period (MONTH & YEAR) for which report is being prepared.
DESCRIPTION: Current reporting period. Used by Regional Offices for tracking project milestones over time.
Enter MONTH and YEAR only.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,2 PROJECT TITLE 0;3 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!(X[";")!($A(X)=45)!(X'?.ANP) X I $D(X) K:$L(X)>50!($L(X)<3) X I $D(X) S:X?.E1L.E X=$TR(X,"
abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
LAST EDITED: MAY 05, 1995
HELP-PROMPT: ANSWER MUST BE 3-50 CHARACTERS IN LENGTH AND NOT CONTAIN SEMICOLON
DESCRIPTION:
Official title of project.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6925^C
1)= S ^ENG("PROJ","C",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ","C",$E(X,1,30),DA)
6925,2.5 MONTHLY UPDATES 0;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 22, 1992
DESCRIPTION: This field determines whether or not a project will be included when Progress Reports of 'all
projects' are requested. This field is examined when 10-0051's are transmitted electronically as
well as when paper records are produced.
6925,3 MEDICAL CENTER 0;4 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: DEC 06, 1984
HELP-PROMPT: Facility where proposed work is to be performed.
DESCRIPTION: Facility where the work is being performed. May indicate a division or other functional element
(National Cemetery, Regional Office, satellite clinic, etc.) if appropriate.
6925,3.45 FUNDING YEAR - A/E 5;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2099)!(X<1970)!(X?.E1"."1N.N) X
LAST EDITED: JAN 20, 1993
HELP-PROMPT: Enter a Year between 1970 and 2099
DESCRIPTION:
This field contains the fiscal year for which A/E is funded or proposed.
CROSS-REFERENCE: 6925^F
1)= S ^ENG("PROJ","F",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ","F",$E(X,1,30),DA)
This cross reference is used for reporting projects by Fiscal Year for funding A/E as in 5-Yr Plan
6925,3.5 FUNDING YEAR - CONST 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2099)!(X<1970)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Enter a Year between 1970 and 2099
DESCRIPTION:
Fiscal year for which construction is funded or proposed.
CROSS-REFERENCE: 6925^G
1)= S ^ENG("PROJ","G",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ","G",$E(X,1,30),DA)
This index is used for sorting projects by Fiscal Year for Construction as in 5-Yr Plan
6925,3.6 *APPROVAL LEVEL 0;8 SET
'CA' FOR CASCA;
'RD' FOR RDAP;
'CO' FOR COAP;
'OT' FOR OTHER;
LAST EDITED: APR 22, 1993
HELP-PROMPT: No longer used.
DESCRIPTION:
Identifies the source of funding for approved projects.
6925,4 APPROVED CONSTRUCTION 1;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION:
Amount (in whole dollars) authorized for construction at the time project is approved.
6925,5 APPROVED A/E FUNDING 5;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Amount (in whole dollars) authorized for A/E at the time project is approved.
6925,5.1 TOTAL FUNDS APPROVED ; COMPUTED
MUMPS CODE: S Y(6925,5.1,1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),Y(6925,5.1,2)=$S($D(^(5)):^(5),1:"") S X=$P(Y(6
925,5.1,1),U,1)+$P(Y(6925,5.1,2),U,2)
ALGORITHM: #4+#5
LAST EDITED: DEC 22, 1992
DESCRIPTION: This field contains the computed total of A/E and Construction Funds authorized at the time the
project is approved.
6925,6 STATUS 1;3 POINTER TO PROJECT STATUS FILE (#6925.2) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)[$G(ENPR)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 03, 1997
DESCRIPTION:
Present status of the project.
SCREEN: S DIC("S")="I $P(^(0),U,5)[$G(ENPR)"
EXPLANATION: Status screened for applicability to project's funding program.
EXECUTABLE HELP: D:$G(ENPR)]"" SH^ENPL1(ENPR)
NOTES: TRIGGERED by the DESIGN PROGRAM START (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the AUTHORIZED (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the SELECT A/E (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the START SCHEMATICS (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the START DESIGN DEV. (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the START/AWARD CD (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the ISSUE IFB/SBA (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the BID OPEN/NEGOTIATION (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the CONSTRUCTION AWARD (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the CONSTRUCTION START (ACTUAL) field of the CONSTRUCTION PROJECT File
TRIGGERED by the ACTIVATION (ACTUAL) field of the CONSTRUCTION PROJECT File
6925,7 DESIGN METHOD 1;4 SET
'1' FOR A/E;
'2' FOR SBA 8(a);
'3' FOR VAMC;
LAST EDITED: APR 22, 1993
DESCRIPTION:
Indicates the design method.
6925,8 CONSTR. METHOD 1;5 SET
'1' FOR CONTRACT;
'2' FOR P&H;
'3' FOR STATION LABOR;
'4' FOR SBA 8(a);
'5' FOR DESIGN/BUILD;
'6' FOR LEASE;
LAST EDITED: FEB 05, 1993
DESCRIPTION:
Indicates the construction method.
6925,8.5 GROSS SQUARE FEET 1;10 NUMBER
GSF
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 16, 1990
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits
DESCRIPTION: Approximate gross square footage directly affected by this project. Include both new space and
renovated space in this estimate.
6925,9 % SCHEMATICS COMPLETE 1;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
Current estimate of work done on schematics. Expressed as a percentage of completion.
NOTES: TRIGGERED by the COMPLETE SCHEMATICS (ACTUAL) field of the CONSTRUCTION PROJECT File
6925,10 % CONST DOCS. COMPL 1;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 12, 1995
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
Current estimate of the status of construction documents. Expressed as a percentage of completion.
NOTES: TRIGGERED by the COMPL. CONST. DOCS. (ACTUAL) field of the CONSTRUCTION PROJECT File
6925,11 % CONSTRUCTION COMPLETE 1;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
Current estimate of construction work actually performed. Expressed as a percentage of completion.
NOTES: TRIGGERED by the CONST. COMPLETE (ACTUAL) field of the CONSTRUCTION PROJECT File
6925,12 % DESIGN DEV. COMPL 1;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 12, 1995
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION: Current estimate of how much work has been done on project design development. Expressed as
percentage of completion.
NOTES: TRIGGERED by the COMPL. DESIGN DEV. (ACTUAL) field of the CONSTRUCTION PROJECT File
6925,13 % DESIGN PROGRAM COMPL 1;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
Completion percentage of design program (if applicable).
NOTES: TRIGGERED by the DESIGN PROGRAM COMPL. (ACTUAL) field of the CONSTRUCTION PROJECT File
6925,15 OLD REPORTING PERIOD 60;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 23, 1992
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,15.1 OLD PROJECT TITLE 60;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,15.2 OLD MONTHLY UPDATE 60;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 23, 1992
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,15.3 OLD MEDICAL CENTER 60;4 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: DEC 23, 1992
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,15.4 OLD FUNDING YEAR (A/E) 64;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2099)!(X<1970)!(X?.E1"."1N.N) X
LAST EDITED: DEC 31, 1992
HELP-PROMPT: Enter a Year between 1970 and 2099
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,15.5 OLD FUNDING YEAR CONST. 60;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2099)!(X<1970)!(X?.E1"."1N.N) X
LAST EDITED: DEC 31, 1992
HELP-PROMPT: Enter a Year between 1970 and 2099
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,15.6 OLD APPROVED CONST. FUNDING 60;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,15.7 OLD APPROVED A/E FUNDING 64;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,15.8 OLD STATUS 60;13 POINTER TO PROJECT STATUS FILE (#6925.2)
LAST EDITED: DEC 23, 1992
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,15.9 OLD DESIGN METHOD 60;14 SET
'1' FOR A/E;
'2' FOR SBA 8(a);
'3' FOR VAMC;
LAST EDITED: OCT 17, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,16 OLD CONSTRUCTION METHOD 60;15 SET
'1' FOR CONTRACT;
'2' FOR P&H;
'3' FOR STATION LABOR;
'4' FOR SBA 8(a);
'5' FOR DESIGN/BUILD;
'6' FOR LEASE;
LAST EDITED: OCT 17, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,16.1 OLD GROSS SQUARE FEET 60;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,16.2 OLD % SCHEMATICS COMPLETE 60;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,16.3 OLD % CD COMPLETE 60;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 08, 1993
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,16.4 OLD % CONSTRUCTION COMPLETE 60;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,16.5 OLD % DD COMPLETE 60;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,16.6 OLD % DESIGN PROGRAM COMPLETE 60;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,20 DESIGN PROGRAM START (PLANNED) 50;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Planned start of design program.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,20.1 DESIGN PROGRAM COMP. (PLANNED) 50;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Planned completion of design program.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,20.3 ADVERTISE FOR A/E (PLANNED) 50;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Planned date for A/E advertisement.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,20.4 SELECT A/E (PLANNED) 50;12 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Planned selection date for A/E.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,20.5 A/E AWARD (PLANNED) 50;13 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Planned A/E award date.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,21 START SCHEMATICS (PLANNED) 2;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Planned date for the start of schematic plans.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,22 COMPLETE SCHEMATICS (PLANNED) 2;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date for completion of preliminary plans.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,22.5 START DESIGN DEV. (PLANNED) 50;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Planned (approved) start of design development.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,22.6 COMPL. DESIGN DEV. (PLANNED) 50;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Planned (approved) completion of design development.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,23 START/AWARD CD (PLANNED) 2;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) date for start of construction documents.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,24 COMPL. CONST. DOCS. (PLANNED) 2;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date for completion of construction documents.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,24.4 START L/T REVIEW (PLANNED) 56;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date for start of the Legal/Technical Review.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,24.6 START AUDIT REVIEW (PLANNED) 56;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: SEP 12, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION: Original (approved) target date for start of audit review. Examples of audit reviews include DCAA,
DOE, and DOD reviews.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,25 ISSUE IFB/SBA (PLANNED) 2;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date for issuance of Invitation For Bids.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,25.4 COMPL. L/T REVIEW (PLANNED) 56;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date for completion of Legal/Technical review.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,25.6 COMPL. AUDIT REVIEW (PLANNED) 56;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: SEP 12, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION: Original (approved) target date for completion of audit review. Examples of audit reviews include
DCAA, DOE, and DOD reviews.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,26 BID OPEN/NEGOTIATION (PLANNED) 2;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date for bid openings.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,27 CONSTRUCTION AWARD (PLANNED) 2;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date for award of construction contract(s).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,28 CONSTRUCTION START (PLANNED) 2;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date for start of construction.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,29 CONST. COMPLETE (PLANNED) 2;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date by which construction is to be substantially complete.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,30 ACTIVATION (PLANNED) 50;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Original (approved) target date for project activation.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,32 OLD DESIGN PROGRAM START (PL) 66;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 22, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,32.1 OLD DESIGN PROGRAM COMP. (PL) 66;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,32.3 OLD ADVERTISE FOR A/E (PL) 66;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 22, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,32.4 OLD SELECT A/E (PL) 66;12 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,32.5 OLD A/E AWARD (PL) 66;13 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 21, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,32.6 OLD START SCHEMATICS (PL) 61;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,32.7 OLD COMPLETE SCHEMATICS (PL) 61;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,32.8 OLD START DD (PL) 66;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,32.9 OLD COMPLETE DD (PL) 66;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33 OLD START CD (PL) 61;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.1 OLD COMPLETE CD (PL) 61;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.14 OLD START L/T REVIEW (PL) 69;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 16, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.16 OLD START AUDIT REVIEW (PL) 69;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 12, 1997
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.2 OLD ISSUE IFB (PL) 61;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.24 OLD COMPL. L/T REVIEW (PL) 69;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 16, 1995
DESCRIPTION:
Value
UNEDITABLE
6925,33.26 OLD COMPL. AUDIT REVIEW (PL) 69;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 12, 1997
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.3 OLD BID OPEN (PL) 61;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.4 OLD CONSTRUCTION AWARD (PL) 61;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.5 OLD CONSTRUCTION START (PL) 61;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 22, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.6 OLD CONST. COMPLETE (PL) 61;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,33.7 OLD ACTIVATION (PL) 66;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,34 DESIGN PROGRAM START (REVISED) 50;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Revised design program start date.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,34.1 DESIGN PROGRAM COMP. (REVISED) 50;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Revised design program completion date.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,34.3 ADVERTISE FOR A/E (REVISED) 50;14 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Revised date for A/E advertisement.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,34.4 SELECT A/E (REVISED) 50;15 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Revised date for selection of A/E.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,34.5 A/E AWARD (REVISED) 50;16 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Revised date for A/E award.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,35 START SCHEMATICS (REVISED) 3;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate of starting date for development of schematics.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,36 COMPLETE SCHEMATICS (REVISED) 3;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate as to when schematics will be complete.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,36.1 START DESIGN DEV. (REVISED) 50;17 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Revised date for start of design development.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,36.2 COMPL. DESIGN DEV. (REVISED) 50;18 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Revised date for completion of design development.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,37 START/AWARD CD (REVISED) 3;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate of the starting date for development of construction documents.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,38 COMPL. CONST. DOCS. (REVISED) 3;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate of the target date for completion of construction documents.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,38.4 START L/T REVIEW (REVISED) 56;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate of the target date for start of the Legal Technical review.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,38.6 START AUDIT REVIEW (REVISED) 56;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: SEP 12, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION: Current (revised) estimate of the target date for start of the audit review. Examples of audit
reviews include DCAA, DOE, and DOD reviews.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,39 ISSUE IFB/SBA (REVISED) 3;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate of the target date for issuance of the Invitation For Bids.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,39.4 COMPL. L/T REVIEW (REVISED) 56;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate of the target date for completion of the Legal/Technical review.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,39.6 COMPL. AUDIT REVIEW (REVISED) 56;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: SEP 12, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION: Current (revised) estimate of the target date for completion of the audit review. Examples of audit
reviews include DCAA, DOE, and DOD reviews.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,40 BID OPEN/NEGOTIATION (REVISED) 3;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate of the target date for bid openings.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,41 CONSTRUCTION AWARD (REVISED) 3;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate of the target date for award of the construction contract(s).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,42 CONSTRUCTION START (REVISED) 3;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Current (revised) estimate of the target date for the start of construction.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,43 CONST. COMPLETE (REVISED) 3;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION: Current (revised) target date by which it is expected that construction will be substantially
complete.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,44 ACTIVATION (REVISED) 50;19 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X I $D(X) K:$E(X,4,5)="00" X I $D(X) S:$E(X,6,7)="00
" X=$$EOM^ENUTL(X)
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099
DESCRIPTION:
Revised date for project activation.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,46 OLD DESIGN PROGRAM START (REV) 66;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,46.1 OLD DESIGN PROGRAM COMP. (REV) 66;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,46.2 OLD AUTHR. LTR. REC'D. (REV) 66;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,46.3 OLD ADVERTISE FOR A/E (REV) 66;14 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 22, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,46.4 OLD SELECT A/E (REV) 66;15 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,46.5 OLD A/E AWARD (REV) 66;16 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,46.6 OLD START SCHEMATICS (REV) 62;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,46.7 OLD COMPLETE SCHEMATICS (REV) 62;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,46.8 OLD START DD (REV) 66;17 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,46.9 OLD COMPLETE DD (REV) 66;18 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47 OLD START CD (REV) 62;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.1 OLD COMPLETE CD (REV) 62;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.14 OLD START L/T REVIEW (REV) 69;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 16, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.16 OLD START AUDIT REVIEW (REV) 69;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 12, 1997
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.2 OLD ISSUE IFB (REV) 62;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.24 OLD COMPL. L/T REVIEW (REV) 69;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 16, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.26 OLD COMPL. AUDIT REVIEW (REV) 69;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 12, 1997
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.3 OLD BID OPEN (REV) 62;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.4 OLD CONSTRUCTION AWARD (REV) 62;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.5 OLD CONSTRUCTION START (REV) 62;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.6 OLD CONSTRUCTION COMP. (REV) 62;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,47.7 OLD ACTIVATION (REV) 66;19 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,49 DESIGN PROGRAM START (ACTUAL) 51;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 16, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date of design program start.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,49,1,1,69.2) S X=$P(Y(101),U,4)<4 S D0=I(0,0)
I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="6" X ^DD(6925,49,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<4
CREATE VALUE)= "6"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to DESIGN PROGRAM when current value is a prior status.
6925,49.1 DESIGN PROGRAM COMPL. (ACTUAL) 51;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: JUN 05, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date of design program completion.
CROSS-REFERENCE: ^^TRIGGER^6925^13
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,11),X=X
S DIU=X K Y S X=DIV S X="100" X ^DD(6925,49.1,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,11)=DIV,DIH=6925,DIG=13 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,11),X=X
S DIU=X K Y S X="" X ^DD(6925,49.1,1,1,2.4)
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,11)=DIV,DIH=6925,DIG=13 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= "100"
DELETE VALUE)= @
FIELD)= #13
6925,50 AUTHORIZED (ACTUAL) 4;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: SEP 12, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date the project was authorized by the VISN or other controlling authority as appropriate.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,50,1,1,69.2) S X=$P(Y(101),U,4)<5 S D0=I(0,0)
I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="12" X ^DD(6925,50,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<5
CREATE VALUE)= "12"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to AUTHORIZED when current value is a prior status.
6925,51 ADVERTISE FOR A/E (ACTUAL) 4;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: JUN 10, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Date of advertisement for Architect/Engineer.
6925,52 SELECT A/E (ACTUAL) 4;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 16, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date of selection of Architect/Engineer.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,52,1,1,69.2) S X=$P(Y(101),U,4)<6 S D0=I(0,0)
I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="8" X ^DD(6925,52,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<6
CREATE VALUE)= "8"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to A/E when current value is a prior status.
6925,53 A/E AWARD (ACTUAL) 4;4 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 12, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Date of contract award to Architect/Engineer.
6925,54 START SCHEMATICS (ACTUAL) 4;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 16, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date on which schematic plans were begun.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,54,1,1,69.2) S X=$P(Y(101),U,4)<7 S D0=I(0,0)
I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="9" X ^DD(6925,54,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<7
CREATE VALUE)= "9"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to SCHEMATICS when current value is a prior status.
6925,55 COMPLETE SCHEMATICS (ACTUAL) 4;6 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: JUN 05, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Date on which schematic plans were actually completed.
CROSS-REFERENCE: ^^TRIGGER^6925^9
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,6),X=X S
DIU=X K Y S X=DIV S X="100" X ^DD(6925,55,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,6)=DIV,DIH=6925,DIG=9 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,6),X=X S
DIU=X K Y S X="" X ^DD(6925,55,1,1,2.4)
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,6)=DIV,DIH=6925,DIG=9 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= "100"
DELETE VALUE)= @
FIELD)= #9
6925,55.5 START DESIGN DEV. (ACTUAL) 4;14 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 16, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual start of design development.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,55.5,1,1,69.2) S X=$P(Y(101),U,4)<8 S D0=I(0,
0) I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV
S X="10" X ^DD(6925,55.5,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<8
CREATE VALUE)= "10"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to DESIGN DEVELOPMENT when current value is a prior status.
6925,55.6 COMPL. DESIGN DEV. (ACTUAL) 4;15 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: JUN 05, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual completion date for design development.
CROSS-REFERENCE: ^^TRIGGER^6925^12
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,9),X=X S
DIU=X K Y S X=DIV S X="100" X ^DD(6925,55.6,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,9)=DIV,DIH=6925,DIG=12 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,9),X=X S
DIU=X K Y S X="" X ^DD(6925,55.6,1,1,2.4)
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,9)=DIV,DIH=6925,DIG=12 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= "100"
DELETE VALUE)= @
FIELD)= #12
6925,56 START/AWARD CD (ACTUAL) 4;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 18, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Date on which construction documents were begun.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,56,1,1,69.2) S X=$P(Y(101),U,4)<9 S D0=I(0,0)
I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="11" X ^DD(6925,56,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<9
CREATE VALUE)= "11"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to CONSTRUCTION DOCUMENTS when current value is a prior status.
6925,57 COMPL. CONST. DOCS. (ACTUAL) 4;8 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: JUN 05, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date on which construction documents were completed.
CROSS-REFERENCE: ^^TRIGGER^6925^10
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S
DIU=X K Y S X=DIV S X="100" X ^DD(6925,57,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,7)=DIV,DIH=6925,DIG=10 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S
DIU=X K Y S X="" X ^DD(6925,57,1,1,2.4)
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,7)=DIV,DIH=6925,DIG=10 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= "100"
DELETE VALUE)= @
FIELD)= #10
6925,57.4 START L/T REVIEW (ACTUAL) 56;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date on which the Legal/Technical review was started.
6925,57.6 START AUDIT REVIEW (ACTUAL) 56;6 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: SEP 12, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION: Actual date on which the audit review was started. Examples of audit reviews include DCAA, DOE, and
DOD reviews.
6925,58 ISSUE IFB/SBA (ACTUAL) 4;9 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 16, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date of issuance of Invitation For Bids.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,58,1,1,69.2) S X=$P(Y(101),U,4)<10 S D0=I(0,0
) I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="13" X ^DD(6925,58,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<10
CREATE VALUE)= "13"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to INVITATION FOR BID when current value is a prior status.
6925,58.4 COMPL. L/T REVIEW (ACTUAL) 56;9 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: APR 02, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date on which the Legal/Technical review was completed.
6925,58.6 COMPL. AUDIT REVIEW (ACTUAL) 56;12 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: SEP 12, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION: Actual date on which the audit review was completed. Examples of audit reviews include DCAA, DOE,
and DOD reviews.
6925,59 BID OPEN/NEGOTIATION (ACTUAL) 4;10 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 16, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date of bid opening.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,59,1,1,69.2) S X=$P(Y(101),U,4)<11 S D0=I(0,0
) I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="14" X ^DD(6925,59,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<11
CREATE VALUE)= "14"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to BID OPEN when current value is a prior status.
6925,60 CONSTRUCTION AWARD (ACTUAL) 4;11 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 16, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date of award of construction contract.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,60,1,1,69.2) S X=$P(Y(101),U,4)<12 S D0=I(0,0
) I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="15" X ^DD(6925,60,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<12
CREATE VALUE)= "15"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to CONSTRUCTION when current value is a prior status.
6925,61 CONSTRUCTION START (ACTUAL) 4;12 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: APR 25, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Date on which construction actually began.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,61,1,1,69.2) S X=$P(Y(101),U,4)<12 S D0=I(0,0
) I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="15" X ^DD(6925,61,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<12
CREATE VALUE)= "15"
DELETE VALUE)= NO EFFECT
FIELD)= #6
6925,62 CONST. COMPLETE (ACTUAL) 4;13 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: JUN 05, 1997
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date on which construction was judged to be substantially complete.
CROSS-REFERENCE: ^^TRIGGER^6925^11
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,8),X=X S
DIU=X K Y S X=DIV S X="100" X ^DD(6925,62,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,8)=DIV,DIH=6925,DIG=11 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,8),X=X S
DIU=X K Y S X="" X ^DD(6925,62,1,1,2.4)
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,8)=DIV,DIH=6925,DIG=11 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= "100"
DELETE VALUE)= @
FIELD)= #11
6925,63 ACTIVATION (ACTUAL) 51;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: OCT 16, 1995
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1970 AND TODAY
DESCRIPTION:
Actual date of project activation.
CROSS-REFERENCE: ^^TRIGGER^6925^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,63,1,1,69.2) S X=$P(Y(101),U,4)<13 S D0=I(0,0
) I X S X=DIV S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S
X="16" X ^DD(6925,63,1,1,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:"") S X=$P(Y(1)
,U,3),X=X S X=X<16
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ENG("PROJ",D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^
ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"")
CREATE CONDITION)= STATUS:SORT ORDER<13
CREATE VALUE)= "16"
DELETE VALUE)= NO EFFECT
FIELD)= STATUS
Set Status to COMPLETED PROJECT when current value is a prior status.
6925,65 OLD DESIGN PROGRAM START (ACT) 67;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.1 OLD DESIGN PROGRAM COMP. (ACT) 67;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.2 OLD AUTHORIZED (ACT) 63;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 12, 1997
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.3 OLD ADVERTISE FOR A/E (ACT) 63;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 22, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.4 OLD SELECT A/E (ACT) 63;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.5 OLD A/E AWARD (ACT) 63;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.6 OLD START SCHEMATICS (ACT) 63;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.7 OLD COMPL. SCHEMATICS (ACT) 63;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.8 OLD START CD (ACT) 63;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.9 OLD COMPLETE CD (ACT) 63;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.94 OLD START L/T REVIEW (ACT) 69;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 16, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,65.96 OLD START AUDIT REVIEW (ACT) 69;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 12, 1997
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66 OLD ISSUE IFB (ACT) 63;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66.04 OLD COMPL. L/T REVIEW (ACT) 69;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 16, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66.06 OLD COMPL. AUDIT REVIEW (ACT) 69;12 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 12, 1997
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66.1 OLD BID OPEN (ACT) 63;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66.2 OLD CONSTRUCTION AWARD (ACT) 63;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66.3 OLD CONSTRUCTION START (ACT) 63;12 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66.4 OLD CONST. COMPLETE (ACT) 63;13 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66.5 OLD ACTIVATION (ACT) 67;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66.6 OLD START DD (ACT) 63;14 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,66.7 OLD COMPLETE DD (ACT) 63;15 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,70 A/E CONTRACT # 5;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<6)!'(X?.ANP) X
LAST EDITED: JUN 09, 1997
HELP-PROMPT: Answer must be 6-15 characters in length.
DESCRIPTION:
Official identifier of contract with Architect/Engineer for project design and related services.
6925,71.5 A/E FUND CONTROL POINT 51;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Fund control point (IFCAP) for design obligations.
6925,71.6 A/E AWARD AMOUNT 5;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Original A/E award obligation.
6925,71.7 A/E STUDY 51;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Amount obligated to A/E for performance of a formal study.
6925,72 A/E SCHEMATICS 5;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: Amount obligated for Architect/Engineer services in development of schematics. Round to nearest
whole dollar.
6925,72.3 A/E SITE SURVEY 5;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 22, 1995
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: Amount obligated to Architect/Engineer for services in making site surveys and other related
activities. Round to nearest whole dollar.
6925,72.5 A/E DESIGN DEVELOPMENT 51;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Amount obligated to A/E for design development. Round to nearest whole dollar.
6925,73 A/E CONST DOCUMENTS 5;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: Amount obligated for Architect/Engineer services in development of working drawings and
specifications. Round to nearest whole dollar.
6925,74 A/E SITE VISITS 5;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 22, 1995
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: Amount obligated to Architect/Engineer for services in making site visits and related activities.
Round to nearest whole dollar.
6925,75 A/E CONST PER SERVCS 5;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: Amount obligated to Architect/Engineer for services to the medical center during the course of the
actual construction period. Round to nearest whole dollar.
6925,75.5 A/E OTHER SERVICES 51;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Amount obligated to A/E for services not otherwise classified.
6925,76 A/E SUBTOTAL ; COMPUTED
MUMPS CODE: X ^DD(6925,76,9.2) S X=X+$P(Y(6925,76,1),U,7)+$P(Y(6925,76,2),U,4)+$P(Y(6925,76,2),U,5)+$P(Y(6925,7
6,2),U,6)+$P(Y(6925,76,1),U,8) S X=$J(X,0,0)
9.2 = S Y(6925,76,2)=$S($D(^ENG("PROJ",D0,5)):^(5),1:""),Y(6925,76,1)=$S($D(^(51)):^(51),1:"") S X=
$P(Y(6925,76,1),U,6)+$P(Y(6925,76,2),U,3)+$P(Y(6925,76,2),U,10)
ALGORITHM: (#71.7+#72+#72.3+#72.5+#73+#74+#75+#75.5) (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: FEB 07, 1993
DESCRIPTION: Total amount obligated to Architect/Engineer for design and design-related services. Computed
field, not subject to direct edit. Should never exceed the A/E AWARD AMOUNT.
6925,77 A/E SA ADDITIONS (#) 51;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 01, 1997
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of A/E supplemental agreements that add to the cost of design.
EXECUTABLE HELP: W " SA stands for supplemental agreement."
6925,78 A/E SA ADDITIONS ($) 51;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Total cost of A/E supplemental agreements that increase design costs.
EXECUTABLE HELP: W " SA stands for supplemental agreement."
6925,79 A/E SA DEDUCTIONS (#) 51;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of A/E supplemental agreements that reduce design cost.
EXECUTABLE HELP: W " SA stands for supplemental agreements."
6925,80 A/E SA DEDUCTIONS ($) 51;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Total dollar value of all A/E supplemental agreements that decrease design cost.
EXECUTABLE HELP: W " SA stands for supplemental agreements."
6925,81 A/E SA NET ($) ; COMPUTED
MUMPS CODE: S Y(6925,81,1)=$S($D(^ENG("PROJ",D0,51)):^(51),1:"") S X=$P(Y(6925,81,1),U,10)-$P(Y(6925,81,1),U,12
)
ALGORITHM: #78-#80
LAST EDITED: APR 22, 1993
DESCRIPTION:
Net cost of A/E supplemental agreements.
6925,82 A/E OBLIGATED ; COMPUTED
MUMPS CODE: X $P(^DD(6925,81,0),U,5,99) S Y(6925,82,2)=X S Y(6925,82,1)=$S($D(^ENG("PROJ",D0,5)):^(5),1:"") S X
=$P(Y(6925,82,1),U,9)+Y(6925,82,2)
ALGORITHM: #71.6+#81
DESCRIPTION:
Total A/E obligation (to date).
6925,85 A/E NAME 6;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ENTER A/E NAME (35 CHAR. MAX)
DESCRIPTION:
Name of Architect/Engineer firm retained for this project.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,86 A/E ADDR1 6;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ENTER A/E STREET ADDRESS (35 CHAR. MAX)
DESCRIPTION: First line of Architect/Engineer address. May be up to 35 characters long and should generally
contain the street address or post office box (or equivalent).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,87 A/E ADDR2 6;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ENTER A/E CITY,STATE,ZIP (35 CHAR. MAX)
DESCRIPTION: Second (and final) line of Architect/Engineer address. May be up to 35 characters long and should
generally contain the city, state, and zip code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,90 OLD A/E CONTRACT # 64;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<6) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Answer must be 6-10 characters in length.
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,90.2 OLD FCP (A/E) 67;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,90.25 OLD A/E AWARD AMOUNT 64;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported on electronic 10-0051.
UNEDITABLE
6925,90.3 OLD A/E OBLIG. (STUDY) 67;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,90.4 OLD A/E OBLIG. (SCHEMATICS) 64;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,90.45 OLD A/E OBLIG. (SITE SURVEY) 64;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 22, 1995
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
6925,90.5 OLD A/E OBLIG. (DD) 67;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,90.6 OLD A/E OBLIG. (CD) 64;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,90.7 OLD A/E OBLIG. (SITE VISIT) 64;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 22, 1995
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,90.8 OLD A/E OBLIG (CONST PER SRVC) 64;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,90.9 OLD A/E OBLIG. (OTHER) 67;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,91 OLD A/E SA ADDITIONS (#) 67;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 01, 1997
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,91.1 OLD A/E SA ADDITIONS ($) 67;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 01, 1997
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,91.2 OLD A/E SA DEDUCTIONS (#) 67;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,91.3 OLD A/E SA DEDUCTIONS ($) 67;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,95 *INIT. NOTIFICATION - SBA 7;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:2991231X) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: ENTER INITIAL NOTIFICATION TO SBA DATE
DESCRIPTION: Date of initial notification of the Small Business Administration of the existence of a viable
project that could be a candidate for 8A set-aside.
EXECUTABLE HELP: W " No longer used."
6925,96 *WD & SPECIFICATIONS - SBA 7;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:2991231X) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: ENTER WD & SPECS TO SBA DATE
DESCRIPTION: Date on which working drawings and specifications were furnished to the Small Business
Administration.
EXECUTABLE HELP: W " No longer used."
6925,97 *CONTR INIT PROP - SBA 7;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:2991231X) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: ENTER CONTRACTOR'S INITIAL PROPOSAL DATE
DESCRIPTION:
Date of contractor's initial proposal (through the Small Business Administration).
EXECUTABLE HELP: W " No longer used."
6925,98 *REQ FOR PRE-AWARD - SBA 7;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:2991231X) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: ENTER REQUEST FOR PRE-AWARD AUDIT DATE
DESCRIPTION:
Date on which a pre-award audit was requested (through the Small Business Administration).
EXECUTABLE HELP: W !," No longer used."
6925,99 *COMPL OF PRE-AWARD - SBA 7;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:2991231X) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: ENTER COMPLETION OF PRE-AWARD AUDIT DATE
DESCRIPTION:
Date of completion of pre-award audit (through the Small Business Administration).
EXECUTABLE HELP: W " No longer used."
6925,105 CONST. CONTRACT # 8;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<6)!'(X?.ANP) X
LAST EDITED: JUN 09, 1997
HELP-PROMPT: Answer must be 6-15 characters in length.
DESCRIPTION: Unique identifier (contract number) of contract with a construction firm for the actual
construction portion of this project.
6925,105.5 CONST FUND CONTROL PT 51;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Fund control point (IFCAP) for construction obligations.
6925,106 CONSTRUCTION AWARD 8;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1993
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION: Amount of original construction award. Should not include P&H (purchase and hire) or supplemental
agreements (if any).
6925,107 P&H LABOR TO DATE 53;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Total expenditure on purchase and hire labor to date.
6925,108 P&H MATERIALS TO DATE 53;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Total expenditure on purchase and hire materials to date.
6925,109 TOTAL P&H ; COMPUTED
MUMPS CODE: S Y(6925,109,1)=$S($D(^ENG("PROJ",D0,53)):^(53),1:"") S X=$P(Y(6925,109,1),U,1)+$P(Y(6925,109,1),U,
2)
ALGORITHM: #107+#108
DESCRIPTION:
Total cost of purchase and hire.
6925,110 OLD CONST. CONTRACT # 64;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<6) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Answer must be 6-10 characters in length.
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,110.2 OLD FCP (CONST.) 67;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,110.3 OLD ORIG. CONSTRUCTION AWARD 64;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,110.4 OLD P&H LABOR TO DATE 68;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,110.5 OLD P&H MATERIAL TO DATE 68;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,115 CONTR. NAME 9;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ANSWER MUST BE 1-35 CHARACTERS IN LENGTH
DESCRIPTION: Name of the firm chosen as the prime (or sole) contractor for the construction portion of this
project.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,116 CONTR. ADDR1 9;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ENTER CONTRACTOR STREET ADDRESS (35 CHAR. MAX)
DESCRIPTION: First line of the construction contractor's two-line mailing address. Should generally contain the
street address or post office box (or equivalent).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,117 CONTR. ADDR2 9;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1)!(X'?.ANP) X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ENTER CONTRACTOR CITY,STATE,ZIP (35 CHAR. MAX)
DESCRIPTION: Second (and last) line of the construction contractor's mailing address. Should generally contain
the city, state, and zip code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,125 CONST SA ADDITIONS (#) 10;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: ENTER TOTAL NUMBER OF ADD CHANGE ORDERS
DESCRIPTION:
Total number of supplemental agreements that added to the construction cost.
EXECUTABLE HELP: W " SA stands for supplemental agreement."
6925,126 CONST SA ADDITIONS ($) 10;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The sum of the dollar value (rounded to the nearest dollar) of all supplemental agreements that
increase the cost of the project.
EXECUTABLE HELP: W " SA stands for supplemental agreements."
6925,127 CONST SA DEDUCTIONS (#) 10;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: ENTER TOTAL NUMBER DEDUCT CHANGE ORDERS
DESCRIPTION:
Total number of supplemental agreements that decreased the construction cost.
EXECUTABLE HELP: W " SA stands for supplemental agreements."
6925,128 CONST SA DEDUCTIONS ($) 10;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: The sum (to the nearest whole dollar) of all supplemental agreements that decreased the cost of
construction on an approved project.
EXECUTABLE HELP: W " SA stands for supplemental agreements."
6925,128.2 CONST SUPPL (NET $) ; COMPUTED
MUMPS CODE: S Y(6925,128.2,1)=$S($D(^ENG("PROJ",D0,10)):^(10),1:"") S X=$P(Y(6925,128.2,1),U,2)-$P(Y(6925,128.2
,1),U,4)
ALGORITHM: #126-#128
LAST EDITED: FEB 06, 1993
DESCRIPTION:
Cost of ADDITIONAL supplemental agreements minus savings from DEDUCT supplemental agreements.
6925,129 TOTAL CONST OBLIGATION ; COMPUTED
MUMPS CODE: X ^DD(6925,129,9.2) S X=X+$P(Y(6925,129,2),U,1)+$P(Y(6925,129,2),U,2)+$P(Y(6925,129,3),U,2)-$P(Y(69
25,129,3),U,4) S X=$J(X,0,0)
9.2 = S Y(6925,129,3)=$S($D(^ENG("PROJ",D0,10)):^(10),1:""),Y(6925,129,2)=$S($D(^(53)):^(53),1:""),
Y(6925,129,1)=$S($D(^(8)):^(8),1:"") S X=$P(Y(6925,129,1),U,2)
ALGORITHM: #106+#107+#108+#126-#128 (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: FEB 06, 1993
DESCRIPTION: Total amount obligated to date for construction activity on an approved project. Computed as the
CONSTRUCTION CONTRACT AMOUNT (the original bottom line figure) plus the net cost (or savings)
resulting from supplemental agreements plus P&H (if any). Not directly editable.
6925,129.1 TIME EXTENSION (DAYS) 53;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Time extension granted contractor, usually as a result of supplemental agreements.
6925,130 TOTAL PROJ OBLIGATION ; COMPUTED
MUMPS CODE: X ^DD(6925,130,9.2) S X=X+$P(Y(6925,130,2),U,10)-$P(Y(6925,130,2),U,12)+Y(6925,130,3)
9.2 = X $P(^DD(6925,129,0),U,5,99) S Y(6925,130,3)=X S Y(6925,130,1)=$S($D(^ENG("PROJ",D0,5)):^(5),
1:""),Y(6925,130,2)=$S($D(^(51)):^(51),1:"") S X=$P(Y(6925,130,1),U,9)
ALGORITHM: #71.6+#78-#80+#129
LAST EDITED: FEB 06, 1993
DESCRIPTION:
Total dollars obligated on project (design and construction).
6925,135 OLD CONST. ADD. (#) 64;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,135.1 OLD CONST. ADD. ($) 64;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,135.2 OLD CONST. DED. (#) 64;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,135.3 OLD CONST. DED. ($) 64;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,135.4 OLD TIME EXTENSION (DAYS) 68;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,145 REMARKS 12;0 WORD-PROCESSING #6925.01
DESCRIPTION: Any comments that are germane to this project.
Whenever an electronic 10-0051 is transmitted, the PROGRESS NOTE is automatically added to the
REMARKS.
If the 'Electronic Transmission of 10-0051' option is utilized, then the PROGRESS NOTES field will
appear in the 'Remarks' block. In this case, this field (REMARKS) may be used to store information
of local interest only since it will not appear on either electronic or hard-copy 10-0051's.
6925,146 PROGRESS NOTE 13;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)<1 X I $D(X),$L(X)>235 S X=$E(X,1,235) D EN^DDIOL("Progress Note has been truncated to 235 c
haracters.")
LAST EDITED: APR 28, 1997
HELP-PROMPT: ANSWER MUST BE 1-235 CHARACTERS IN LENGTH
DESCRIPTION: Entries in this field will be transmitted as part of the electronic 10-0051. Each time a
transmission is made, the text in this field will be automatically transferred to REMARKS, leaving
the field free for next month's PROGRESS NOTE.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,146.1 OLD PROGRESS NOTE 65;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>235!($L(X)<1) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Answer must be 1-235 characters in length.
DESCRIPTION:
Previously reported PROGRESS NOTE. Also filed under REMARKS.
UNEDITABLE
6925,151 DATE OF LAST ELECT. 10-0051 11;4 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 22, 1993
DESCRIPTION: Date on which 10-0051 was last sent on this project via Network MailMan. This field is
automatically filled in by AEMS/MERS software whenever a message containing the 10-0051 is created
and sent. Only the most recent date of transmission is stored. Previous dates are over-written.
UNEDITABLE
6925,152 LAST REPORTING PERIOD 50;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 22, 1993
DESCRIPTION:
Previous reporting period. Overwritten each reporting period.
UNEDITABLE
6925,153 *SCOPE REDUCED 8;3 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 22, 1992
DESCRIPTION:
No longer used.
6925,154 *CURRENT A/E ESTIMATE 1;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
No longer used.
6925,155 PROGRAM 0;6 SET (Required)
'MA' FOR MAJOR;
'MI' FOR MINOR;
'MM' FOR MINOR MISC.;
'NR' FOR NRM;
'OT' FOR OTHER;
'LE' FOR LEASE;
'SL' FOR STATION LEVEL;
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Select program type.
DESCRIPTION:
This field is a set of codes used to classify program type.
6925,156 APPROVAL LEVEL 0;8 SET
'CA' FOR CASCA;
'RD' FOR RDAP;
'CO' FOR COAP;
'OT' FOR OTHER;
LAST EDITED: DEC 22, 1992
DESCRIPTION:
No longer used.
6925,157.5 *AVG. WORK FORCE (P&H) 11;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
No longer used.
6925,157.6 *MAN HOURS (P&H) 11;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 999999, 1 Decimal Digit
DESCRIPTION:
No longer used.
6925,157.7 WAGES (P&H) 11;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
No longer used.
6925,158 FACILITY TYPE 52;6 SET (Required)
'VHA' FOR VETERANS HEALTH ADMIN;
'VBA' FOR VETERANS BENEFITS ADMIN;
'NCS' FOR NATIONAL CEMETERY SERVICE;
LAST EDITED: JAN 20, 1993
HELP-PROMPT: Enter the Facility Type for this project
DESCRIPTION: This field is important to enable restriction of Project Functional and Budget Categories and to
enable reporting by Facility Type. Note: The cross reference was added to 2 reasons: a)
Facilitate reporting by facility type. b) Force the filing by DIE so that the selection screens
/filters work properly for Functional and Budget Categories.
CROSS-REFERENCE: 6925^E
1)= S ^ENG("PROJ","E",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ","E",$E(X,1,30),DA)
Facilitates reporting of projects by Facility Type.
6925,158.1 PROJECT CATEGORY 52;1 POINTER TO OFM PROJ CATEGORY FILE (#7336.8) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[$G(ENPR),$P(^(0),U,6)[$G(ENFT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 03, 1997
HELP-PROMPT: Enter appropriate Project Category
DESCRIPTION: This field is a pointer to the OFM Project Category File (#7336.8). The field designates the
project functional category, and determines prioritization points for NRM, Minor, and Minor Misc.
programs.
SCREEN: S DIC("S")="I $P(^(0),U,2)[$G(ENPR),$P(^(0),U,6)[$G(ENFT)"
EXPLANATION: Screen allows selection of only Functional Categories applicable to Project Funding Program and Fac
ility Type.
6925,158.2 BUDGET CATEGORY 52;2 POINTER TO OFM BUDGET CATEGORY FILE (#7336.9) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[$G(ENPR),$P(^(0),U,3)[$G(ENFT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 03, 1997
HELP-PROMPT: Enter the Budget Category for this project; used for sorting in 5-Yr Plan. Accept default except by
Regional approval.
DESCRIPTION: This field is a pointer to the OFM Budget Category File (#7336.9). The field designates the project
budget category. Choices are screened based on program type.
SCREEN: S DIC("S")="I $P(^(0),U,2)[$G(ENPR),$P(^(0),U,3)[$G(ENFT)"
EXPLANATION: Screen allows selection of only Budget Categories applicable to Project Funding Program and Facilit
y Type.
6925,158.3 NHCU BEDS (NEW) 52;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Enter number of beds newly created for NHCU, 0-9999
DESCRIPTION:
Number of nursing home beds to be created via project.
6925,158.4 NHCU BEDS (RENOVATED) 52;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<-999)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between -999 and 9999, 0 Decimal Digits
DESCRIPTION:
Net (+/-) nursing home care beds impacted by this project.
6925,158.5 NHCU BEDS (CONVERTED) 52;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1992
HELP-PROMPT: Enter number of beds converted from another service to NHCU, 0-9999
DESCRIPTION:
Number of beds to be converted into nursing home beds via this project.
6925,158.6 EPA REPORTABLE 52;7 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAY 26, 1995
HELP-PROMPT: Enter YES if the project meets the criteria for an environmental project.
DESCRIPTION: Indicates if a NRM project meets the criteria of an environmental project which should be reported
to the Environmental Protection Agency on the A-106 report. The criteria can be found in the NRM
Call Letter for project applications. If this field is YES, an EPA Reporting Category must also be
specified.
6925,158.7 EPA REPORTING CATEGORY 52;8 POINTER TO PROJECT EPA CATEGORY FILE (#6925.3)
INPUT TRANSFORM: S DIC("S")="I $S('$G(ENPCI):1,$P($G(^(0)),U,5)=ENPCI:1,'$O(^ENG(6925.3,""AC"",ENPCI,0)):1,1:0)" D ^
DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 03, 1997
DESCRIPTION: This field is required for environmental NRM projects. It is used to generate the A-106 report
required by the Environmental Protection Agency.
SCREEN: S DIC("S")="I $S('$G(ENPCI):1,$P($G(^(0)),U,5)=ENPCI:1,'$O(^ENG(6925.3,""AC"",ENPCI,0)):1,1:0)"
EXPLANATION: EPA Reporting Categories related to the Project Category
6925,158.8 BONUS CATEGORY 52;9 POINTER TO OFM PROJ CATEGORY FILE (#7336.8)
INPUT TRANSFORM: S DIC("S")="I $D(^(2)),$P(^(2),U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 19, 1995
HELP-PROMPT: Enter Bonus Category which involves 50% or more of project scope.
DESCRIPTION: This field designates the bonus category which involves 50% or more of the project scope and
determines prioritization points for NRM projects. 'Not Applicable' should be selected if none of
the other choices meet the 50% scope requirement.
SCREEN: S DIC("S")="I $D(^(2)),$P(^(2),U)"
EXPLANATION: NRM Bonus Categories
6925,158.9 AMBULATORY CARE PERCENTAGE 52;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1995
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
This field contains the project scope percentage for ambulatory care.
6925,159 OLD PROGRAM 60;6 SET
'MA' FOR MAJOR;
'MI' FOR MINOR;
'MM' FOR MINOR MISC;
'NR' FOR NRM;
'OT' FOR OTHER;
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,159.1 OLD FACILITY TYPE 68;6 SET
'VHA' FOR VET HEALTH ADMIN;
'VBA' FOR VET BENEFITS ADMIN;
'NCS' FOR NATIONAL CEMETERY SERVICE;
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,159.15 OLD DIVISION 70;1 POINTER TO DIVISION FILE (#6910.3)
LAST EDITED: MAR 13, 1997
DESCRIPTION:
Value previously reported via electronic 10-0051.
6925,159.2 OLD PROJECT CATEGORY 68;1 POINTER TO OFM PROJ CATEGORY FILE (#7336.8)
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,159.3 OLD BUDGET CATEGORY 68;2 POINTER TO OFM BUDGET CATEGORY FILE (#7336.9)
LAST EDITED: FEB 08, 1993
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,159.4 OLD NHCU BEDS (NEW) 68;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,159.5 OLD NHCU BEDS (RENOVATED) 68;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<-999)!(X?.E1"."1N.N) X
LAST EDITED: APR 26, 1993
HELP-PROMPT: Type a Number between -999 and 9999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,159.6 OLD NHCU BEDS (CONVERTED) 68;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 08, 1993
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,159.7 OLD EPA REPORTABLE 68;7 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: NOV 24, 1995
DESCRIPTION:
Value previously reported on electronic 10-0051.
6925,159.8 OLD EPA REPORTING CATEGORY 68;8 POINTER TO PROJECT EPA CATEGORY FILE (#6925.3)
LAST EDITED: NOV 24, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
6925,159.9 OLD BONUS CATEGORY 68;9 POINTER TO OFM PROJ CATEGORY FILE (#7336.8)
LAST EDITED: OCT 18, 1995
DESCRIPTION:
Value previously reported via electronic 10-0051.
UNEDITABLE
6925,161 EMERGENCY/INTERIM APPLICATION 15;13 SET
'E' FOR EMERGENCY;
'I' FOR INTERIM;
LAST EDITED: DEC 24, 1992
HELP-PROMPT: Enter 'E' for an Emergency and 'I' for an Interim Application
DESCRIPTION: This field is used to identify project applications that are emergency or interim. Minor Appeals
are considered Interim.
6925,162 EQPMT OVER $250K APPLICATION 15;14 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 10, 1994
HELP-PROMPT: Enter 'Y' if an equipment item costs more than $250,000
DESCRIPTION:
This field is used to identify projects that have equipment costing more than $250K.
6925,163 CAPITAL LEASE PROGRAM 15;15 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 24, 1992
DESCRIPTION:
This field is used to identify Capital Lease programs.
6925,164 CITATIONS 21;0 Multiple #6925.0164
DESCRIPTION:
Multiple field used to enter citations.
6925.0164,.01 CITATION NAME 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X
LAST EDITED: DEC 24, 1992
HELP-PROMPT: Answer must be 3-25 characters in length.
DESCRIPTION:
This field contains the name of any citations associated with a project. (eg. JCAHO citations)
CROSS-REFERENCE: 6925.0164^B
1)= S ^ENG("PROJ",DA(1),21,"B",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ",DA(1),21,"B",$E(X,1,30),DA)
6925.0164,2 DATE 0;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:3990000X)!(X>DT) X
LAST EDITED: DEC 24, 1992
HELP-PROMPT: Enter a current or past Date (year range 1970-2099)
DESCRIPTION:
This field contains the date the citation was issued.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925.0164,3 CITING AUTHORITY 0;4 POINTER TO REGULATORY AGENCY FILE (#7335.7) (Required)
LAST EDITED: DEC 24, 1992
HELP-PROMPT: Enter the Agency that issued the Citation
DESCRIPTION:
This field contains a pointer to the Regulatory Agency File (#7335.7).
6925.0164,4 PAGE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1) X
LAST EDITED: DEC 24, 1992
HELP-PROMPT: Answer must be 1-5 characters in length.
DESCRIPTION:
This field contains the page number in the citing agency's report that contains the citation.
6925.0164,5 OFFICIALS NAME 0;6 FREE TEXT
INPUT TRANSFORM:K:X[""""!$A(X)=45 X I $D(X) S:X?.E1L.E X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUV
WXYZ") K:$L(X)>30!($L(X)<3)!(X'?1U.UP1","0.1" "1U.UP) X
LAST EDITED: JUN 27, 1995
HELP-PROMPT: Answer must be 3-30 characters in length (i.e. LAST,FIRST)
DESCRIPTION:
This field contains the name of the official issuing the citation.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925.0164,6 OFFICIALS TITLE 0;7 FREE TEXT
INPUT TRANSFORM:K:$L(X)>25!($L(X)<1) X
LAST EDITED: DEC 24, 1992
HELP-PROMPT: Answer must be 1-25 characters in length.
DESCRIPTION:
This field contains the title of the official issuing the citation.
6925.0164,8 CORRECTION >50% PROJECT SCOPE 0;8 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 21, 1993
HELP-PROMPT: Answer 'Y' if correction of citation is greater than 50% of this project's scope
DESCRIPTION: This field is a set of codes (Yes or No) used to determine if correction of the citation is greater
than 50% of the project scope. The field is used to determine if prioritization points will be
awarded for NRM and Minor/Minor Misc. programs.
6925,165 PROJ CATEGORY >75% SCOPE 18;4 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JAN 11, 1993
DESCRIPTION: This field is a set of codes (Yes or No) to determine if project category is greater than 75% of
the project scope. The field is used to determine if Category Bonus Prioritization points for
Minor and Minor Miscellaneous projects can be taken. Category Bonus points will not be given if
credit was taken for Space.
6925,165.1 NHCU AUTHORIZED BEDS 53;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 02, 1995
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
Total number of nursing home care unit beds authorized for the facility.
6925,166 NHCU CONVERSION 57;0 SET Multiple #6925.0166
6925.0166,.01 NHCU CONVERSION SOURCE 0;1 SET (Multiply asked)
'1' FOR DOMICILIARY;
'2' FOR INTERMEDIATE;
'3' FOR MEDICAL;
'4' FOR PSYCHIATRIC;
'5' FOR REHABILITATIVE;
'6' FOR SURGICAL;
LAST EDITED: APR 30, 1997
HELP-PROMPT: Enter source of beds being converted to NHCU.
CROSS-REFERENCE: 6925.0166^B
1)= S ^ENG("PROJ",DA(1),57,"B",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ",DA(1),57,"B",$E(X,1,30),DA)
6925.0166,1 NHCU CONVERSION NUMBER 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 30, 1997
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
6925,176 DIVISION 15;1 POINTER TO DIVISION FILE (#6910.3)
LAST EDITED: MAY 10, 1995
DESCRIPTION: This field is used to identify the division of a multi-divisional facility. It can be used to
generate a division specific report when printing the Five Year Facility Plan.
6925,177 BUILDING NUMBER 34;0 POINTER Multiple #6925.0177
LAST EDITED: FEB 24, 1993
DESCRIPTION:
Multiple field used to identify buildings affected by project.
6925.0177,.01 BUILDING NUMBER 0;1 POINTER TO ENG BUILDING FILE (#6928.3) (Multiply asked)
LAST EDITED: FEB 24, 1993
HELP-PROMPT: Enter assigned Number of Building involved with this Project
DESCRIPTION:
This field contains a building number associated with the project.
CROSS-REFERENCE: 6925.0177^B
1)= S ^ENG("PROJ",DA(1),34,"B",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ",DA(1),34,"B",$E(X,1,30),DA)
6925,178 BLDG DISPLAY ; COMPUTED
MUMPS CODE: D A^ENPL1
ALGORITHM: D A^ENPL1
DESCRIPTION:
This field concatenates the building numbers for display on the 1193.
6925,179 BLDG OCCUPANCY 15;4 SET
'1' FOR PATIENT;
'2' FOR ADMINISTRATIVE;
'3' FOR QUARTERS;
'4' FOR AMBULATORY CARE;
'5' FOR OTHER;
LAST EDITED: DEC 28, 1992
DESCRIPTION:
This field is used to identify occupancy of buildings affected. (VAF 10- 1193, Block 10)
6925,180 H089 22;0 POINTER Multiple #6925.03
DESCRIPTION:
Multiply entered pointer to the OFM H089 Chapters file (7336.6) for entry of H089 chapter codes.
6925.03,.01 H089 CHAPTER NAME 0;1 POINTER TO OFM H089 CHAPTERS FILE (#7336.6) (Multiply asked)
DEPARTMENT/SERVICE CHAPTER
INPUT TRANSFORM:S DIC("S")="I $D(ENDA),'$P(^(0),U,4),$P(^(0),U,5)[$P($G(^ENG(""PROJ"",ENDA,52)),U,6)" D ^DIC K DIC
S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 31, 1992
HELP-PROMPT: Enter H-08-9 Chapter within Scope of this project
DESCRIPTION:
This field contains the name of an H08-9 chapter associated with project.
SCREEN: S DIC("S")="I $D(ENDA),'$P(^(0),U,4),$P(^(0),U,5)[$P($G(^ENG(""PROJ"",ENDA,52)),U,6)"
EXPLANATION: Screen prevents selection of inactive H-08-9 Chapters and Chapters inappropriate for this facility
type.
CROSS-REFERENCE:6925.03^B
1)= S ^ENG("PROJ",DA(1),22,"B",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ",DA(1),22,"B",$E(X,1,30),DA)
6925.03,1 NEW NET SQ FT 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 28, 1992
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
This field contains the new net square footage for the associated H08-9 chapter.
6925.03,2 NEW GROSS SQ FT 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 28, 1992
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
This field contains the new gross square footage for the associated H08-9 chapter.
6925.03,3 RENOVATED NET SQ FT 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 28, 1992
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
This field contains the renovated net square footage for the associated H08-9 chapter.
6925.03,4 RENOVATED GROSS SQ FT 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 28, 1992
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
This field contains the renovated gross square footage for the associated H08-9 chapter.
6925,181 5 YR FACILITY PLAN FY 15;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2099)!(X<1980)!(X?.E1"."1N.N) X
LAST EDITED: DEC 28, 1992
HELP-PROMPT: Enter fiscal year (FY) for proposed budget year which this project is scheduled for in the latest
5-Yr facility plan.
DESCRIPTION: This field contains the fiscal year the project is planned for on the approved 5-Year facility
plan.
6925,181.1 FIVE YR PLAN STATUS 15;16 SET
'0' FOR NOT EVALUATED;
'1' FOR RETURNED TO SITE;
'2' FOR DISAPPROVED;
'3' FOR REGION APPROVED;
LAST EDITED: JUN 05, 1997
DESCRIPTION:
Set of codes for regional approval status of 5-Year plan.
CROSS-REFERENCE: ^^TRIGGER^6925^181.2
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,15)):^(15),1:"") S X=$P(Y(1),U,19),X=
X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(6925,181.1,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),15)):^(15),1:""),DIV=X S $P(^(15),U,19)=DIV,DIH=6925,DIG=181.2
D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,15)):^(15),1:"") S X=$P(Y(1),U,19),X=
X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(6925,181.1,1,1,2.4)
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),15)):^(15),1:""),DIV=X S $P(^(15),U,19)=DIV,DIH=6925,DIG=181.2
D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= TODAY
DELETE VALUE)= TODAY
FIELD)= #181.2
6925,181.2 5 YR PLAN STATUS DATE 15;19 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:3990000X) X
LAST EDITED: JAN 27, 1993
HELP-PROMPT: TYPE A DATE BETWEEN 1980 AND 2099
DESCRIPTION:
This field contains the date the 5-Yr plan status was updated.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the FIVE YR PLAN STATUS field of the CONSTRUCTION PROJECT File
6925,182 PLANNED CONSTRUCTION METHOD 15;7 SET
'1' FOR CONTRACT;
'2' FOR P&H;
'3' FOR STATION LABOR;
'4' FOR SBA 8(a);
'5' FOR DESIGN/BUILD;
'6' FOR LEASE;
LAST EDITED: DEC 28, 1992
DESCRIPTION:
Set of codes for the planned construction method of the project.
6925,185.1 OLD NHCU AUTHORIZED BEDS 68;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 22, 1995
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
Value previously reported via electronic 10-0051.
6925,186 OLD NHCU CONVERSION 58;0 SET Multiple #6925.0186
6925.0186,.01 OLD NHCU CONVERSION 0;1 SET (Multiply asked)
'1' FOR DOMICILIARY;
'2' FOR INTERMEDIATE;
'3' FOR MEDICAL;
'4' FOR PSYCHIATRIC;
'5' FOR REHABILITATIVE;
'6' FOR SURGICAL;
LAST EDITED: AUG 02, 1996
HELP-PROMPT: Source of beds being converted to NHCU on prior 10-0051.
CROSS-REFERENCE: 6925.0186^B
1)= S ^ENG("PROJ",DA(1),58,"B",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ",DA(1),58,"B",$E(X,1,30),DA)
6925.0186,1 NUMBER 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 02, 1996
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
6925,187 ENVIRONMENTAL ASSESSMENT REQD 15;12 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 28, 1992
DESCRIPTION: This field is a set of codes used to identify projects requiring an environmental assessment. (VAF
10-1193a, Block 4)
6925,187.5 ACTIVATION RESOURCES REQ IN FY 24;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2099)!(X<1993)!(X?.E1"."1N.N) X
LAST EDITED: MAY 18, 1993
HELP-PROMPT: Enter a year between 1993 and 2099
DESCRIPTION:
This field contains the fiscal year activation resources are required.
6925,188 RECURRING ALL OTHER $ 24;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X<1000 D EN^DDIOL("note - value less than $1000"
,"","!?4")
LAST EDITED: JUN 21, 1995
HELP-PROMPT: Enter a whole dollar amount between 0 and 9999999
DESCRIPTION:
This field contains the total Recurring All Other Funds required to support the project.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,189 ADDITIONAL FTEE 24;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Type a Number between 0 and 999.99, 2 Decimal Digits.
DESCRIPTION: This field contains the total Additional FTEE number as documented in the detailed activation
documentation.
6925,190 RECURRING PS 24;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X<1000 D EN^DDIOL("note - value less than $1000
","","!?4")
LAST EDITED: JUN 21, 1995
HELP-PROMPT: Enter a whole dollar amount between 0 and 99999999
DESCRIPTION: This field contains the total Recurring Personnel Service (PS) funds in accordance with the
Additional FTEE.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,190.2 EQUIPMENT $ 24;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X<1000 D EN^DDIOL("note - value leass than $100
0","","!?4")
LAST EDITED: JUN 21, 1995
HELP-PROMPT: Enter a whole dollar amount between 0 and 99999999
DESCRIPTION: This field contains the total activation equipment funds required to support the project with the
following exception. For NRM projects, any equipment items (or systems) that cost over $250,000
should NOT be included in this figure since such high cost equipment must be applied for separately
under the High Cost Equipment Program. For Leases and Minor, Minor Misc and Major projects, any
equipment items (or systems) that cost $250,000 should be included in this figure since such high
cost equipment cannot be applied for under the High Cost Equipment Program.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,190.3 NONRECURRING ALL OTHER 24;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X<1000 D EN^DDIOL("note - value less than $1000
","","!?4")
LAST EDITED: JUN 21, 1995
HELP-PROMPT: Enter a whole dollar amount between 0 and 99999999
DESCRIPTION:
This field contains the total Non-Recurring All Other funds required to support the project.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,190.4 TRAVEL .007 24;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X<1000 D EN^DDIOL("note - value less than $1000",
"","!?4")
LAST EDITED: JUN 21, 1995
HELP-PROMPT: Enter a whole dollar amount between 0 and 999999
DESCRIPTION:
This field contains the total Travel .007 funds required to support the project.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,190.6 EQUIPMENT OVER $250K 25;0 Multiple #6925.04
LAST EDITED: FEB 14, 1994
DESCRIPTION: Multiply entered field for equipment over $250,000.
6925.04,.01 EQUIPMENT OVER $250K NAME 0;1 FREE TEXT (Multiply asked)
EQUIPMENT OVER $250K
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: FEB 14, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field contains a 3-30 character name for an equipment item over $250,000.
CROSS-REFERENCE: 6925.04^B
1)= S ^ENG("PROJ",DA(1),25,"B",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ",DA(1),25,"B",$E(X,1,30),DA)
6925.04,1 QUANTITY 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 26, 1993
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This field contains the quantity of the equipment item.
6925.04,2 UNIT COST 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<250000)!(X?.E1"."1N.N) X
LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter a whole dollar amount between 250000 and 99999999
DESCRIPTION:
This field contains the unit cost of the equipment item.
6925.04,3 LINE ITEM AMT ; COMPUTED
MUMPS CODE: S Y(6925.04,3,1)=$S($D(^ENG("PROJ",D0,25,D1,0)):^(0),1:"") S X=$P(Y(6925.04,3,1),U,2)*$P(Y(6925.04,
3,1),U,3)
ALGORITHM: #1*#2
LAST EDITED: DEC 30, 1992
DESCRIPTION:
This field contains the computed total cost of an equipment item.
6925.04,4 ADDITIONAL/REPLACEMENT 0;4 SET
'A' FOR ADDITIONAL;
'R' FOR REPLACEMENT;
LAST EDITED: APR 29, 1994
HELP-PROMPT: Enter 'A' if additional equipment or 'R' if replacement equipment.
DESCRIPTION:
This field identifies equipment over $250K as additional or replacement equipment.
6925,191 NET BED CHANGE 15;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<-999)!(X?.E1"."1N.N) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Type a Number between -999 and 999, 0 Decimal Digits
DESCRIPTION:
This field contains the net change in authorized beds.
6925,192 PROJECT DESCRIPTION (SHORT) 17;0 WORD-PROCESSING #6925.0192
LAST EDITED: FEB 07, 1993
DESCRIPTION:
This field is for a description of up to 3 lines.
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter 2-3 line description of the project.
6925,192.3 JUSTIFICATION (SHORT) 26;0 WORD-PROCESSING #6925.05
LAST EDITED: FEB 07, 1993
DESCRIPTION:
This field is for a justification of up to 3 lines.
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter a 2-3 line project justification.
6925,192.6 WORKLOAD 27;0 WORD-PROCESSING #6925.06
DESCRIPTION: This field contains a brief declaration of workload data (i.e., Is the Workload approved?, What is
the approval date?, What Workload Model Version was used?, etc) that justifies the project, if
applicable (required for Majors).
LAST EDITED: DEC 29, 1992
6925,193 ENVIRONMENT IMPACT STMT REQD 16;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
DESCRIPTION: This field is a set of codes (Yes or No) indicating the need for an environmental impact statement
by the facility. (VAF 10-1193a, Block 5)
6925,194 ADDITIONAL DOCUMENTATION REQD 16;6 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
DESCRIPTION: This field is a set of codes (Yes or No) indicating the need for additional documentation by the
facility. (VAF 10-1193a, Block 6)
6925,194.5 FURTHER REQD ACTION 16;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Answer must be 1-35 characters in length.
DESCRIPTION: This field contains specification of further action required by the facility. (VAF 10-1193a, Block
7)
6925,194.6 EVALUATOR 16;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X D:$D(X)#10 V^ENPL1
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter name as Last name, First name Middle initial, 3-25 characters.
DESCRIPTION:
This field contains the name of the evaluator. (VAF 10-1193a, Block 8)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,194.7 DATE OF EVALUATION 16;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:3990000X)!(X>DT) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter a Past or Current Date (year range 1980-2099)
DESCRIPTION:
This field contains the date of environmental evaluation. (VAF 10-1193a, Block 8)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,195 ACQUIRES OR DISPOSES LAND 16;7 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project acquire or dispose of land?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project acquires or
disposes of land. (VAF 10-1193a, Block A1)
6925,195.1 A1 LAND USE TEXT 42;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 27, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for ACQUIRES OR DISPOSES LAND. (VAF
10-1193a, Block A1)
6925,196 AFFECTS WETLANDS/FLOOD PLAINS 16;8 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project involve land located in a wetland or floodplain?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project involves
land located in a wetland or floodplain. (VAF 10- 1193a, Block A2)
6925,196.1 A2 LAND USE TEXT 42;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for AFFECTS WETLANDS/FLOOD PLAINS.
(VAF 10-1193a, Block A2)
6925,197 INVOLVES STORM WATER RUNOFF 16;9 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project involve storm water run-off and retainage?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project involves
storm water run-off and retainage. (VAF 10-1193a, Block A3)
6925,197.1 A3 LAND USE TEXT 42;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation.
DESCRIPTION: Specification of standards used and project elements analyzed for INVOLVES STORM WATER RUNOFF. (VAF
10-1193a, Block A3)
6925,198 CONFLICTS W LOCAL ZONING 16;10 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project conflict with local zoning and planning regulations?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project conflicts
with local zoning and planning regulations. (VAF 10-1193a, Block A4)
6925,198.1 A4 LAND USE TEXT 42;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for CONFLICTS W LOCAL ZONING. (VAF
10-1193a, Block A4)
6925,199 DISLOCATES PEOPLE/RESIDENCES 16;11 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project dislocate persons, residences, or cause major population shift?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project dislocates
persons, residences, or causes a major population shift. (VAF 10-1193a, Block A5)
6925,199.1 A5 LAND USE TEXT 43;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 27, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION:
Specification of standards used and project elements analyzed for DISLOCATES PEOPLE/RESIDENCES.
6925,200 AFFECTS PROTECTED FAUNA/FLORA 16;12 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project affect protected wildlife or vegetation?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project affects
protected wildlife or vegetation. (VAF 10-1193a, Block A6)
6925,200.1 A6 LAND USE TEXT 43;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 27, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for AFFECTS PROTECTED FAUNA/FLORA.
(VAF 10-1193a, Block A6)
6925,201 OUTSIDE CONST GT 10000 SQ FT 16;13 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project involve 'outside' construction of more than 10,000 sq. ft.?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project involves
'outside' construction of more than 10,000 sq. ft. (VAF 10-1193a, Block B1)
6925,201.1 B1 CONSTRUCTION TEXT 44;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for OUTSIDE CONST GT 10000 SQ FT.
(VAF 10-1193a, Block B1)
6925,202 INCREASE OFF SITE TRAFFIC >10% 16;14 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project increase off-site traffic flow by more than 10 %?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project increases
off-site traffic flow by more than 10%. (VAF 10- 1193a, Block B2)
6925,202.1 B2 CONSTRUCTION TEXT 44;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for INCREASE OFF SITE TRAFFIC >10%.
(VAF 10-1193a, Block B2)
6925,203 SIGNIF ALTER OFF SITE TRAFFIC 16;15 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project significantly alter off-site traffic flow?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project
significantly alters off-site traffic flow. (VAF 10-1193a, Block B3)
6925,203.1 B3 CONSTRUCTION TEXT 44;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for SIGNIF ALTER OFF SITE TRAFFIC.
(VAF 10-1193a, Block B3)
6925,204 INVOLVE HISTORIC AREA/BLDGS 16;16 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project involve a historically designated building or area?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project involves a
historically designated building or area. (VAF 1193a, Block B4)
6925,204.1 B4 CONSTRUCTION TEXT 44;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for INVOLVE HISTORIC AREA/BLDGS. (VAF
10-1193a, Block B4)
6925,205 EMISSION/WATER QUALITY PROBLEM 16;17 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project conflict with local, state, or federal standards?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project conflicts
with local, state, or federal standards regarding emissions, water quality, or toxic substances.
(VAF 10-1193a, Block C1)
6925,205.1 C1 EMISSION/TOXINS TEXT 45;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for EMISSION/WATER QUALITY PROBLEM.
(VAF 10-1193a, Block C1)
6925,206 PUBLIC CONTROVERSY 16;18 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project have a known potential for public controversy?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project have a
known potential for public controversy. (VAF 10- 1193a, Block D1)
6925,206.1 D1 PUBLIC CONTROVERSY TEXT 45;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for PUBLIC CONTROVERSY. (VAF
10-1193a, Block D1)
6925,207 CONFLICT LOCAL/STATE REGS 16;19 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project conflict with local or state regulations?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project conflict
with local or state regulations. (VAF 10-1193a, Block D2)
6925,207.1 D2 PUBLIC CONTROVERSY TEXT 45;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION: Specification of standards used and project elements analyzed for CONFLICT LOCAL/STATE REGS. (VAF
10-1193a, Block D2)
6925,208 OVERLOAD UTILITY SYS CAPACITY 16;20 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Does proposed project overload available utility system capacity?
DESCRIPTION: This field is a set of codes (Yes or No) indicating whether or not the proposed project overload
the available utility system capacity. (VAF 10- 1193a, Block D3)
6925,208.1 D3 UTLITY OVERLOAD TEXT 45;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Specify standards used and project elements analyzed, or provide additional documentation. (1-50
Characters)
DESCRIPTION:
Specification of standards used and project elements analyzed for OVERLOAD UTILITY SYS CAPACITY.
6925,209 VAMC PRIORITY 15;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
This field contains the priority # assigned to the project by the facility.
6925,209.1 MCPS SCORE 24;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>30.99)!(X<1)!(X?.E1"."3N.N) X
LAST EDITED: MAR 10, 1993
HELP-PROMPT: For Major Projects enter Number between 1 and 30.99, 2 Decimal Digits
DESCRIPTION: This fields contains the total facility score based on the Major Construction Priority Scoring
Methodology. This can obtained from the VACO or the Region.
6925,210 REGIONAL PRIORITY 15;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 26, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
This field contains the priority assigned by the Region
6925,212 ESTIMATED COST FOR 5 YR PLAN ; COMPUTED
MUMPS CODE: X ^DD(6925,212,9.4) S X=$S(Y(6925,212,3):Y(6925,212,5),Y(6925,212,6):X) S X=$J(X,0,0)
9.2 = S Y(6925,212,2)=$C(59)_$S($D(^DD(6925,155,0)):$P(^(0),U,3),1:""),Y(6925,212,1)=$S($D(^ENG("PR
OJ",D0,0)):^(0),1:""),Y(6925,212,7)=$S($D(^(19)):^(19),1:"")
9.3 = X ^DD(6925,212,9.2) S Y(6925,212,4)=$S($D(^(55)):^(55),1:"") S X=$P($P(Y(6925,212,2),$C(59)_$
P(Y(6925,212,1),U,6)_":",2),$C(59),1)="LEASE",Y(6925,212,3)=X
9.4 = X ^DD(6925,212,9.3) S X=$P(Y(6925,212,4),U,5),Y(6925,212,5)=X S X=1,Y(6925,212,6)=X S X=$P(Y(
6925,212,7),U,10)+$P(Y(6925,212,7),U,11)
ALGORITHM: $S(#155="LEASE":#289,1:#212.1+#212.2) (ALWAYS 0 DECIMAL DIGITS)
6925,212.1 ESTIMATED A/E COST (FYFP) 19;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X\1000'=(X/1000) S X=X+999\1000*1000 D EN^DDI
OL("Value was rounded up to "_X,"","!?4")
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Enter the Whole Dollar Amount that will be used on the 5-Yr Plan.
DESCRIPTION: This field contains the estimated A/E cost of the project for the Five Year Facility Plan (FYFP).
It will be used on the FYFP in the project's Funding Year - A/E. The total estimated cost of the
project is the sum of this field and the ESTIMATED CONST COST (FYFP) field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,212.2 ESTIMATED CONST COST (FYFP) 19;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X\1000'=(X/1000) S X=X+999\1000*1000 D EN^DDI
OL("Value was rounded up to "_X,"","!?4")
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Enter the Whole Dollar Amount that will be used on the 5-Yr Plan.
DESCRIPTION: This field contains the estimated construction cost of the project for the Five Year Facility Plan
(FYFP). It will be used on the FYFP in the project's Funding Year - Const. The total estimated cost
of the project is the sum of this field and the ESTIMATED A/E COST (FYFP) field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,213 TOTAL M AND R COSTS 19;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 30, 1992
HELP-PROMPT: Enter Whole Dollar Total M & R Costs as listed on VAF 10-6238, 0-99999999
DESCRIPTION:
This field contains the total Maintenance & Repair costs as listed on VAF 10-6238.
6925,214 TOTAL BSEA COSTS 19;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 30, 1992
HELP-PROMPT: Enter Whole Dollar Total BSEA Costs as listed on VAF 10-6238, 0-99999999
DESCRIPTION: This field contains the total Building Service Equipment Additional (BSEA) costs as listed on VAF
10-6238. BSEA labor costs should be included in MI.
6925,215 TOTAL BSER COSTS 19;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 30, 1992
HELP-PROMPT: Enter Whole Dollar Total BSER Costs as listed on VAF 10-6238, 0-99999999
DESCRIPTION: This field contains the total Building Service Equipment Replacement (BSER) costs as listed on VAF
10-6238.
6925,216 TOTAL MI COSTS 19;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>499999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 12, 1997
HELP-PROMPT: Type a Number between 0 and 499999, 0 Decimal Digits
DESCRIPTION:
This field contains the total Minor Improvement (MI) costs as listed on VAF 10-6238.
6925,217 NRM TOTAL COST ; COMPUTED
MUMPS CODE: S Y(6925,217,1)=$S($D(^ENG("PROJ",D0,19)):^(19),1:"") S X=$P(Y(6925,217,1),U,1)+$P(Y(6925,217,1),U,
2)+$P(Y(6925,217,1),U,3)+$P(Y(6925,217,1),U,4)
ALGORITHM: #213+#214+#215+#216
LAST EDITED: DEC 30, 1992
DESCRIPTION: This field contains the total anticipated (Low Bid) NRM Construction Costs as listed on VAF
10-6238.
6925,218 *CONTINGENCY PCT MI/MA ; COMPUTED
MUMPS CODE: X ^DD(6925,218,9.6) S X=$S(Y(6925,218,103):Y(6925,218,104),Y(6925,218,203):Y(6925,218,204),Y(6925,2
18,205):X) S D0=Y(6925,218,80) S D1=Y(6925,218,81) S X=$J(X,0,1)
9.2 = S Y(6925,218,80)=$S($D(D0):D0,1:""),Y(6925,218,81)=$S($D(D1):D1,1:"") S Y(6925,218,180)=$S($D
(D0):D0,1:""),Y(6925,218,181)=$S($D(D1):D1,1:"")
9.3 = X ^DD(6925,218,9.2) S Y(6925,218,102)="" X "F D1=0:0 S D1=$O(^ENG(""PROJ"",D0,22,D1)) Q:D1'>0
S Y(6925,218,102)=Y(6925,218,102)+$S($D(^(D1,0)):$P(^(0),U,5),1:"""")" S D(1)=D1
9.4 = X ^DD(6925,218,9.3) S X=Y(6925,218,102)>0,Y(6925,218,103)=X S X=7.5,Y(6925,218,104)=X,Y(6925,
218,105)=X,Y(6925,218,202)=""
9.5 = X ^DD(6925,218,9.4) X "F D1=0:0 S D1=$O(^ENG(""PROJ"",D0,22,D1)) Q:D1'>0 S Y(6925,218,202)=Y
(6925,218,202)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""")" S D(1)=D1
9.6 = X ^DD(6925,218,9.5) S X=Y(6925,218,202)>0,Y(6925,218,203)=X S X=5,Y(6925,218,204)=X S X=1,Y(6
925,218,205)=X S X=7.5
9.7 = X ^DD(6925,218,9.6) X "F D1=0:0 S D1=$O(^ENG(""PROJ"",D0,22,D1)) Q:D1'>0 S Y(6925,218,302)=Y
(6925,218,302)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""")" S D(1)=D1
9.8 = X ^DD(6925,218,9.7) S X=Y(6925,218,302)>0,Y(6925,218,303)=X S X=5,Y(6925,218,304)=X S X=1,Y(6
925,218,305)=X S X=7.5
ALGORITHM: $S(TOTAL(#180:#4)>0:7.5,TOTAL(#180:#2)>0:5,1:7.5) (ALWAYS 1 DECIMAL DIGITS)
LAST EDITED: APR 28, 1997
DESCRIPTION: This field contains the Major, Minor and Minor Misc Construction Contingency Percentage. (5% for
new construction or 7.5% for renovated construction) A contingency of 7.5% is used if there is any
H089 renovated gross sq ft. A contingency of 5% is used if there is not any H089 renovated gross sq
ft, but there is some H089 new gross sq ft. A contingency of 7.5% is used when there is not any
H089 new or renovated gross sq ft.
6925,218.1 CONTINGENCY DOLLARS ; COMPUTED
MUMPS CODE: X ^DD(6925,218.1,9.4) S X=X+999.999\1000*1000 S X=$J(X,0,0)
9.2 = X $P(^DD(6925,217,0),U,5,99) S Y(6925,218.1,4)=X S Y(6925,218.1,1)=$S($D(^ENG("PROJ",D0,0)):^
(0),1:""),Y(6925,218.1,3)=$S($D(^(19)):^(19),1:"")
9.3 = X ^DD(6925,218.1,9.2) S X=$P(Y(6925,218.1,1),U,6),X=X S X=X="NR",Y(6925,218.1,2)=X S X=$P(Y(6
925,218.1,3),U,5)*Y(6925,218.1,4),Y(6925,218.1,5)=X S X=1
9.4 = X ^DD(6925,218.1,9.3) S Y(6925,218.1,6)=X S X=$P(Y(6925,218.1,3),U,12)*$P(Y(6925,218.1,3),U,8
),X=$S(Y(6925,218.1,2):Y(6925,218.1,5),Y(6925,218.1,6):X)/100
9.5 = X ^DD(6925,218.1,9.4) S X=$S(Y(6925,218.1,2):Y(6925,218.1,5),Y(6925,218.1,6):X)\100000,Y(6925
,218.1,8)=X,Y(6925,218.1,9)=X S X=$P(Y(6925,218.1,1),U,6)
9.6 = X ^DD(6925,218.1,9.5) S X=X S X=X="NR",Y(6925,218.1,10)=X S X=$P(Y(6925,218.1,3),U,5)>0,Y=X,X
=Y(6925,218.1,10),X=X&Y,Y(6925,218.1,11)=X S X=Y(6925,218.1,4)
9.7 = X ^DD(6925,218.1,9.6) S X=X>0,Y=X,X=Y(6925,218.1,11),X=X&Y,Y(6925,218.1,12)=X S X=1,Y(6925,21
8.1,13)=X,Y(6925,218.1,14)=X S X=$P(Y(6925,218.1,1),U,6)
9.8 = X ^DD(6925,218.1,9.7) S X=X S X=X'="NR",Y(6925,218.1,15)=X S X=Y(6925,218.1,7)>0,Y=X,X=Y(6925
,218.1,15),X=X&Y,Y(6925,218.1,16)=X S X=$P(Y(6925,218.1,3),U,8)
9.9 = X ^DD(6925,218.1,9.8) S X=X>0,Y=X,X=Y(6925,218.1,16),X=X&Y,Y(6925,218.1,17)=X S X=1,Y(6925,21
8.1,18)=X S X=1,Y(6925,218.1,19)=X S X=0
ALGORITHM: $S(INTERNAL(#155)="NR":#218.2*#217,1:#218.3*#221)/100+999.999\1000*1000 (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: APR 28, 1994
DESCRIPTION: This field contains the computed total Construction Contingency amount the percentages used depend
on project program type.
6925,218.2 NRM CONTINGENCY PCT 19;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter Contingency % as listed on VAF 10-6238, 1 Decimal Digit
DESCRIPTION:
This field contains the NRM program Construction Contingency's Percentage.
6925,218.3 MI/MA CONTINGENCY PCT 19;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: APR 28, 1997
HELP-PROMPT: Enter Contingency % as listed on VAF 10-6238, 1 Decimal Digit.
DESCRIPTION:
This field contains the MAJOR/MINOR program Construction Contingency's Percentage.
6925,219 IMPACT COST 19;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 30, 1992
HELP-PROMPT: Enter Whole Dollar Total Impact Costs as listed on VAF 10-6238, 0-99999999
DESCRIPTION:
This field contains the Total Impact costs as listed on the VAF 10-6238.
6925,220 TECHNICAL SERVICES PCT ; COMPUTED
MUMPS CODE: X ^DD(6925,220,10) S X=X*100
9.2 = X $P(^DD(6925,217,0),U,5,99) S Y(6925,220,7)=X S Y(6925,220,5)=$S($D(^ENG("PROJ",D0,0)):^(0),
1:""),Y(6925,220,1)=$S($D(^(19)):^(19),1:"") S X=$P(Y(6925,220,1),U,6)
9.3 = X ^DD(6925,220,9.2) S X=X+0=0,Y(6925,220,2)=X S X=0,Y(6925,220,3)=X,Y(6925,220,4)=X S X=$P(Y(
6925,220,5),U,6),X=X S X=X="NR",Y(6925,220,6)=X S X=Y(6925,220,7)
9.4 = X ^DD(6925,220,9.3) S X=X+0=0,Y=X,X=Y(6925,220,6),X=X&Y,Y(6925,220,8)=X S X=1,Y(6925,220,9)=X
,Y(6925,220,10)=X S X=$P(Y(6925,220,5),U,6),X=X S X=X="NR"
9.5 = X ^DD(6925,220,9.4) S Y(6925,220,11)=X S X=Y(6925,220,7)>0,Y=X,X=Y(6925,220,11),X=X&Y,Y(6925,
220,12)=X S X=$P(Y(6925,220,1),U,6),X=$S(Y(6925,220,7):X/Y(6925,220,7),1:"*******")
9.6 = X ^DD(6925,220,9.5) S Y(6925,220,13)=X,Y(6925,220,14)=X S X=$P(Y(6925,220,5),U,6),X=X S X=X'=
"NR",Y(6925,220,15)=X S X=$P(Y(6925,220,1),U,8)+$P(Y(6925,220,1),U,7)
9.7 = X ^DD(6925,220,9.6) S X=X=0,Y=X,X=Y(6925,220,15),X=X&Y,Y(6925,220,16)=X S X=1,Y(6925,220,17)=
X,Y(6925,220,18)=X S X=$P(Y(6925,220,5),U,6),X=X S X=X'="NR"
9.8 = X ^DD(6925,220,9.7) S Y(6925,220,19)=X S X=$P(Y(6925,220,1),U,8)>0,Y=X,X=Y(6925,220,19),X=X&Y
,Y(6925,220,20)=X S X=$P(Y(6925,220,1),U,6),X=$S($P(Y(6925,220,1),U,8):X/$P(Y(6925,220,1),U,8),1:"*
******")
9.9 = X ^DD(6925,220,9.8) S Y(6925,220,21)=X S X=1,Y(6925,220,22)=X S X=0
10 = X ^DD(6925,220,9.9) S X=$S(Y(6925,220,2):Y(6925,220,3),Y(6925,220,8):Y(6925,220,9),Y(6925,220,
12):Y(6925,220,13),Y(6925,220,16):Y(6925,220,17),Y(6925,220,20):Y(6925,220,21),Y(6925,220,22):X)
ALGORITHM: $S(#220.1+0=0:0,INTERNAL(#155)="NR"&(#217+0=0):1,INTERNAL(#155)="NR"&(#217>0):#220.1/#217,INTERNAL(
#155)'="NR"&(#221+#219=0):1,INTERNAL(#155)'="NR"&(#221>0):#220.1/#221,1:0)*100
LAST EDITED: APR 26, 1993
DESCRIPTION: This field contains the calculated percent of Technical Services dollars to Total Construction Low
Bid amount.
SOURCE OF DATA: X ^DD(6925,220,9.9) S X=$S(Y(6925,220,2):Y(6925,220,3),Y(6925,220,8):Y(6925,220,9),Y(6925,220,12):Y
(6925,220,13),Y(6925,220,16):Y(6925,220,17),Y(6925,220,20):Y(6925,220,21),Y(6925,220,22):X)
6925,220.1 TECHNICAL SERVICES $ 19;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<1000)!(X?.E1"."1N.N) X
LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter Technical Services $ as listed on VAF 10-6238.
DESCRIPTION:
This field contains the total Technical Services dollars as listed on VAF 10-6238.
6925,221 MINOR/MAJOR CONST COSTS 19;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 30, 1992
HELP-PROMPT: Enter Whole Dollar amount between 0 - 999999999
DESCRIPTION: This field contains the total anticipated (Low Bid) Construction Cost for Major, Minor or Minor
Misc programs as listed on VAF 10-6238.
6925,222 TOTAL PROJECT COST ; COMPUTED
MUMPS CODE: X ^DD(6925,222,9.3) S Y(6925,222,5)=X S X=$P(Y(6925,222,6),U,8),X=$S(Y(6925,222,2):Y(6925,222,4),Y(
6925,222,5):X)+Y(6925,222,7)+$P(Y(6925,222,6),U,7)+$P(Y(6925,222,6),U,6) S X=$J(X,0,0)
9.2 = X $P(^DD(6925,217,0),U,5,99) S Y(6925,222,3)=X X $P(^DD(6925,218.1,0),U,5,99) S Y(6925,222,7)
=X S Y(6925,222,1)=$S($D(^ENG("PROJ",D0,0)):^(0),1:"")
9.3 = X ^DD(6925,222,9.2) S Y(6925,222,6)=$S($D(^(19)):^(19),1:"") S X=$P(Y(6925,222,1),U,6),X=X S
X=X="NR",Y(6925,222,2)=X S X=Y(6925,222,3),Y(6925,222,4)=X S X=1
9.4 = X ^DD(6925,222,9.3) S Y(6925,222,2)=X S X=Y(6925,222,3),Y(6925,222,4)=X S X=1,Y(6925,222,5)=X
S X=$P(Y(6925,222,6),U,8)
ALGORITHM: $S(INTERNAL(#155)="NR":#217,1:#221)+#218.1+#219+#220.1 (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: APR 26, 1993
DESCRIPTION:
This field contains the total Project Cost as listed on VAF 10-6238.
6925,223 NET PARKING CHANGE 15;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"."1N.N) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Type a Number between -9999 and 9999, 0 Decimal Digits
DESCRIPTION:
This field contains the change (if any) in the number of parking stalls available.
6925,225 DOMINOS 20;0 POINTER Multiple #6925.0225
LAST EDITED: DEC 31, 1992
DESCRIPTION: This multiple field points to projects, in the Construction Project File (#6925) that must be
started prior to the current project, due to a domino relationship.
6925.0225,.01 DOMINO PROJECT 0;1 POINTER TO CONSTRUCTION PROJECT FILE (#6925) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(ENDA)#10,ENDA'=+Y" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 31, 1992
HELP-PROMPT: Enter a project which must be started before this project
DESCRIPTION: This multiple field points to projects, in the Construction Project File (#6925), that must be
started prior to the current project, due to a domino relationship.
SCREEN: S DIC("S")="I $D(ENDA)#10,ENDA'=+Y"
EXPLANATION: Screen prevents selection of this project as a domino to itself.
CROSS-REFERENCE: 6925.0225^B
1)= S ^ENG("PROJ",DA(1),20,"B",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ",DA(1),20,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 6925^AB
1)= S ^ENG("PROJ","AB",$E(X,1,30),DA(1),DA)=""
2)= K ^ENG("PROJ","AB",$E(X,1,30),DA(1),DA)
This cross reference enables sorting of projects by domino project.
6925.0225,3 TITLE ; COMPUTED
MUMPS CODE: X ^DD(6925.0225,3,9.3) S X=$P(Y(6925.0225,3,101),U,3) S D0=Y(6925.0225,3,80) S D1=Y(6925.0225,3,81)
9.2 = S Y(6925.0225,3,81)=$S($D(D1):D1,1:""),Y(6925.0225,3,80)=$S($D(D0):D0,1:""),Y(6925.0225,3,1)=
$S($D(^ENG("PROJ",D0,20,D1,0)):^(0),1:"")
9.3 = X ^DD(6925.0225,3,9.2) S D0=$P(Y(6925.0225,3,1),U,1) S:'$D(^ENG("PROJ",+D0,0)) D0=-1 S Y(6925
.0225,3,101)=$S($D(^ENG("PROJ",D0,0)):^(0),1:"")
ALGORITHM: #.01:#2
DESCRIPTION:
This computed field gives the title (field #11) of the specified domino project.
6925.0225,4 PROGRAM ; COMPUTED
MUMPS CODE: X ^DD(6925.0225,4,9.3) S Y(6925.0225,4,101)=$S($D(^ENG("PROJ",D0,0)):^(0),1:"") S X=$P($P(Y(6925.02
25,4,102),$C(59)_$P(Y(6925.0225,4,101),U,6)_":",2),$C(59),1) S D0=Y(6925.0225,4,80) S D1=Y(6925.022
5,4,81)
9.2 = S Y(6925.0225,4,81)=$S($D(D1):D1,1:""),Y(6925.0225,4,80)=$S($D(D0):D0,1:""),Y(6925.0225,4,1)=
$S($D(^ENG("PROJ",D0,20,D1,0)):^(0),1:"")
9.3 = X ^DD(6925.0225,4,9.2) S D0=$P(Y(6925.0225,4,1),U,1) S:'$D(^ENG("PROJ",+D0,0)) D0=-1 S Y(6925
.0225,4,102)=$C(59)_$S($D(^DD(6925,155,0)):$P(^(0),U,3),1:"")
ALGORITHM: #.01:#155
DESCRIPTION:
This computed field gives the program type (field #155) of the specified domino project.
6925,231 FDP UPDATE COMPLETED 15;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter 'Y' if you have submitted a revised FDP, 'N' otherwise
DESCRIPTION:
This field contains a set of codes (Yes or No) indicating the current status of the facility's FDP.
6925,233 VAMC MINOR/MINOR MISC SCORE ; COMPUTED
MUMPS CODE: D K^ENPL3
ALGORITHM: D K^ENPL3
DESCRIPTION: This field contains the total Facility Score based on the Minor/Minor Misc. Prioritization Scoring
Methodology.
6925,233.1 MI/MM CITATION POINTS ; COMPUTED
MUMPS CODE: D XA^ENPL1
ALGORITHM: D XA^ENPL1
6925,233.2 MI/MM SPACE POINTS ; COMPUTED
MUMPS CODE: D XB^ENPL1
ALGORITHM: D XB^ENPL1
6925,233.3 MI/MM ENERGY POINTS ; COMPUTED
MUMPS CODE: D XC^ENPL1
ALGORITHM: D XC^ENPL1
6925,233.4 MI/MM CATEGORY POINTS ; COMPUTED
MUMPS CODE: D XD^ENPL1
ALGORITHM: D XD^ENPL1
6925,233.5 MI/MM VAMC PRIORITY POINTS ; COMPUTED
MUMPS CODE: D XE^ENPL1
ALGORITHM: D XE^ENPL1
6925,234 REGION SCORE 24;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter Score from Prioritization Sheet, between 0 & 999, 0 Decimal Digits
DESCRIPTION: This field contains the total Region Score based on the Prioritization Scoring Methodology. The
field will be completed by region staff.
6925,235 TOTAL PROJECT SCORE ; COMPUTED
MUMPS CODE: X ^DD(6925,235,9.8) S X=X+Y
9.2 = X $P(^DD(6925,233,0),U,5,99) S Y(6925,235,7)=X X $P(^DD(6925,263,0),U,5,99) S Y(6925,235,11)=
X S Y(6925,235,5)=$S($D(^ENG("PROJ",D0,0)):^(0),1:"")
9.3 = X ^DD(6925,235,9.2) S Y(6925,235,1)=$S($D(^(24)):^(24),1:"") S X=$P(Y(6925,235,1),U,10),Y(692
5,235,2)=X S X=",MI,MM,",Y(6925,235,3)=X S X=",",Y(6925,235,4)=X
9.4 = X ^DD(6925,235,9.3) S X=$P(Y(6925,235,5),U,6),X=X S Y=X,X=Y(6925,235,4),X=X S X=X_Y_",",Y=X,X
=Y(6925,235,3),X=X[Y,Y(6925,235,6)=X S X=Y(6925,235,7)
9.5 = X ^DD(6925,235,9.4) S Y(6925,235,8)=X,Y(6925,235,9)=X S X=$P(Y(6925,235,5),U,6),X=X S X=X="NR
",Y(6925,235,10)=X S X=Y(6925,235,11),Y(6925,235,12)=X
9.6 = X ^DD(6925,235,9.5) S Y(6925,235,13)=X S X=$P(Y(6925,235,5),U,6),X=X S X=X="MA",Y(6925,235,14
)=X S X=$P(Y(6925,235,1),U,8),Y(6925,235,15)=X S X=1
9.7 = X ^DD(6925,235,9.6) S Y(6925,235,16)=X S X=0
9.8 = X ^DD(6925,235,9.7) S X=$S(Y(6925,235,6):Y(6925,235,8),Y(6925,235,10):Y(6925,235,12),Y(6925,2
35,14):Y(6925,235,15),Y(6925,235,16):X) S Y=X,X=Y(6925,235,2),X=X
9.9 = X ^DD(6925,235,9.8) S X=$S(Y(6925,235,6):Y(6925,235,8),Y(6925,235,10):Y(6925,235,12),Y(6925,2
35,14):Y(6925,235,15),Y(6925,235,16):X) S Y=X,X=Y(6925,235,2),X=X
ALGORITHM: #234+$S(",MI,MM,"[(","_INTERNAL(#155)_","):#233,INTERNAL(#155)="NR":#263,INTERNAL(#155)="MA":#209.1
,1:0)
LAST EDITED: JAN 19, 1993
DESCRIPTION:
This computed field contains the total project score. The field will be completed by region staff.
6925,236 SIR RATING 15;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."3N.N) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter the Energy Savings to Investment Ratio, 1-99, 2 Decimal Digits
DESCRIPTION: This field contains Savings-to-investment ratio for Energy Projects. The field is used to determine
prioritization points if any that can be taken for NRM, Minor, and Minor Miscellaneous programs.
6925,236.1 ENERGY CONSERVATION PROJECT 15;17 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JAN 04, 1993
HELP-PROMPT: Enter 'Y' if Energy Conservation is at least 25% of Project Scope
DESCRIPTION: This set of codes (Yes or No) is to determine if Energy Conservation is at least 25% of the project
scope. This field is no longer used to determine the number of prioritization points (if any) that
will be awarded.
6925,236.2 APPROVED IN 5YR ENERGY PLAN 15;18 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JAN 04, 1993
HELP-PROMPT: Enter 'Y' if this project is in Approved 5-Yr Energy Plan
DESCRIPTION: This set of codes (Yes or No) indicated whether or not a program is listed on the facility's
approved 5 Year Energy Conservation Plan. The field is used to determine project eligibility for
Energy points on the NRM prioritization score.
6925,237 SITE ISSUES 29;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<1) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter comment on effect of site on this project, 1-90 characters
DESCRIPTION: This field contains a short (1-90 character) statement on the status of the site and any effect on
the project.
6925,238 HISTORICAL ISSUES 29;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<1) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter comment on effect of historical issues on this project, 1-90 characters
DESCRIPTION: This field contains a short (1-90 character) statement on the status of "Historical" issues in and
around the project and any resulting effect on the project.
6925,238.5 ENVIRONMENTAL ISSUES 32;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<1) X
LAST EDITED: JAN 29, 1993
HELP-PROMPT: Enter comment on effect of environmemtal issues on this project, 1-90 characters
DESCRIPTION: This field contains a short (1-90 character) statement on the status of "Environmental" issues in
and around the project and any resulting effect on the project. Reference form VAF 10-1193a "EMIS
Construction Program Environmental Analysis".
6925,239 SEISMIC ISSUES 30;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<1) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter comment on effect of seismic issues on this project, 1-90 characters
DESCRIPTION: This field contains a short (1-90 character) statement on the status of "Seismic" issues in and
around the project and any resulting effect on the project.
6925,240 HAZARDOUS MATERIALS ISSUES 30;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<1) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter effect of Asbestos and other hazardous materials on this project, 1-90 characters
DESCRIPTION: This field contains a short (1-90 character) statement on the status of "Asbestos or other
hazardous materials" issues in and around the project and any resulting effect on the project.
6925,241 TRANSPORT ISSUES 31;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<1) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter effect of vertical or horizantal transport systems on this project, 1-90 characters
DESCRIPTION: This field contains a short (1-90 character) statement on the status of "vertical or horizontal
transportation systems" issues in and around the project and any resulting effect on the project.
6925,242 PARKING ISSUES 31;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<1) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter effect of parking/roads issues on this project, 1-90 characters
DESCRIPTION: This field contains a short (1-90 character) statement on the status of "Parking and/or Roads"
issues in and around the project and any resulting effect on the project.
6925,243 *IMPACT ISSUES 32;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<1) X
LAST EDITED: JUN 23, 1995
HELP-PROMPT: Enter effect of Impact/temporary resource issues on this project, 1-90 characters
DESCRIPTION: This field is not used after installation of EN*7*23. New word processing field (IMPACT
JUSTIFICATION) contains this data. This field contained a short (1-90 character) statement on the
status of "Impact (temporary resources)" issues in and around the project and any resulting effect
on the project.
6925,244 CHIEF ENGINEER APPROVED 33;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUN 05, 1997
HELP-PROMPT: Enter 'Y' if you are Chief Engineer Approving Application for Submission
DESCRIPTION: This field contains a set of codes (Yes or No) indicating that the proposal has been prepared and
submitted in accordance with instructions, all supporting data that is required is forwarded, and
is practical from an engineering viewpoint. The field triggers fields 245, CHIEF ENGINEER NAME, and
246, CHIEF ENG SIGN DATE.
CROSS-REFERENCE: ^^TRIGGER^6925^245
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,33)):^(33),1:"") S X=$P(Y(1),U,2),X=X
S DIU=X K Y S X=DIV S X=DUZ X ^DD(6925,244,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),33)):^(33),1:""),DIV=X S $P(^(33),U,2)=DIV,DIH=6925,DIG=245 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,33)):^(33),1:"") S X=$P(Y(1),U,2),X=X
S DIU=X K Y S X=DIV S X=DUZ X ^DD(6925,244,1,1,2.4)
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),33)):^(33),1:""),DIV=X S $P(^(33),U,2)=DIV,DIH=6925,DIG=245 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S X=DUZ
DELETE VALUE)= S X=DUZ
FIELD)= #245
This trigger stores the internal number of the user editing Chief Engineer Approved field.
CROSS-REFERENCE: ^^TRIGGER^6925^246
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,33)):^(33),1:"") S X=$P(Y(1),U,3),X=X
S DIU=X K Y X ^DD(6925,244,1,2,1.1) X ^DD(6925,244,1,2,1.4)
1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),33)):^(33),1:""),DIV=X S $P(^(33),U,3)=DIV,DIH=6925,DIG=246 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,33)):^(33),1:"") S X=$P(Y(1),U,3),X=X
S DIU=X K Y X ^DD(6925,244,1,2,2.1) X ^DD(6925,244,1,2,2.4)
2.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),33)):^(33),1:""),DIV=X S $P(^(33),U,3)=DIV,DIH=6925,DIG=246 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NOW
DELETE VALUE)= NOW
FIELD)= #246
This trigger stores the date and time that the Chief Engineer or Designee approved the Project
Application for submission.
6925,245 CHIEF ENGINEER NAME 33;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter the internal number of User editing Chief Engineer Approved field
DESCRIPTION: This field is triggered by field 244, CHIEF ENGINEER APPROVED. The field contains a pointer to the
NEW PERSON FILE (#200).
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the CHIEF ENGINEER APPROVED field of the CONSTRUCTION PROJECT File
6925,246 CHIEF ENG SIGN DATE 33;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:3990000X) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: TYPE A DATE BETWEEN 1990 AND 2099
DESCRIPTION: This field is triggered by field 244, CHIEF ENGINEER APPROVED. The field contains the date and time
of the Chief, Engineering Service approval.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the CHIEF ENGINEER APPROVED field of the CONSTRUCTION PROJECT File
6925,247 VAMC DIRECTOR APPROVED 33;4 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUN 05, 1997
HELP-PROMPT: Enter 'Y' if you are VAMC Director (Designee) Approving Project Application
DESCRIPTION: This field contains a set of codes (Yes or No) indicating that the proposal has been prepared and
submitted in accordance with instructions, all supporting data that is required is forwarded, and
is practical from a facility viewpoint. The field triggers fields 248, VAMC DIRECTOR/ DESIGNEE
NAME, and 249, VAMC DIRECTOR SIGN DATE.
CROSS-REFERENCE: ^^TRIGGER^6925^248
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,33)):^(33),1:"") S X=$P(Y(1),U,5),X=X
S DIU=X K Y S X=DIV S X=DUZ X ^DD(6925,247,1,1,1.4)
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),33)):^(33),1:""),DIV=X S $P(^(33),U,5)=DIV,DIH=6925,DIG=248 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,33)):^(33),1:"") S X=$P(Y(1),U,5),X=X
S DIU=X K Y S X=DIV S X=DUZ X ^DD(6925,247,1,1,2.4)
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),33)):^(33),1:""),DIV=X S $P(^(33),U,5)=DIV,DIH=6925,DIG=248 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S X=DUZ
DELETE VALUE)= S X=DUZ
FIELD)= #248
This trigger stores the internal number of the user editing VAMC Director Approved field.
CROSS-REFERENCE: ^^TRIGGER^6925^249
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,33)):^(33),1:"") S X=$P(Y(1),U,6),X=X
S DIU=X K Y X ^DD(6925,247,1,2,1.1) X ^DD(6925,247,1,2,1.4)
1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
1.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),33)):^(33),1:""),DIV=X S $P(^(33),U,6)=DIV,DIH=6925,DIG=249 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,33)):^(33),1:"") S X=$P(Y(1),U,6),X=X
S DIU=X K Y X ^DD(6925,247,1,2,2.1) X ^DD(6925,247,1,2,2.4)
2.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
2.4)= S DIH=$S($D(^ENG("PROJ",DIV(0),33)):^(33),1:""),DIV=X S $P(^(33),U,6)=DIV,DIH=6925,DIG=249 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NOW
DELETE VALUE)= NOW
FIELD)= #249
This trigger stores the date and time that the VMS Director or Designee approves the Project
Application.
6925,248 VAMC DIRECTOR/DESIGNEE NAME 33;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Enter the internal number of User editing VAMC Director Approved field
DESCRIPTION: This field is triggered by field 247, VAMC DIRECTOR APPROVED. The field contains a pointer to the
NEW PERSON FILE (#200).
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the VAMC DIRECTOR APPROVED field of the CONSTRUCTION PROJECT File
6925,249 VAMC DIRECTOR SIGN DATE 33;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:3990000X) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: TYPE A DATE BETWEEN 1990 AND 2099
DESCRIPTION: This field is triggered by field 247, VAMC DIRECTOR APPROVED. The field contains the date and time
of the VAMC Director's approval.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the VAMC DIRECTOR APPROVED field of the CONSTRUCTION PROJECT File
6925,251 PROJ APPLICATION STATUS 49;4 SET
'0' FOR NOT EVALUATED;
'1' FOR RETURNED TO SITE;
'3' FOR REGION APPROVED;
'4' FOR VIABLE;
'5' FOR NON-VIABLE;
'6' FOR AUTHORIZED;
LAST EDITED: MAY 05, 1995
DESCRIPTION: Set of codes for regional status of project application. Updated by project planning bi-directional
communication software.
6925,261 TOTAL FACTORED SQUARE FOOTAGE 18;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 04, 1993
HELP-PROMPT: Enter Regional Office Approved Total Factored Square Footage
DESCRIPTION: This field contains the Total Factored Square Footage as derived from the National Survey of
Building Square Footage for NRM Funding Distribution. The field is used to determine the factored
square footage prioritization points for NRM project applications.
6925,262.1 NRM FACILITY PRIORITY POINTS ; COMPUTED
MUMPS CODE: X ^DD(6925,262.1,9.3) S Y(6925,262.1,5)=X S X=1,Y(6925,262.1,6)=X S X=0,X=$S(Y(6925,262.1,3):Y(6925
,262.1,5),Y(6925,262.1,6):X)
9.2 = S Y(6925,262.1,1)=$S($D(^ENG("PROJ",D0,15)):^(15),1:"") S X=$P(Y(6925,262.1,1),U,9)>0,Y(6925,
262.1,2)=X S X=$P(Y(6925,262.1,1),U,9)<16
9.3 = X ^DD(6925,262.1,9.2) S Y=X,X=Y(6925,262.1,2),X=X&Y,Y(6925,262.1,3)=X S X=32,Y(6925,262.1,4)=
X S X=$P(Y(6925,262.1,1),U,9)*2,Y=X,X=Y(6925,262.1,4),X=X-Y
ALGORITHM: $S(#209>0&(#209<16):32-(#209*2),1:0)
DESCRIPTION: This computed field contains the NRM priority points based on the assigned facility priority. 30
points assigned to the number one priority, 28 to the number two priority, etc., in decreasing
increments of 2 points.
6925,262.2 NRM FACTORED SQ FOOTAGE POINTS ; COMPUTED
MUMPS CODE: X ^DD(6925,262.2,9.4) S X=$S(Y(6925,262.2,2):Y(6925,262.2,3),Y(6925,262.2,4):Y(6925,262.2,5),Y(6925
,262.2,6):Y(6925,262.2,7),Y(6925,262.2,8):Y(6925,262.2,9),Y(6925,262.2,10):X)
9.2 = S Y(6925,262.2,1)=$S($D(^ENG("PROJ",D0,18)):^(18),1:"") S X=$P(Y(6925,262.2,1),U,1)>2000000,Y
(6925,262.2,2)=X S X=8,Y(6925,262.2,3)=X S X=$P(Y(6925,262.2,1),U,1)
9.3 = X ^DD(6925,262.2,9.2) S X=X>999999,Y(6925,262.2,4)=X S X=6,Y(6925,262.2,5)=X S X=$P(Y(6925,26
2.2,1),U,1)>499999,Y(6925,262.2,6)=X S X=4,Y(6925,262.2,7)=X
9.4 = X ^DD(6925,262.2,9.3) S X=$P(Y(6925,262.2,1),U,1)>0,Y(6925,262.2,8)=X S X=2,Y(6925,262.2,9)=X
S X=1,Y(6925,262.2,10)=X S X=0
ALGORITHM: $S(#261>2000000:8,#261>999999:6,#261>499999:4,#261>0:2,1:0)
DESCRIPTION: This computed field contains the NRM priority points based on the Total Factored Square Footage
(field #262). Total Square Footage > 2,000,000: 8 pts., 1,000,000-2,000,000:6 pts.,
500,000-999,999:4 pts., and <500,000: 2 pts.
6925,262.3 NRM CATEGORY POINTS ; COMPUTED
MUMPS CODE: X ^DD(6925,262.3,9.2) S Y(6925,262.3,101)=$S($D(^OFM(7336.8,D0,1)):^(1),1:"") S X=$P(Y(6925,262.3,1
01),U,5) S D0=Y(6925,262.3,80) S X=$J(X,0,0)
9.2 = S Y(6925,262.3,80)=$S($D(D0):D0,1:""),Y(6925,262.3,1)=$S($D(^ENG("PROJ",D0,52)):^(52),1:""),D
0=$P(Y(6925,262.3,1),U,1) S:'$D(^OFM(7336.8,+D0,0)) D0=-1
9.3 = X ^DD(6925,262.3,9.2) S Y(6925,262.3,2)=X S X=0,Y(6925,262.3,3)=X S X=1,Y(6925,262.3,4)=X,D0=
$P(Y(6925,262.3,5),U,1) S:'$D(^OFM(7336.8,+D0,0)) D0=-1
9.4 = X ^DD(6925,262.3,9.3) S Y(6925,262.3,101)=$S($D(^OFM(7336.8,D0,1)):^(1),1:"") S X=$P(Y(6925,2
62.3,101),U,5)
9.5 = X ^DD(6925,262.3,9.4) S D0=$P(Y(6925,262.3,6),U,1) S:'$D(^OFM(7336.8,+D0,0)) D0=-1 S Y(6925,2
62.3,101)=$S($D(^OFM(7336.8,D0,1)):^(1),1:"") S X=$P(Y(6925,262.3,101),U,5)
9.6 = X ^DD(6925,262.3,9.5) S Y(6925,262.3,102)=X S X=1,Y(6925,262.3,103)=X S X=0
ALGORITHM: #158.1:#12 (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: JUN 06, 1994
DESCRIPTION:
This computed field contains the NRM priority points based on the project category.
6925,262.4 NRM CITATION POINTS ; COMPUTED
MUMPS CODE: D XF^ENPL1
9.2 = S Y(6925,262.4,80)=$S($D(D0):D0,1:""),Y(6925,262.4,81)=$S($D(D1):D1,1:"") S Y(6925,262.4,180)
=$S($D(D0):D0,1:""),Y(6925,262.4,181)=$S($D(D1):D1,1:"")
9.3 = X ^DD(6925,262.4,9.2) S Y(6925,262.4,102)=""
9.4 = X ^DD(6925,262.4,9.3) X "F D1=0:0 S D1=$N(^ENG(""PROJ"",D0,21,D1)) Q:D1'>0 S:$S($D(^(D1,0)):
$P(^(0),U,1),1:"""")'?."" "" Y(6925,262.4,102)=Y(6925,262.4,102)+1" S D(1)=D1
9.5 = X ^DD(6925,262.4,9.4) S X=+Y(6925,262.4,102)'>0,Y(6925,262.4,103)=X S X=0,Y(6925,262.4,104)=X
,Y(6925,262.4,105)=X
9.6 = X ^DD(6925,262.4,9.5) S Y(6925,262.4,203)=$C(59)_$S($D(^DD(6925.0164,8,0)):$P(^(0),U,3),1:"")
,Y(6925,262.4,202)=""
9.7 = X ^DD(6925,262.4,9.6) X "F D1=0:0 S D1=$N(^ENG(""PROJ"",D0,21,D1)) Q:D1'>0 S Y=$S($D(^(D1,0)
):$P(^(0),U,8),1:"""") S:Y'?."" ""&(Y(6925,262.4,202)'>Y!'$L(Y(6925,262.4,202))) Y(6925,262.4,202)=
Y" S D(1)=D1
9.8 = X ^DD(6925,262.4,9.7) S X=Y(6925,262.4,202) S X=$P($P(Y(6925,262.4,203),$C(59)_X_":",2),$C(59
),1)="YES",Y(6925,262.4,204)=X S X=12,Y(6925,262.4,205)=X S X=1
ALGORITHM: D XF^ENPL1
LAST EDITED: JUL 07, 1995
DESCRIPTION: This computed field contains the NRM priority points based on Citations. 12 points will be assigned
to projects that correct one or more citations given by JCAHO, RSFPE, CAP, AALAC, OSHA, EPA, State,
or other citing authorities. Citation must be within last 6 years and correction of citation must
be greater than 50% of project scope. Citations must be documented, and attached to take credit.
Information to be provided as documentation includes: Type of citation (F&S, AALAC, etc); Date of
Citation; Citing Authority (JCAHO, RSFPE, etc.); Survey Official's Name.
6925,262.5 NRM ENERGY POINTS ; COMPUTED
MUMPS CODE: X ^DD(6925,262.5,9.3) S X=$S(Y(6925,262.5,2):Y(6925,262.5,3),Y(6925,262.5,5):Y(6925,262.5,6),Y(6925
,262.5,7):X) S X=$J(X,0,0)
9.2 = S Y(6925,262.5,1)=$S($D(^ENG("PROJ",D0,15)):^(15),1:"") S X=$P(Y(6925,262.5,1),U,11)'>1,Y(692
5,262.5,2)=X S X=0,Y(6925,262.5,3)=X,Y(6925,262.5,4)=X
9.3 = X ^DD(6925,262.5,9.2) S X=$P(Y(6925,262.5,1),U,18),X=X S X=X'="Y",Y(6925,262.5,5)=X S X=0,Y(6
925,262.5,6)=X S X=1,Y(6925,262.5,7)=X S X=5
9.4 = X ^DD(6925,262.5,9.3) S Y(6925,262.5,7)=X S X=0,Y(6925,262.5,8)=X S X=1,Y(6925,262.5,9)=X S X
=5
ALGORITHM: $S(#236'>1:0,INTERNAL(#236.2)'="Y":0,1:5) (ALWAYS 0 DECIMAL DIGITS)
DESCRIPTION: This computed field contains the NRM priority points based on Energy. 5 points will be assigned to
projects that appear on an approved 5-Year Energy Conservation Plan and have a
Savings-to-Investment Rating (SIR) greater than 1.0. The SIR rating (VAF Form 10-5561) must be
provided to take credit.
6925,262.6 NRM CONSTRUCTION COST ; COMPUTED
MUMPS CODE: X $P(^DD(6925,222,0),U,5,99) S Y(6925,262.6,1)=X S Y(6925,262.6,2)=$S($D(^ENG("PROJ",D0,19)):^(19),
1:"") S X=Y(6925,262.6,1)-$P(Y(6925,262.6,2),U,6) S X=$J(X,0,0)
ALGORITHM: #222-#220.1 (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: APR 26, 1993
DESCRIPTION: This computed field contains the Total NRM Construction Costs (Total Project Cost - Technical
Services Costs).
6925,262.7 NRM BONUS POINTS ; COMPUTED
MUMPS CODE: X ^DD(6925,262.7,9.7) S X=$P(Y(6925,262.7,101),U,2),X=$S(Y(6925,262.7,2):Y(6925,262.7,12),Y(6925,26
2.7,13):X) S D0=Y(6925,262.7,80) S X=$J(X,0,0)
9.2 = S Y(6925,262.7,80)=$S($D(D0):D0,1:""),Y(6925,262.7,4)=$S($D(^ENG("PROJ",D0,15)):^(15),1:""),Y
(6925,262.7,1)=$S($D(^(52)):^(52),1:"")
9.3 = X ^DD(6925,262.7,9.2) S X=$S('$D(^OFM(7336.8,+$P(Y(6925,262.7,1),U,9),0)):"",1:$P(^(0),U,1))[
"ENERGY",Y(6925,262.7,2)=X,Y(6925,262.7,3)=X S X=$P(Y(6925,262.7,4),U,11)
9.4 = X ^DD(6925,262.7,9.3) S X=X>3.99,Y(6925,262.7,5)=X S X=5,Y(6925,262.7,6)=X S X=$P(Y(6925,262.
7,4),U,11)>1.99,Y(6925,262.7,7)=X S X=4,Y(6925,262.7,8)=X
9.5 = X ^DD(6925,262.7,9.4) S X=$P(Y(6925,262.7,4),U,11)>.99,Y(6925,262.7,9)=X S X=3,Y(6925,262.7,1
0)=X S X=1,Y(6925,262.7,11)=X S X=0
9.6 = X ^DD(6925,262.7,9.5) S X=$S(Y(6925,262.7,5):Y(6925,262.7,6),Y(6925,262.7,7):Y(6925,262.7,8),
Y(6925,262.7,9):Y(6925,262.7,10),Y(6925,262.7,11):X)
9.7 = X ^DD(6925,262.7,9.6) S Y(6925,262.7,12)=X S X=1,Y(6925,262.7,13)=X,D0=$P(Y(6925,262.7,1),U,9
) S:'$D(^OFM(7336.8,+D0,0)) D0=-1 S Y(6925,262.7,101)=$S($D(^OFM(7336.8,D0,2)):^(2),1:"")
9.8 = X ^DD(6925,262.7,9.7) S Y(6925,262.7,15)=X S X=4,Y(6925,262.7,16)=X S X=$P(Y(6925,262.7,4),U,
20)<70,Y(6925,262.7,17)=X S X=3,Y(6925,262.7,18)=X
9.9 = X ^DD(6925,262.7,9.8) S X=$P(Y(6925,262.7,4),U,20)<80,Y(6925,262.7,19)=X S X=2,Y(6925,262.7,2
0)=X S X=$P(Y(6925,262.7,4),U,20)<90,Y(6925,262.7,21)=X S X=1
10 = X ^DD(6925,262.7,9.9) S Y(6925,262.7,22)=X S X=1,Y(6925,262.7,23)=X S X=0
10.1 = X ^DD(6925,262.7,10) S X=$S(Y(6925,262.7,13):Y(6925,262.7,14),Y(6925,262.7,15):Y(6925,262.7,
16),Y(6925,262.7,17):Y(6925,262.7,18),Y(6925,262.7,19):Y(6925,262.7,20),Y(6925,262.7,21):Y(6925,262
.7,22),Y(6925,262.7,23):X) S Y=X,X=Y(6925,262.7,12),X=X
10.2 = X ^DD(6925,262.7,10.1) S X=X+Y,Y(6925,262.7,24)=X S X=1,Y(6925,262.7,25)=X,D0=$P(Y(6925,262.
7,1),U,9) S:'$D(^OFM(7336.8,+D0,0)) D0=-1
10.3 = X ^DD(6925,262.7,10.2) S Y(6925,262.7,101)=$S($D(^OFM(7336.8,D0,2)):^(2),1:"") S X=$P(Y(6925
,262.7,101),U,2)
ALGORITHM: $S(#158.8["ENERGY":$S(#236>3.99:5,#236>1.99:4,#236>.99:3,1:0),1:#158.8:#17) (ALWAYS 0 DECIMAL DIGI
TS)
LAST EDITED: MAY 26, 1995
DESCRIPTION:
This computed field contains the NRM priority points based on the bonus category.
SOURCE OF DATA: X ^DD(6925,262.7,9.9) S Y(6925,262.7,22)=X S X=1,Y(6925,262.7,23)=X S X=0
6925,263 NRM VAMC SCORE ; COMPUTED
MUMPS CODE: X ^DD(6925,263,9.3) S X=X+Y(6925,263,4)+Y(6925,263,5) S X=$J(X,0,0)
9.2 = X $P(^DD(6925,262.1,0),U,5,99) S Y(6925,263,1)=X X $P(^DD(6925,262.2,0),U,5,99) S Y(6925,263,
2)=X X $P(^DD(6925,262.3,0),U,5,99) S Y(6925,263,3)=X
9.3 = X ^DD(6925,263,9.2) X $P(^DD(6925,262.4,0),U,5,99) S Y(6925,263,4)=X X $P(^DD(6925,262.7,0),U
,5,99) S Y(6925,263,5)=X S X=Y(6925,263,1)+Y(6925,263,2)+Y(6925,263,3)
ALGORITHM: #262.1+#262.2+#262.3+#262.4+#262.7 (ALWAYS 0 DECIMAL DIGITS)
DESCRIPTION:
This computed field contains the Total NRM Facility Prioritization Score.
6925,264 SPACE USE FOR PRIORITIZATION 18;2 POINTER TO OFM SPACE CLASSIFICATION FILE (#7336.3)
INPUT TRANSFORM: S DIC("S")="I $D(ENDA),$P(^(0),U,2)[$P($G(^ENG(""PROJ"",ENDA,0)),U,6)" D ^DIC K DIC S DIC=DIE,X=+Y
K:Y<0 X
LAST EDITED: JAN 05, 1993
HELP-PROMPT: For Minor and Minor Misc projects select space category for which 100% renovation/new construction
of space
DESCRIPTION: This field is a pointer to the OFM Space Classification File (#7336.3) The field designates space
classification which determines prioritization points for Minor and Minor Misc. programs. Choices
are screened based on program type.
SCREEN: S DIC("S")="I $D(ENDA),$P(^(0),U,2)[$P($G(^ENG(""PROJ"",ENDA,0)),U,6)"
EXPLANATION: Screen restricts selection to Space Categories applicable for program.
6925,265 SEISMIC AREA 18;3 SET
'1' FOR CAT I;
'2' FOR CAT II;
'3' FOR CAT III;
LAST EDITED: JAN 05, 1993
HELP-PROMPT: Enter Seismic Area Category where project location
DESCRIPTION: This field is set of codes (1,2,or 3) for Seismic Category. The field is used to determine
prioritization points for NRM and Minor/Minor Misc. submissions.
6925,277 LONG DESCRIPTION 46;0 WORD-PROCESSING #6925.0277
DESCRIPTION: This field is for a lengthy project description (more than 3 lines). The field will be printed at
the end of the project application.
LAST EDITED: JAN 25, 1993
HELP-PROMPT: Enter a detailed project description.
6925,278 LONG JUSTIFICATION 47;0 WORD-PROCESSING #6925.0278
DESCRIPTION: This field is for a lengthy project justification(more than 3 lines) The field will be printed at
the end of the project application.
LAST EDITED: JAN 25, 1993
HELP-PROMPT: Enter a detailed project justification.
6925,279 DATE TRANSMIT IN 5YR PLAN 33;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 19, 1993
HELP-PROMPT: Enter date the project was electronically transmitted for 5-Yr Plan
DESCRIPTION: During the set up of the MailMan message, the date is set into this field. The value should not be
edited.
6925,279.1 TRANSMITTER 5YR PLAN 33;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 19, 1993
HELP-PROMPT: Enter the name of the person sending this project as part of 5-Yr Plan
DESCRIPTION: During the set up of the MailMan message, the user's DUZ value is set into this field. The value
should not be edited.
6925,279.2 DATE TRANSMIT PROJ APPLICATION 33;9 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 19, 1993
HELP-PROMPT: Enter date of electronic transmission of project application
DESCRIPTION: During the set up of the MailMan message, the date is set into this field. The value should not be
edited.
6925,279.3 TRANSMITTER PROJ APPLICATION 33;10 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 19, 1993
HELP-PROMPT: Enter name of person electronically transmitting project application.
DESCRIPTION: During the set up of the MailMan message, the user's DUZ is set into this field. The value should
not be edited.
6925,282 IMPACT JUSTIFICATION 54;0 WORD-PROCESSING #6925.0282
LAST EDITED: MAY 08, 1995
HELP-PROMPT: Enter justification for impact costs.
6925,285 LEASE TYPE 55;1 SET
'NN' FOR NEW LEASE/NEW PRESENCE;
'NE' FOR NEW LEASE/EXISTING PRESENCE;
'SU' FOR SUCCEEDING;
'EX' FOR EXPEDITED;
'EU' FOR ENHANCED USE;
LAST EDITED: JUN 21, 1995
DESCRIPTION: This field contains the type of lease. New Lease/New Presence is a first time lease where no
presence exists and there is no existing lease. New Lease/Existing Presence is a lease where there
is a change in location, increase or decrease in space, or some change other than a re-negotiation
of cost and all renewal options have expired. A Succeeding lease is a lease where there is no
change other than cost and all lease renewal options have expired. An Expedited lease is a lease,
fully funded by the facility, that meets the terms of the Expedited Lease Directive. An Enhanced
Use lease is a lease where costs are shared between the VA and an outside source such as state,
city, county government or private enterprise.
6925,286 FY AWARD LEASE 55;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2099)!(X<1970)!(X?.E1"."1N.N) X
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Type a Number between 1970 and 2099, 0 Decimal Digits
DESCRIPTION: This field contains the fiscal year the lease cost and/or build-out funds are obligated against the
lease contract.
6925,287 FY RENT STARTS 55;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2099)!(X<1970)!(X?.E1"."1N.N) X
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Type a Number between 1970 and 2099, 0 Decimal Digits
DESCRIPTION: This field contains the fiscal year that monthly lease payments commence. This may differ from the
award date due to build-out or a negotiated delay of occupancy.
CROSS-REFERENCE: 6925^L
1)= S ^ENG("PROJ","L",$E(X,1,30),DA)=""
2)= K ^ENG("PROJ","L",$E(X,1,30),DA)
This index is used for sorting projects by fiscal year that rent starts.
6925,288 ESTIMATED LUMP SUM COST 55;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X\1000'=(X/1000) S X=X+999\1000*1000 D EN^DDIO
L("Value was rounded up to "_X,"","!?4")
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION: This field contains the estimated lump sum cost paid up-front for build-out or modifications to the
property made at the request of and paid for by the VA.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,289 ESTIMATED ANNUAL RENT COST 55;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X I $D(X),X\1000'=(X/1000) S X=X+999\1000*1000 D EN^DDIO
L("Value was rounded up to "_X,"","!?4")
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION: This field contains the total of the annual lease costs based on the 12 month period from the start
of the lease.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6925,290 PROPOSED LEASE TERM 55;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
This field contains the term of the lease in years, including all renewal options.
6925,291 RENTABLE SQ FT 55;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: This field contains the total net square feet to be used by the VA occupants. Include any waiting
space or common areas. If waiting space is shared by tenants other than the VA, estimate and
apportion the space. Do not include corridors, equipment rooms, telephone closets, etc. in the
rentable square feet.
6925,292 EXISTING SPACE ANNUAL RENT 55;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION: This field contains the total annual lease costs based on the last 12 month period of the lease for
the existing presence of a Succeeding or New Lease/Existing Presence type lease.
6925,293 EXISTING SPACE RENTABLE SQ FT 55;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 05, 1995
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION: This field contains the rentable square feet for the existing presence of a Succeeding or New
Lease/Existing Presence type lease. Rentable square feet is the total net square footage used by VA
occupants, including any waiting space or common areas. If waiting space is shared by tenants other
than the VA, estimate and apportion the space. Do not include corridors, equipment rooms, telephone
closets, etc. in the rentable square feet.
6925,301 COMMUNICATION LOG 80;0 WORD-PROCESSING #6925.0301 (NOWRAP)
DESCRIPTION: This field should not be edited by a user. It contains bi-directional communication activity
information for a project. Information will be appended to this word-processing field when projects
are transmitted to higher approval authorities or when electronic communications from higher
approval authorities are received for a project.
LAST EDITED: FEB 14, 1994
FILES POINTED TO FIELDS
CONSTRUCTION PROJECT (#6925) DOMINOS:DOMINO PROJECT (#.01)
DIVISION (#6910.3) OLD DIVISION (#159.15)
DIVISION (#176)
ENG BUILDING (#6928.3) BUILDING NUMBER:BUILDING NUMBER (#.01)
INSTITUTION (#4) MEDICAL CENTER (#3)
OLD MEDICAL CENTER (#15.3)
NEW PERSON (#200) CHIEF ENGINEER NAME (#245)
VAMC DIRECTOR/DESIGNEE NAME (#248)
TRANSMITTER 5YR PLAN (#279.1)
TRANSMITTER PROJ APPLICATION (#279.3)
OFM BUDGET CATEGORY (#7336.9) BUDGET CATEGORY (#158.2)
OLD BUDGET CATEGORY (#159.3)
OFM H089 CHAPTERS (#7336.6) H089:H089 CHAPTER NAME (#.01)
OFM PROJ CATEGORY (#7336.8) PROJECT CATEGORY (#158.1)
BONUS CATEGORY (#158.8)
OLD PROJECT CATEGORY (#159.2)
OLD BONUS CATEGORY (#159.9)
OFM SPACE CLASSIFICATION
(#7336.3) SPACE USE FOR PRIORITIZATION (#264)
PROJECT EPA CATEGORY (#6925.3) EPA REPORTING CATEGORY (#158.7)
OLD EPA REPORTING CATEGORY (#159.8)
PROJECT STATUS (#6925.2) STATUS (#6)
OLD STATUS (#15.8)
REGULATORY AGENCY (#7335.7) CITATIONS:CITING AUTHORITY (#3)
INPUT TEMPLATE(S):
ENPLI001 APR 28, 1997@16:02 USER #0
Input for VAF 10-1193 Project Application called by Routine ENPL2.
ENPLI002 APR 03, 1997@16:21 USER #0
Input template for 5-Yr Plan, called from routine ENPL4
ENPLI003 JAN 27, 1993@16:56 USER #0
Input template for VAF 10-1193a (Environmental Analysis), called
from routine ENPL6.
ENPRI001 SEP 12, 1997@14:05 USER #0
ENPRLOCAL APR 24, 1997@17:18 USER #0
PRINT TEMPLATE(S):
ENPLP001 JUL 13, 1993@13:10 USER #4 @
Print template for VAF 10-1193a Rev. FEB 1979.
ENPLP003 JUN 23, 1995@13:54 USER #3 @
Print template for NRM Prioritization Methodology Scoring Sheet.
ENPLP005 SEP 01, 1994@14:15 USER #0 ^ENPLPC @
Sign-off Summary for Project Application.
ENPLP006 JUN 23, 1995@11:53 USER #3 ^ENPLPB @
This template prints page 1 of Project Application.
ENPLP008 JUN 23, 1995@14:21 USER #3 ^ENPLPA @
This template prints page 2 of Project Application for NRM projects.
ENPLP009 APR 28, 1997@16:05 USER #0 ^ENPLPD @
This template prints page 2 of Project Application for Major, Minor and
Minor Miscellaneous projects.
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):
ENPR AE APR 24, 1997@17:10 USER #0
ENPRHD DD #6925
ENPRAE DD #6925
ENPR ALL APR 03, 1997@13:44 USER #0
ENPRHD DD #6925
ENPRBASE DD #6925
ENPRNHCU DD #6925
ENPRNHCUCONV DD #6925.0166
ENPRMS1 DD #6925
ENPRMS2 DD #6925
ENPRAE DD #6925
ENPRCO DD #6925
ENPRCH DD #6925
ENPR CHG APR 24, 1997@17:14 USER #0
ENPRHD DD #6925
ENPRCH DD #6925
ENPR CO APR 24, 1997@17:12 USER #0
ENPRHD DD #6925
ENPRCO DD #6925
ENPR MS APR 02, 1997@17:01 USER #0
ENPRHD DD #6925
ENPRMS1 DD #6925
ENPRMS2 DD #6925
ENPR PRELIM APR 24, 1997@16:54 USER #0
ENPRHD DD #6925
ENPRBASE DD #6925
ENPRNHCU DD #6925
ENPRNHCUCONV DD #6925.0166