Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^ENG("PROJ"

Package: Engineering

Global: ^ENG("PROJ"


Information

FileMan FileNo FileMan Filename Package
6925 CONSTRUCTION PROJECT Engineering

Description

Accessed By FileMan Db Calls, Total: 19

Package Total Routines
Engineering 19 ENPL5A    ENPL5B    ENPL5C    ENPL9    ENPLS    ENPLV4    ENPLV5    ENPLV6
ENPLV7    ENPLX1    ENPLX2    ENPLX3    ENPLX4    ENPROJF    ENPRP1    ENPRPAD
ENPRUTL    ENXHIPR    ENXHIPS    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Engineering 2 CONSTRUCTION PROJECT(#6925)[#6925.0225(.01)]    ENG BUILDING(#6928.3)[20]    

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
Engineering 10 CONSTRUCTION PROJECT(#6925)[#6925.0225(.01)]    DIVISION(#6910.3)[159.15, 176]    PROJECT STATUS(#6925.2)[6, 15.8]    PROJECT EPA CATEGORY(#6925.3)[158.7, 159.8]    ENG BUILDING(#6928.3)[#6925.0177(.01)]    REGULATORY AGENCY(#7335.7)[#6925.0164(3)]    OFM SPACE CLASSIFICATION(#7336.3)[264]    OFM H089 CHAPTERS(#7336.6)[#6925.03(.01)]    OFM PROJ CATEGORY(#7336.8)[158.1, 158.8, 159.2, 159.9]    OFM BUDGET CATEGORY(#7336.9)[158.2, 159.3]    
Kernel 2 INSTITUTION(#4)[3, 15.3]    NEW PERSON(#200)[245, 248, 279.1, 279.3]    

Fields, Total: 409

Field # Name Loc Type Details
.01 PROJECT NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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)
.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.
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
2 PROJECT TITLE 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • 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)
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.
3 MEDICAL CENTER 0;4 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • 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.
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
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
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.
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.
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.
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(6925,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.
6 STATUS 1;3 POINTER TO PROJECT STATUS FILE (#6925.2)
************************REQUIRED FIELD************************
PROJECT STATUS(#6925.2)

  • 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
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.
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.
8.5 GROSS SQUARE FEET 1;10 NUMBER

  • 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.
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
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
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
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
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
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
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
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
15.3 OLD MEDICAL CENTER 60;4 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  DEC 23, 1992
  • DESCRIPTION:  
    Value previously reported via electronic 10-0051.
    UNEDITABLE
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
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
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
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
15.8 OLD STATUS 60;13 POINTER TO PROJECT STATUS FILE (#6925.2) PROJECT STATUS(#6925.2)

  • LAST EDITED:  DEC 23, 1992
  • DESCRIPTION:  
    Value previously reported via electronic 10-0051.
    UNEDITABLE
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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.
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 ^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,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 ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= "100"
    DELETE VALUE)= @
    FIELD)= #13
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.
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.
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.
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.
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.
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
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.
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 ^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,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 ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= "100"
    DELETE VALUE)= @
    FIELD)= #12
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.
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 ^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,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 ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= "100"
    DELETE VALUE)= @
    FIELD)= #10
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.
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.
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.
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.
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.
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.
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.
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
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 ^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,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 ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= "100"
    DELETE VALUE)= @
    FIELD)= #11
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.
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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,76,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.
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."
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."
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."
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."
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.
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).
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
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
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
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
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
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
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
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
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.
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
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
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
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
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
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
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
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
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
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."
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."
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."
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."
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."
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.
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.
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).
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.
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.
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.
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
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
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
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
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
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
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
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
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."
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."
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."
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."
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.
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(6925,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.
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.
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).
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
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
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
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
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
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.
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 characters.")
  • 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
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
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
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
153 *SCOPE REDUCED 8;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 22, 1992
  • DESCRIPTION:  
    No longer used.
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.
155 PROGRAM 0;6 SET
************************REQUIRED FIELD************************
  • '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.
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.
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.
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.
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.
158 FACILITY TYPE 52;6 SET
************************REQUIRED FIELD************************
  • '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.
158.1 PROJECT CATEGORY 52;1 POINTER TO OFM PROJ CATEGORY FILE (#7336.8)
************************REQUIRED FIELD************************
OFM PROJ CATEGORY(#7336.8)

  • 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 Facility Type.
158.2 BUDGET CATEGORY 52;2 POINTER TO OFM BUDGET CATEGORY FILE (#7336.9)
************************REQUIRED FIELD************************
OFM BUDGET CATEGORY(#7336.9)

  • 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 Facility Type.
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.
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.
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.
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.
158.7 EPA REPORTING CATEGORY 52;8 POINTER TO PROJECT EPA CATEGORY FILE (#6925.3) PROJECT EPA CATEGORY(#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
158.8 BONUS CATEGORY 52;9 POINTER TO OFM PROJ CATEGORY FILE (#7336.8) OFM PROJ CATEGORY(#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
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.
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
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
159.15 OLD DIVISION 70;1 POINTER TO DIVISION FILE (#6910.3) DIVISION(#6910.3)

  • LAST EDITED:  MAR 13, 1997
  • DESCRIPTION:  
    Value previously reported via electronic 10-0051.
159.2 OLD PROJECT CATEGORY 68;1 POINTER TO OFM PROJ CATEGORY FILE (#7336.8) OFM PROJ CATEGORY(#7336.8)

  • LAST EDITED:  FEB 08, 1993
  • DESCRIPTION:  
    Value previously reported via electronic 10-0051.
    UNEDITABLE
159.3 OLD BUDGET CATEGORY 68;2 POINTER TO OFM BUDGET CATEGORY FILE (#7336.9) OFM BUDGET CATEGORY(#7336.9)

  • LAST EDITED:  FEB 08, 1993
  • DESCRIPTION:  
    Value previously reported via electronic 10-0051.
    UNEDITABLE
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
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
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
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.
159.8 OLD EPA REPORTING CATEGORY 68;8 POINTER TO PROJECT EPA CATEGORY FILE (#6925.3) PROJECT EPA CATEGORY(#6925.3)

  • LAST EDITED:  NOV 24, 1995
  • DESCRIPTION:  
    Value previously reported via electronic 10-0051.
159.9 OLD BONUS CATEGORY 68;9 POINTER TO OFM PROJ CATEGORY FILE (#7336.8) OFM PROJ CATEGORY(#7336.8)

  • LAST EDITED:  OCT 18, 1995
  • DESCRIPTION:  
    Value previously reported via electronic 10-0051.
    UNEDITABLE
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.
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.
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.
164 CITATIONS 21;0 Multiple #6925.0164 6925.0164

  • DESCRIPTION:  
    Multiple field used to enter citations.
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.
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.
166 NHCU CONVERSION 57;0 SET Multiple #6925.0166 6925.0166
176 DIVISION 15;1 POINTER TO DIVISION FILE (#6910.3) DIVISION(#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.
177 BUILDING NUMBER 34;0 POINTER Multiple #6925.0177 6925.0177

  • LAST EDITED:  FEB 24, 1993
  • DESCRIPTION:  
    Multiple field used to identify buildings affected by project.
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.
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)
180 H089 22;0 POINTER Multiple #6925.03 6925.03

  • DESCRIPTION:  
    Multiply entered pointer to the OFM H089 Chapters file (7336.6) for entry of H089 chapter codes.
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.
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
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
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.
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.
186 OLD NHCU CONVERSION 58;0 SET Multiple #6925.0186 6925.0186
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)
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.
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
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.
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
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 $1000","","!?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
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
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
190.6 EQUIPMENT OVER $250K 25;0 Multiple #6925.04 6925.04

  • LAST EDITED:  FEB 14, 1994
  • DESCRIPTION:  Multiply entered field for equipment over $250,000.
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.
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.
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.
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
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)
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)
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)
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
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
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)
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)
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)
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)
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)
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)
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)
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)
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)
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.
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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.
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.
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.
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
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("PROJ",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)
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^DDIOL("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
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^DDIOL("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
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.
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.
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.
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.
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.
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,218,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(6925,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(6925,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.
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(6925,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,218.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,218.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.
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.
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.
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.
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)
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.
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.
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.
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.
225 DOMINOS 20;0 POINTER Multiple #6925.0225 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.
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.
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.
233.1 MI/MM CITATION POINTS COMPUTED

  • MUMPS CODE:  D XA^ENPL1
  • ALGORITHM:  D XA^ENPL1
233.2 MI/MM SPACE POINTS COMPUTED

  • MUMPS CODE:  D XB^ENPL1
  • ALGORITHM:  D XB^ENPL1
233.3 MI/MM ENERGY POINTS COMPUTED

  • MUMPS CODE:  D XC^ENPL1
  • ALGORITHM:  D XC^ENPL1
233.4 MI/MM CATEGORY POINTS COMPUTED

  • MUMPS CODE:  D XD^ENPL1
  • ALGORITHM:  D XD^ENPL1
233.5 MI/MM VAMC PRIORITY POINTS COMPUTED

  • MUMPS CODE:  D XE^ENPL1
  • ALGORITHM:  D XE^ENPL1
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.
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(6925,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,235,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,235,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.
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.
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.
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.
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.
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.
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".
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.
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.
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.
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.
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.
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.
245 CHIEF ENGINEER NAME 33;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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
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
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.
248 VAMC DIRECTOR/DESIGNEE NAME 33;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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
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
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.
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.
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.
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,262.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.
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,101),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:""),D0=$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,262.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,262.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.
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.
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(6925,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(6925,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.
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).
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,262.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,10)=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,20)=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 DIGITS)
  • 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
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.
264 SPACE USE FOR PRIORITIZATION 18;2 POINTER TO OFM SPACE CLASSIFICATION FILE (#7336.3) OFM SPACE CLASSIFICATION(#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.
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.
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.
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.
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.
279.1 TRANSMITTER 5YR PLAN 33;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
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.
279.3 TRANSMITTER PROJ APPLICATION 33;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
282 IMPACT JUSTIFICATION 54;0 WORD-PROCESSING #6925.0282

  • LAST EDITED:  MAY 08, 1995
  • HELP-PROMPT:  Enter justification for impact costs.
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.
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.
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.
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^DDIOL("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
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^DDIOL("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
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.
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.
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.
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.
301 COMMUNICATION LOG 80;0 WORD-PROCESSING #6925.0301

  • 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
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All