Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ACGS

Package: Contracts and Grants

Global: ^ACGS


Information

FileMan FileNo FileMan Filename Package
9002330 CIS CONTRACTS AND GRANTS Contracts and Grants

Description

Directly Accessed By Routines, Total: 58

Package Total Routines
Contracts and Grants 52 ACGPCS    ACGPIHS    ACGPIND    ACGPO    ACGPSP    ACGPSUM    ACGPTCS    ACGPTCS1
ACGS2    ACGS282    ACGSCAN    ACGSCLEN    ACGSCLS    ACGSCPAR    ACGSCS    ACGSDCIS
ACGSEDIT    ACGSEXP    ACGSEXPX    ACGSEXPY    ACGSEXPZ    ACGSFLDS    ACGSFYA    ACGSICR
ACGSIE    ACGSIE1    ACGSINTG    ACGSNC    ACGSPSUM    ACGSPUTL    ACGSREST    ACGSRQ
ACGSRQ1    ACGSRQ4    ACGSRQ6    ACGSRQD    ACGSRQDC    ACGSRQDD    ACGSRQF1    ACGSRT1
ACGSSPFD    ACGSSPR    ACGSSWS    ACGSTAR1    ACGSTART    ACGSTEMP    ACGSUNIC    ACGSUP
ACGSUTIL    ACGSVCTR    ACGSVGL    ACGTEMP    
Commitment Register 4 ACRF21PS    ACRFCIS    ACRFEA21    ACRFSS12    

Accessed By FileMan Db Calls, Total: 18

Package Total Routines
Contracts and Grants 15 ACGS281    ACGS282    ACGSCLEN    ACGSCS    ACGSEDIT    ACGSIMP2    ACGSNC    ACGSREST
ACGSRQD    ACGSRQDD    ACGSSR    ACGSTAR1    ACGSTART    ACGSTEMP    ACGSUTIL    
Commitment Register 3 ACRFCIS    ACRFPRC4    ACRFSS12    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Contracts and Grants 2 CIS CONTRACTS AND GRANTS EXPORT(#9002336)[.03]    CIS CONTRACTS AND GRANTS(#9002330)[.03]    
Commitment Register 1 FMS DOCUMENT(#9002196)[.16]    

Pointer To FileMan Files, Total: 20

Package Total FileMan Files
Contracts and Grants 11 CIS CHARCTERISTIC CLASS(#9002331.2)[151]    CIS CONTRACT PERSONNEL(#9002331.4)[153, 1035]    CIS EXTENT OF COMPETITION(#9002330.6)[19]    CIS AUTH FOR OTHER THAN FULL AND OPEN(#9002330.5)[18]    CIS METHOD OF CONTRACTING(#9002330.7)[20]    CIS PROCUREMENT PURPOSE CODE(#9002330.9)[27]    CIS CONTRACTS AND GRANTS(#9002330)[.03]    CIS SPECIAL INTEREST CLASS(#9002331.3)[152]    CIS SOLICITATION PROCEDURE(#9002330.4)[17]    CIS TYPE OF CONTRACT(#9002330.3)[15]    CIS TYPE OF PROCUREMENT ACTION(#9002330.1)[1]    
Utility Tables 6 COMMON ACCOUNTING NUMBER(#9999999.57)[1037, 1039, 1041]
GEOGRAPHICAL LOCATION(#9999999.79)[1028]    OBJECT/SUB-OBJECT(#9999999.59)[302]    SIZE OF SMALL BUSINESS(#9999999.81)[66]    TYPE OF BUSINESS(#9999999.76)[13]    VENDOR(#9999999.11)[1005, 1054]    
Kernel 2 STATE(#5)[8]    NEW PERSON(#200)[.08]    
Commitment Register 1 FMS DOCUMENT(#9002196)[.06]    

Fields, Total: 146

Field # Name Loc Type Details
.01 SEQUENCE NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 27, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field indicates the sequence number for this contract action.
  • CROSS-REFERENCE:  9002330^I
    1)= S ^ACGS("I",$E(X,1,30),DA)=""
    2)= K ^ACGS("I",$E(X,1,30),DA)
.02 LAST MODIFICATION 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>35)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 12, 1990
  • HELP-PROMPT:  Type a Number between 0 and 35, 0 Decimal Digits
  • DESCRIPTION:  
    This field indicates the sequence number of the last modification to a contract.  This is only entered for the original contract and is monitored via the original contract entry to number subsequent modifications.
.03 ORIGINAL CONTRACT 0;3 POINTER TO CIS CONTRACTS AND GRANTS FILE (#9002330) CIS CONTRACTS AND GRANTS(#9002330)

  • LAST EDITED:  SEP 27, 1993
  • HELP-PROMPT:  Enter the appropriate name from the list.
  • DESCRIPTION:  
    This field points back to the CIS CONTRACT AND GRANTS file.  For each CIS entry, this indicates the original contract to which any subsequent modification applies.
  • CROSS-REFERENCE:  9002330^C
    1)= S ^ACGS("C",$E(X,1,30),DA)=""
    2)= K ^ACGS("C",$E(X,1,30),DA)
.04 EXPORT DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 27, 1993
  • HELP-PROMPT:  Enter the date on which this action was last exported.
  • DESCRIPTION:  
    This field indicates the date on which this action was last exported.
.05 VENDOR CONTRACT DFN 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 27, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the internal entry number of the contract listing in the VENDOR file to which this contract action relates.  This information is used for internal control within CIS and should never be edited directly.
.06 PURCHASE ORDER NO. 0;6 POINTER TO FMS DOCUMENT FILE (#9002196) FMS DOCUMENT(#9002196)

  • LAST EDITED:  APR 08, 1992
  • HELP-PROMPT:  Enter the appropriate purchase order from the list.
  • DESCRIPTION:  This indicates the purchase order number to which this action relates. This field is a pointer the FMS DOCUMENT file which is part of the ARMS system. This information is controlled internally by the system to coordinate
    between the ARMS and CIS systems and should never be edited directly.
  • CROSS-REFERENCE:  9002330^U
    1)= S ^ACGS("U",$E(X,1,30),DA)=""
    2)= K ^ACGS("U",$E(X,1,30),DA)
.07 DATE RECORD ADDED 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Enter the DATE including HOUR, MINUTE and SECOND this entry first made in CIS.
  • DESCRIPTION:  
    Enter the date, including the hour, minute and second this record was added to CIS.  This information is entered automatically by the system and should not be entered directly.
.08 DATA ENTRY PERSON 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Enter the name of the individual who created this entry.
  • DESCRIPTION:  
    Enter the name of the individual who originally entered this entry into CIS.
1 TYPE OF PROCUREMENT ACTION DT;1 POINTER TO CIS TYPE OF PROCUREMENT ACTION FILE (#9002330.1) CIS TYPE OF PROCUREMENT ACTION(#9002330.1)

  • LAST EDITED:  AUG 19, 1991
  • HELP-PROMPT:  Enter the appropriate procurement action code from the list.
  • DESCRIPTION:  
    This field points to the type of procurement action list and indicates the type of procurement action for this action.
  • CROSS-REFERENCE:  9002330^S
    1)= S ^ACGS("S",$E(X,1,30),DA)=""
    2)= K ^ACGS("S",$E(X,1,30),DA)
2 CONTRACT # DT;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X Q:"^12^13^14^"[(U_+^ACGS(DA,"DT")_U) I $D(X) S:$L(X)=9 X=X_"000" W:$D(^ACGS("B",X)) !!,*7,"NO ",X," ALREADY ASSIGNED." K:$D(^ACGS("B",X)) X I $D(X) K:$L(X)>15!($L(X)<9)!'(X?.UN) X
  • LAST EDITED:  JUN 02, 1993
  • HELP-PROMPT:  Answer must be 9-15 characters in length.
  • DESCRIPTION:  
    This indicates the official contract identification number and must follow specifications for correct contract number format.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PURCHASE ORDER NUMBER field of the CIS CONTRACTS AND GRANTS File
  • CROSS-REFERENCE:  9002330^B
    1)= S ^ACGS("B",$E(X,1,30),DA)=""
    2)= K ^ACGS("B",$E(X,1,30),DA)
3 AGENCY ORDER NUMBER DT;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<8)!'(X?.UN) X
  • LAST EDITED:  MAY 06, 1993
  • HELP-PROMPT:  Answer must be 8-14 characters in length.
  • DESCRIPTION:  
    This indicates the agency order number (purchase order no.) for this action.
4 CONTRACTING OFFICE DT;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  MAR 31, 1991
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This field indicates the 3 digit contracting office code.
  • CROSS-REFERENCE:  9002330^N
    1)= S ^ACGS("N",$E(X,1,30),DA)=""
    2)= K ^ACGS("N",$E(X,1,30),DA)
5 CONTRACTOR'S NAME DT;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 09, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field contains the free text version of the contractor's name used for the consolidate IHS database.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
  • CROSS-REFERENCE:  9002330^O
    1)= S ^ACGS("O",$E(X,1,30),DA)=""
    2)= K ^ACGS("O",$E(X,1,30),DA)
6 CONTRACTOR'S STREET ADDRESS DT;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 21, 1990
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the free text entry of the contractor's addressed used for the IHS consolidated database.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
7 CONTRACTOR'S CITY NAME DT;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<3) X
  • LAST EDITED:  NOV 21, 1990
  • HELP-PROMPT:  Answer must be 3-23 characters in length.
  • DESCRIPTION:  
    This is the free text listing of the contractor's city used for the IHS consolidated database.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
8 CONTRACTOR'S STATE DT;8 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  NOV 21, 1990
  • HELP-PROMPT:  Enter the correct state from the list.
  • DESCRIPTION:  
    This is the free text listing of the contractor's state used for the IHS consolidated database.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
9 CONTRACTOR'S ZIP DT;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  NOV 21, 1990
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • DESCRIPTION:  
    This is the free text listing of the contractor's zip code used for the IHS consolidated database.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
10 CONGRESSIONAL DISTRICT DT;10 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  MAR 31, 1991
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the free text listing of the contractor's congressional disctrict used in the consolidated IHS database
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
  • CROSS-REFERENCE:  9002330^P
    1)= S ^ACGS("P",$E(X,1,30),DA)=""
    2)= K ^ACGS("P",$E(X,1,30),DA)
11 ENTITY IDENTIFICATION NUMBER DT;11 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<10) X
  • LAST EDITED:  DEC 05, 1991
  • HELP-PROMPT:  Answer must be 10-12 characters in length.
  • DESCRIPTION:  
    This is the free text listing of the contractor's EIN number used in the consolidated IHS database.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
  • CROSS-REFERENCE:  9002330^M
    1)= S ^ACGS("M",$E(X,1,30),DA)=""
    2)= K ^ACGS("M",$E(X,1,30),DA)
12 EXTENT COMPETED DT;12 SET
************************REQUIRED FIELD************************
  • 'A' FOR COMPETED ACTION;
  • 'B' FOR NOT AVAIL. FOR COMP.;
  • 'C' FOR FOLLOW ON TO COMP. ACT.;
  • 'D' FOR NOT COMPETED;

  • LAST EDITED:  DEC 03, 1992
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This field indicates the extent to which the contract or contract action was competed.
  • SCREEN:  S DIC("S")="D 12^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002330^AF^MUMPS
    1)= Q
    2)= Q
13 TYPE OF BUSINESS DT;13 POINTER TO TYPE OF BUSINESS FILE (#9999999.76)
************************REQUIRED FIELD************************
TYPE OF BUSINESS(#9999999.76)

  • INPUT TRANSFORM:  S DIC("S")="D 13^ACGSIE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 27, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the type of business for the contractor.
  • SCREEN:  S DIC("S")="D 13^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
  • CROSS-REFERENCE:  9002330^AG^MUMPS
    1)= Q
    2)= Q
14 NEGOTIATION AUTHORITY PRE CICA DT;14 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  MAR 30, 1991
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This indicates whether the negotiation authority was pre or post CICA.
  • CROSS-REFERENCE:  9002330^J
    1)= S ^ACGS("J",$E(X,1,30),DA)=""
    2)= K ^ACGS("J",$E(X,1,30),DA)
15 TYPE OF CONTRACT DT;15 POINTER TO CIS TYPE OF CONTRACT FILE (#9002330.3)
************************REQUIRED FIELD************************
CIS TYPE OF CONTRACT(#9002330.3)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 06, 1991
  • HELP-PROMPT:  Enter the appropriate type of contract code from the list.
  • DESCRIPTION:  
    This indicates the type of contract for this contract action.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=2"
  • EXPLANATION:  SCREEN FOR TYPES OF CONTRACTS USED BY IHS CONTRACT OFFICES.
  • CROSS-REFERENCE:  9002330^G
    1)= S ^ACGS("G",$E(X,1,30),DA)=""
    2)= K ^ACGS("G",$E(X,1,30),DA)
16 A&A SERVICE CONTRACT DT;16 SET
  • '1' FOR A&A SERVICE CONTRACT;
  • '2' FOR NOT A&A SERVICE CONTRACT;

  • LAST EDITED:  FEB 22, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this is an advisory and assistance contract.
  • SCREEN:  S DIC("S")="D 16^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • NOTES:  TRIGGERED by the PROCUREMENT PURPOSE CODE field of the CIS CONTRACTS AND GRANTS File
  • CROSS-REFERENCE:  9002330^F
    1)= S ^ACGS("F",$E(X,1,30),DA)=""
    2)= K ^ACGS("F",$E(X,1,30),DA)
17 SOLICITATION PROCEDURE DT;17 POINTER TO CIS SOLICITATION PROCEDURE FILE (#9002330.4)
************************REQUIRED FIELD************************
CIS SOLICITATION PROCEDURE(#9002330.4)

  • INPUT TRANSFORM:  S DIC("S")="D 17^ACGSIE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 18, 1991
  • HELP-PROMPT:  Enter the appropriate solicitation procedure code from the list.
  • DESCRIPTION:  
    This indicates the type of solicitation procedure used for this contract action.
  • SCREEN:  S DIC("S")="D 17^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002330^AH^MUMPS
    1)= Q
    2)= Q
18 AUTHORITY FOR OTHER THAN F&O DT;18 POINTER TO CIS AUTH FOR OTHER THAN FULL AND OPEN FILE (#9002330.5) CIS AUTH FOR OTHER THAN FULL AND OPEN(#9002330.5)

  • INPUT TRANSFORM:  S DIC("S")="D 18^ACGSIE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 05, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the authority under which an other than full and open competition contract was let.
  • SCREEN:  S DIC("S")="D 18^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002330^AI^MUMPS
    1)= Q
    2)= Q
19 EXTENT OF COMPETITION DT;19 POINTER TO CIS EXTENT OF COMPETITION FILE (#9002330.6)
************************REQUIRED FIELD************************
CIS EXTENT OF COMPETITION(#9002330.6)

  • INPUT TRANSFORM:  S DIC("S")="D 19^ACGSIE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 04, 1991
  • HELP-PROMPT:  Enter the appropriate extent of competition code from the list.
  • DESCRIPTION:  
    This indicates the extent of competition applicable to this contract action.
  • SCREEN:  S DIC("S")="D 19^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002330^AJ^MUMPS
    1)= Q:'$D(X)  Q:X=""  S:'$D(^ACGS(DA,"IHS")) ^("IHS")="" S $P(^("IHS"),U,21)=$S(X<59!(X>60):2,1:1),$P(^("IHS"),U,20)=$S(X=61!(X=62):1,1:2)
    2)= Q
  • CROSS-REFERENCE:  9002330^K
    1)= S ^ACGS("K",$E(X,1,30),DA)=""
    2)= K ^ACGS("K",$E(X,1,30),DA)
20 METHOD OF CONTRACTING DT;20 POINTER TO CIS METHOD OF CONTRACTING FILE (#9002330.7)
************************REQUIRED FIELD************************
CIS METHOD OF CONTRACTING(#9002330.7)

  • INPUT TRANSFORM:  S DIC("S")="D 20^ACGSIE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 06, 1991
  • HELP-PROMPT:  Enter the appropriate method of contracting code from the list.
  • DESCRIPTION:  
    This indicates the method of contracting applied to this contract action.
  • SCREEN:  S DIC("S")="D 20^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002330^AK^MUMPS
    1)= Q
    2)= Q
21 NUMBER OF OFFERS RECEIVED DT;21 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the number of offers received for this contract action.
22 TITLE OF PROJECT DT1;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>97!($L(X)<3) X
  • LAST EDITED:  JUN 18, 1991
  • HELP-PROMPT:  Answer must be 3-97 characters in length.
  • DESCRIPTION:  
    This is the descriptive title of the contract.
23 AWARD DATE DT1;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 31, 1992
  • HELP-PROMPT:  Enter the date on which this contract was signed.
  • DESCRIPTION:  
    This indicates the date on which this contract action was signed.
  • CROSS-REFERENCE:  9002330^R
    1)= S ^ACGS("R",$E(X,1,30),DA)=""
    2)= K ^ACGS("R",$E(X,1,30),DA)
24 CONTRACT START DATE DT1;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 31, 1992
  • HELP-PROMPT:  Enter the start date for the contract action.
  • DESCRIPTION:  
    This indicates the date on which this contract action begins.
  • CROSS-REFERENCE:  9002330^T
    1)= S ^ACGS("T",$E(X,1,30),DA)=""
    2)= K ^ACGS("T",$E(X,1,30),DA)
25 COMPLETION DATE DT1;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 07, 1993
  • HELP-PROMPT:  Enter the date on which this contract action terminates.
  • DESCRIPTION:  
    This indicates the date on which this contract action terminates.
  • CROSS-REFERENCE:  9002330^V
    1)= S ^ACGS("V",$E(X,1,30),DA)=""
    2)= K ^ACGS("V",$E(X,1,30),DA)
    Used to search for completion dates for compiling reports relevant to date of expiration of a comtract.
  • CROSS-REFERENCE:  9002330^AT^MUMPS
    1)= I $D(DA),DA,$D(X),X,$D(^ACGS(DA,0)),$P(^(0),U,3),$D(^ACGS($P(^(0),U,3),"DT1")),X>$P(^("DT1"),U,4) S $P(^("DT1"),U,4)=X
    2)= Q
    3)= DO NOT DELETE
26 DOLLAR AMOUNT DT1;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-99999999)!(X?.E1"."1N.N) X Q:"^15^17^"'[(U_+^ACGS(DA,"DT")_U)!'$D(X) K:X>25000 X
  • LAST EDITED:  JUN 14, 1993
  • HELP-PROMPT:  Type a Number between -99999999 and 999999999, 0 Decimal Digits. Enter '0' if there is no DOLLAR AMOUNT for this action.
  • DESCRIPTION:  
    This indicates the dollar amount of this contract action.  This value should be specific to this action and is NOT reflective of the total value of the contract.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^106
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002330,26,1,1,89.2) S X=$P(Y(101),U,7) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002330,26,1,1,1.4)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X I $D(^(0)) S $P(^("IHS"),U,7)=DIV,DIH=9002330,DIG=106 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002330,26,1,1,89.2) S X=$P(Y(101),U,7) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002330,26,1,1,2.4)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X I $D(^(0)) S $P(^("IHS"),U,7)=DIV,DIH=9002330,DIG=106 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE THIS X-REF
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACGS(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"")
    CREATE VALUE)= TOTAL CONTRACT VALUE+DOLLAR AMOUNT
    DELETE VALUE)= TOTAL CONTRACT VALUE-OLD DOLLAR AMOUNT
    FIELD)= #.03:#106
    This x-ref accumulates the dollar amounts (field 26) of each contract action into the total contract value of the original contract.
27 PROCUREMENT PURPOSE CODE DT1;6 POINTER TO CIS PROCUREMENT PURPOSE CODE FILE (#9002330.9)
************************REQUIRED FIELD************************
CIS PROCUREMENT PURPOSE CODE(#9002330.9)

  • INPUT TRANSFORM:  S DIC("S")="D 27^ACGSIE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 12, 1993
  • HELP-PROMPT:  Enter the appropriate procurement purpose code from the list.
  • DESCRIPTION:  
    This indicates the procurement purpose code for this contract action.
  • SCREEN:  S DIC("S")="D 27^ACGSIE"
  • EXPLANATION:  Use a Procurement Purpose Code with the correct Advisory & Assistance designation.
  • CROSS-REFERENCE:  9002330^W
    1)= S ^ACGS("W",$E(X,1,30),DA)=""
    2)= K ^ACGS("W",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(9002330,27,1,2,1.1) X ^DD(9002330,27,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACGPPC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACGPPC(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,16)=DIV,DIH=9002330,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #27:INTERNAL(#.04)
    DELETE VALUE)= NO EFFECT
    FIELD)= #16
28 PLACE OF PERFORMANCE DT1;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 07, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the free text listing of the place of performance used in the consolidated IHS database.
29 COST ACCTG STANDARD CLAUSE DT1;8 SET
  • '1' FOR REQUIRED;
  • '2' FOR NOT REQUIRED;

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not the cost accounting clause is required for this contract action.
30 WOMEN-OWNED SMALL BUSINESS DT1;9 SET
  • '0' FOR EXEMPT;
  • '1' FOR YES;
  • '2' FOR NO;
  • '3' FOR NOT CERTIFIED;

  • LAST EDITED:  APR 28, 1993
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this is a contract action made to a women owned business.
  • SCREEN:  S DIC("S")="D 30^ACGSIE"
  • EXPLANATION:  Entries screened for compatibility with Type of Business.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
  • CROSS-REFERENCE:  9002330^E
    1)= S ^ACGS("E",$E(X,1,30),DA)=""
    2)= K ^ACGS("E",$E(X,1,30),DA)
31 SUBJECT TO STAT REQ'S DT1;10 SET
  • 'A' FOR WALSH-HEALEY, MANUFACTURER;
  • 'B' FOR WALSH-HEALEY, REGULAR DEALER;
  • 'C' FOR SERVICE CONTRACT ACT;
  • 'D' FOR DAVIS-BACON ACT;
  • 'E' FOR NOT SUBJECT TO ANY OF THE ABOVE;

  • LAST EDITED:  APR 04, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this contract action is subject to statutory requirements.
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^105
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002330,31,1,1,1.4)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,6)=DIV,DIH=9002330,DIG=105 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002330,31,1,1,2.1) X ^DD(9002330,31,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACGS(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,10),X=X
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,6)=DIV,DIH=9002330,DIG=105 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#31)
    DELETE VALUE)= INTERNAL(#31)
    FIELD)= #105
32 AFFIRMATIVE ACTION PLAN DT1;11 SET
  • '0' FOR EXEMPT;
  • '1' FOR YES (SATISFIED);
  • '2' FOR NO (NOT SATISFIED);

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not an affirmative action plan is required.
33 TRADE DATA DT1;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • HELP-PROMPT:  Answer must be 8 characters in length.
  • DESCRIPTION:  
    This is the code for trade data for a foreign product.
34 DATE OF RFC ACTION DT1;13 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 06, 1991
  • HELP-PROMPT:  Enter the RFC action date.
  • DESCRIPTION:  
    This indicates the RFC action date.
35 PROJECT OFFICER DT1;14 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 28, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the free text listing of the project officer's name used in the consolidated IHS database.
  • NOTES:  TRIGGERED by the P-PROJECT OFFICER field of the CIS CONTRACTS AND GRANTS File
36 INDIRECT COST DT2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the dollar value of indirect costs for this contract action.
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^1103
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002330,36,1,1,89.2) S X=$P(Y(101),U,12) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002330,36,1,1,1.4)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),10)):^(10),1:""),DIV=X I $D(^(0)) S $P(^(10),U,12)=DIV,DIH=9002330,DIG=1103 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002330,36,1,1,89.2) S X=$P(Y(101),U,12) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002330,36,1,1,2.4)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),10)):^(10),1:""),DIV=X I $D(^(0)) S $P(^(10),U,12)=DIV,DIH=9002330,DIG=1103 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACGS(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACGS(D0,10)):^(10),1:"")
    CREATE VALUE)= TOTAL INDIRECT COST+INDIRECT COST
    DELETE VALUE)= TOTAL INDIRECT COST-OLD INDIRECT COST
    FIELD)= #.03:#1103
37 CAN NO. DT2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • LAST EDITED:  OCT 16, 1991
  • HELP-PROMPT:  Answer must be 8 characters in length.
  • DESCRIPTION:  
    This indicates the first common accounting number for this contract.
  • NOTES:  TRIGGERED by the P-CAN NO. 1 field of the CIS CONTRACTS AND GRANTS File
38 DOLLARS - FIRST CAN NO. DT2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X D:$D(X) CAN1^ACGSCAN
  • LAST EDITED:  JUN 05, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the dollar value for the first CAN for this contract action.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
39 CAN NO. 2 DT2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • LAST EDITED:  MAR 16, 1991
  • HELP-PROMPT:  Answer must be 8 characters in length.
  • DESCRIPTION:  
    This indicates the second common accounting number for this contract action.
  • NOTES:  TRIGGERED by the P-CAN NO. 2 field of the CIS CONTRACTS AND GRANTS File
40 DOLLARS - SECOND CAN NO. DT2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X D:$D(X) CAN2^ACGSCAN
  • LAST EDITED:  JUN 05, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the dollar value for the second CAN for this contract action.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
41 CAN NO. 3 DT2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • LAST EDITED:  MAR 16, 1991
  • HELP-PROMPT:  Answer must be 8 characters in length.
  • DESCRIPTION:  
    This indicates the second common accounting number for this contract action.
  • NOTES:  TRIGGERED by the P-CAN NO. 3 field of the CIS CONTRACTS AND GRANTS File
42 DOLLARS - THIRD CAN NO. DT2;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X D:$D(X) CAN3^ACGSCAN
  • LAST EDITED:  JUN 05, 1991
  • HELP-PROMPT:  Type a Number between -9999999 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the dollar value for the third CAN for this contract action.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
43 COST OVERRUN - DIRECT COST DT2;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 20, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the dollar value of the cost overrun of direct costs.
44 COST OVERRUN - INDIRECT COST DT2;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 20, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the dollar value of the cost overrun for indirect costs in this contract.
45 SYNOPSIS OF PROCUREMENT DT2;10 SET
************************REQUIRED FIELD************************
  • '1' FOR SYNOPSIZED PRIOR TO AWARD;
  • '2' FOR NOT SYNOPSIZED DUE TO URGENCY;
  • '3' FOR NOT SYNOPSIZED DUE TO OTHER REASONS;

  • LAST EDITED:  OCT 16, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not a synopsis of the proposed contract is required.
46 AMOUNT OF FEE AWARDED DT2;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 20, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the dollar value of the amount of fee awarded.
47 SUBCONTRACT TOTAL DOLLARS DT2;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 20, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the total dollars to subcontracts under this contract action.
48 SUB-C DOLLARS TO SB NOT DISADV DT2;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 21, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the total sub-contract dollars to small businesses which are not disadvantaged.
49 SUB-C DOLLARS TO SB DISADV DT2;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 21, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This insicate the total sub-contract dollars to a small business which is disadvantaged.
50 INCREMENTALLY FUNDED DT2;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 20, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the total number of incrementally funded dollars.
51 FOREIGN GOV'T OR INTERNT'L ORG DT2;16 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether the contract action is with a foreign gov/t or international organization.
52 TARIFF OR REGULATED (PRE-CICA) DT2;17 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This is a set of codes which allows the user to indicate whether or not pre-CICA tariff or regulated laws are applicable.
53 PRINCIPAL SIC CODE DT2;18 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!(X'?4N) X
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  Answer must be 4 numeric characters in length.
  • DESCRIPTION:  
    This indicates the standard industrial code which is applicalbe to this contract action.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54 COMMON PARENT DT2;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 24, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is a pointer to the vendor field which allows you to indicate the name of the vendor's parent company.
  • NOTES:  TRIGGERED by the P-COMMON PARENT field of the CIS CONTRACTS AND GRANTS File
55 COMMON PARENT'S TIN DT2;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • LAST EDITED:  DEC 13, 1990
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    This field contains the tax identification number of the vendor's parent company.
  • NOTES:  TRIGGERED by the P-COMMON PARENT field of the CIS CONTRACTS AND GRANTS File
56 SUBCONTRACTING PLAN REQ. DT3;1 SET
  • '1' FOR REQUIRED;
  • '2' FOR NOT REQUIRED;

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not a subcontracting plan is required.
57 CONTRACT CONTAINS SUB-K PLAN DT3;2 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether this contract contains a SUB-K plan.
58 AIDS AFFILIATED CONTRACT DT3;3 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this contract contains dollars related to an AIDS affiliated action.
59 AIDS AFFIL. CONTRACT DOLLARS DT3;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 20, 1991
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the number of dollars from this contract which were related to AIDS affiliated contracts.
60 MULTIPLE PLACE OF PERFORMANCE DT3;5 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 07, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether there were multiple places of performance under this contract action.
61 MULTIPLE PRODUCT SERVICE CODE DT3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?1"MULT") X
  • LAST EDITED:  DEC 05, 1991
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    This indicates whether or not there are multiple product service codes for this contract action.
62 CICA APPLICABILITY DT3;7 SET
************************REQUIRED FIELD************************
  • 'A' FOR CICA APPLICABLE;
  • 'B' FOR SMALL PURCHASE PROCEDURE;
  • 'C' FOR SUBJECT TO STATUTE OTHER THAN CICA;
  • 'D' FOR PRE-CICA;

  • LAST EDITED:  MAR 06, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not CICA regulations are applicable to this contract action.
  • CROSS-REFERENCE:  9002330^AL^MUMPS
    1)= Q
    2)= Q
63 SB DEMONSTRATION TEST PROGRAM DT3;8 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  MAY 26, 1993
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this contract action is part of the small business demonstation test program.
  • SCREEN:  S DIC("S")="D 63^ACGSIE"
  • EXPLANATION:  Check for compatibility with Type of Business, Procurement Purpose Code and SIC Code.
64 EMERGING SMALL BUSINESS DT3;9 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not the vendor is classified as an emerging small business.
65 EMERGING SB RESERVE AWARD DT3;10 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this contract action is part of an emerging small business reserve award.
66 SIZE OF SMALL BUSINESS DT3;11 POINTER TO SIZE OF SMALL BUSINESS FILE (#9999999.81)
************************REQUIRED FIELD************************
SIZE OF SMALL BUSINESS(#9999999.81)

  • INPUT TRANSFORM:  S DIC("S")="D 66^ACGSIE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 09, 1993
  • HELP-PROMPT:  safsafsdf
  • DESCRIPTION:  
    This is the code to indicate the size of a small business.
  • SCREEN:  S DIC("S")="D 66^ACGSIE"
  • EXPLANATION:  Screened for compatibility with the TYPE OF BUSINESS.
67 HANDICAPPED CONTRACT AMOUNT DT3;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X D:$D(X) 67^ACGSIE W:'$D(X) !!,"Do not entry any amount unless TYPE OF BUSINESS equals 'C5'."
  • LAST EDITED:  APR 09, 1993
  • HELP-PROMPT:  Type a Number between -9999999 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the dollar amount of award to a handicapped vendor.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68 NEXT HIGHER F-P SB BID DT3;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N)!($P(^ACGS(DA,"DT"),U,13)'=10) X W:'$D(X) !!,"Do not entry any amount unless TYPE OF BUSINESS equals 'C5'."
  • LAST EDITED:  APR 09, 1993
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits. Enter only when Type of Business equals C5.
  • DESCRIPTION:  
    This is the dollar amount of the bid from the next higher for profit vendor.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69 HIGHER BIDDER'S EIN DT3;14 FREE TEXT

  • INPUT TRANSFORM:  K:$P(^ACGS(DA,"DT"),U,13)'=10 X I $D(X) K:$E(X)'=1&($E(X)'=2) X I $D(X) K:$E(X)=1&($L(X)'=12) X I $D(X) K:$E(X)=2&($L(X)'=10) X I $D(X) K:$E(X)=1&($E(X,11)'?1U)&($E(X,12)'?1N) X I $D(X)
  • LAST EDITED:  APR 09, 1993
  • HELP-PROMPT:  Answer must be 10 or 12 characters in length. The first character is '1' for an ORGANIZATION, '2' for an INDIVIDUAL. Enter characters 11 & 12 only when the first character is '1'.
  • DESCRIPTION:  
    This information must list the next higher for profit bidder's EIN number Enter only when applicable.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
70 FUTURE EXPANSION DT3;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  SEP 24, 1993
  • HELP-PROMPT:  Answer must be 3-7 characters in length.
  • DESCRIPTION:  
    This is a data field which is currently unused but is available for future expansion to correspond with changes in the PHS and Department CIS.
100 CONTRACTOR'S LOCATION IHS;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 16, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This shows the contractor's geographical location.
  • GROUP:  TRANS
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
101 PLACE OF PERFORMANCE CITY IHS;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 16, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This shows the place of performance for this contract action.
  • GROUP:  TRANS
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
102 ENTITY CODE IHS;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    This indicates the entity code for this contract action.
103 FISCAL YEAR IHS;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  FEB 14, 1991
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This indicates the fiscal year of the funds for this contract action.
  • CROSS-REFERENCE:  9002330^D
    1)= S ^ACGS("D",$E(X,1,30),DA)=""
    2)= K ^ACGS("D",$E(X,1,30),DA)
104 TARGET POPULATION IHS;5 SET
  • '0' FOR NO SPECIAL TARGET GROUP;
  • '1' FOR AMERICAN INDIANS AND ALASKA NATIVES;
  • '2' FOR THE POOR;
  • '3' FOR THE AGED;
  • '4' FOR SPANISH-SPEAKING PERSONS;
  • '5' FOR NEGROES;
  • '6' FOR WOMEN;
  • '7' FOR THE HANDICAPPED;
  • '8' FOR AMERICAN ORIENTALS;
  • '9' FOR OTHER;

  • LAST EDITED:  JAN 19, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the target population for this contract action.
105 LABOR STANDARDS IHS;6 SET
  • 'A' FOR WALSH-HEALEY, MANUFACTURER;
  • 'B' FOR WALSH-HEALEY, REGULAR DEALER;
  • 'C' FOR SERVICE CONTRACT ACT;
  • 'D' FOR DAVIS-BACON ACT;
  • 'E' FOR NOT SUBJECT TO ANY OF THE ABOVE;

  • LAST EDITED:  FEB 25, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not labor standards apply under this contract action.
  • NOTES:  TRIGGERED by the SUBJECT TO STAT REQ'S field of the CIS CONTRACTS AND GRANTS File
106 TOTAL CONTRACT VALUE IHS;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 20, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the total contract value of all money expended under this contract.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DOLLAR AMOUNT field of the CIS CONTRACTS AND GRANTS File
107 LABOR SURPLUS AREA IHS;8 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 19, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether work performed under this contract action is done in a labor surplus area.
108 PROPERTY FURNISHED IHS;9 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 26, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not any property is furnished by the government under this contract.
109 PRIVACY ACT IHS;10 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 26, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not the privacy act applies to this contract action.
110 MINORITY BUSINESS IHS;11 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 25, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this contract action is with a minority business.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
111 MINORITY NON-PROFIT ORG IHS;12 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  MAR 17, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether this contract action is with a minority non- profit organization.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
112 SMALL BUSINESS STATUS IHS;13 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 25, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the small business status of the vendor for this contract action.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
113 BASIC ORDERING AGREEMENT IHS;14 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 25, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether this contract action is for a basic ordering agreement.
114 MEDICAL SERVICES IHS;15 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 25, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this contract is for medical services.
115 CONTRACT SPECIALIST INITIALS IHS;16 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  MAR 06, 1991
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This should show the contract specialists initials.
  • NOTES:  TRIGGERED by the CONTRACT SPECIALIST field of the CIS CONTRACTS AND GRANTS File
116 GSA MOTOR POOL IHS;17 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not use of gsa motor pool vehicles is authorized under this contract.
117 NUMBER OF VEHICLES IHS;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the number of GSA vehicles authorized to be used under this contract.
118 AMOUNT OF GSA MOTOR VEHICLE IHS;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This indicates the dollar amount of the GSA vehicles used under this contract action.
119 INDIAN OWNED IHS;20 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  JUN 04, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether this contract is with an Indian owned business.
120 IN 8(a) PROGRAM IHS;21 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not the vendor for this contract action is in the 8(a) program.
121 STATUS CODE IHS;22 SET
  • '1' FOR ACTIVE;
  • '2' FOR COMPLETED PHYSICALLY;
  • '3' FOR COMPLETED ADMINISTRATIVELY;

  • LAST EDITED:  MAR 30, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the current status of the contract.
  • CROSS-REFERENCE:  9002330^L
    1)= S ^ACGS("L",$E(X,1,30),DA)=""
    2)= K ^ACGS("L",$E(X,1,30),DA)
151 ENTITY CHARACTERISTIC IHS1;1 POINTER TO CIS CHARCTERISTIC CLASS FILE (#9002331.2) CIS CHARCTERISTIC CLASS(#9002331.2)

  • LAST EDITED:  JUN 04, 1991
  • HELP-PROMPT:  Enter the appropriate name from the list.
  • CROSS-REFERENCE:  9002330^AM^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  9002330^AO^MUMPS
    1)= Q:X=""  I $D(^ACGS(DA,"IHS1")),$P(^("IHS1"),U,2)'="",$D(^ACGCC(X,0)) S $P(^ACGS(DA,"IHS"),U,3)=$P(^ACGCC(X,0),U)_$P(^ACGSC($P(^ACGS(DA,"IHS1"),U,2),0),U)
    2)= Q:X=""  I $D(^ACGS(DA,"IHS1")),$P(^("IHS1"),U,2)'="",$D(^ACGCC(X,0)) S $P(^ACGS(DA,"IHS"),U,3)=$P(^ACGCC(X,0),U)_$P(^ACGSC($P(^ACGS(DA,"IHS1"),U,2),0),U)
152 ENTITY SPECIAL INTEREST IHS1;2 POINTER TO CIS SPECIAL INTEREST CLASS FILE (#9002331.3) CIS SPECIAL INTEREST CLASS(#9002331.3)

  • LAST EDITED:  MAR 17, 1991
  • HELP-PROMPT:  Enter the appropriate name from the list.
  • CROSS-REFERENCE:  9002330^AN^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  9002330^AP^MUMPS
    1)= Q:X=""  I $D(^ACGS(DA,"IHS1")),$P(^("IHS1"),U)'="",$D(^ACGSC(X,0)) S $P(^ACGS(DA,"IHS"),U,3)=$P(^ACGCC($P(^ACGS(DA,"IHS1"),U),0),U)_$P(^ACGSC(X,0),U)
    2)= Q:X=""  I $D(^ACGS(DA,"IHS1")),$P(^("IHS1"),U)'="",$D(^ACGSC(X,0)) S $P(^ACGS(DA,"IHS"),U,3)=$P(^ACGCC($P(^ACGS(DA,"IHS1"),U),0),U)_$P(^ACGSC(X,0),U)
153 CONTRACT SPECIALIST IHS1;3 POINTER TO CIS CONTRACT PERSONNEL FILE (#9002331.4) CIS CONTRACT PERSONNEL(#9002331.4)

  • LAST EDITED:  SEP 24, 1993
  • HELP-PROMPT:  Enter the appropriate name from the list.
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^115
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(9002330,153,1,1,1.1) X ^DD(9002330,153,1,1,1.4)
    1.1)= S X=DIV X ^DD(9002330,153,1,1,49.2) S D0=$P(Y(101),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(201)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(201),U,2) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,16)=DIV,DIH=9002330,DIG=115 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    2.1)= S X=DIV X ^DD(9002330,153,1,1,59.3) S X=$P(Y(201),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,16)=DIV,DIH=9002330,DIG=115 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACGCP(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^ACGCP(D0,0)):^(0),1:"")
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,"IHS1")):^("IHS1"),1:""),D0=$P(Y(1),U,3) S:'$D(^ACGCP(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"")
    59.3)= X ^DD(9002330,153,1,1,59.2) S Y(101)=$S($D(^ACGCP(D0,0)):^(0),1:""),D0=$P(Y(101),U,1) S:'$D(^DIC(16,+D0,0)) D0=-1 S Y(201)=$S($D(^DIC(16,D0,20)):^(20),1:"")
    CREATE VALUE)= #153:#.01:#1
    DELETE VALUE)= NO EFFECT
    FIELD)= #115
154 DATE PHYSICALLY COMPLETED IHS1;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 24, 1993
  • HELP-PROMPT:  Enter the date the Contract was physically completed.
  • DESCRIPTION:  
    Enter the date the contract was physically completed.
  • CROSS-REFERENCE:  9002330^X
    1)= S ^ACGS("X",$E(X,1,30),DA)=""
    2)= K ^ACGS("X",$E(X,1,30),DA)
155 DATE ADMIN COMPLETED IHS1;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 24, 1993
  • HELP-PROMPT:  Enter the date the Contract was administratively completed.
  • DESCRIPTION:  
    This indicates the date the contract was administratively completed.
  • CROSS-REFERENCE:  9002330^Y
    1)= S ^ACGS("Y",$E(X,1,30),DA)=""
    2)= K ^ACGS("Y",$E(X,1,30),DA)
201 INDIRECT COST BASE AMOUNT IC;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 21, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the indirect cost base amount for the first indirect cost.
202 INDIRECT COST RATE IC;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Type a Number between 0 and 100, 2 Decimal Digits
  • DESCRIPTION:  
    This indicates the first indirect cost rate for this contract action.
203 TYPE OF RATE IC;3 SET
  • 'A' FOR FIXED RATE;
  • 'B' FOR FIXED WITH CARRY FORWARD;
  • 'C' FOR PROVISIONAL;
  • 'D' FOR FINAL;
  • 'E' FOR LUMP SUM AMOUNT;
  • 'F' FOR OTHER;

  • LAST EDITED:  JUN 13, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the first type of rate for this contract action.
204 BASE CODE 1 IC;4 SET
  • 'A' FOR DIRECT SALARIES;
  • 'B' FOR DIRECT SALARIES & FRING BENEFITS;
  • 'C' FOR TOTAL DIRECT COSTS;
  • 'D' FOR TOTAL DIRECT COSTS LESS SPECIFIED ITEMS;
  • 'E' FOR OTHER;

  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the first base code for this contract action.
205 INDIRECT COST BASE AMOUNT 2 IC;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the indirect cost base amount for the second indirect cost.
206 INDIRECT COST RATE 2 IC;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Type a Number between 0 and 100, 2 Decimal Digits
  • DESCRIPTION:  
    This indicates the second indirect cost rate for this contract action.
207 TYPE OF RATE 2 IC;7 SET
  • 'A' FOR FIXED RATE;
  • 'B' FOR FIXED WITH CARRY FORWARD;
  • 'C' FOR PROVISIONAL;
  • 'D' FOR FINAL;
  • 'E' FOR LUMP SUM AMOUNT;
  • 'F' FOR OTHER;

  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the second type of rate for this contract action.
208 BASE CODE 2 IC;8 SET
  • 'A' FOR DIRECT SALARIES;
  • 'B' FOR DIREXT SALARIES & FRINGE BENEFITS;
  • 'C' FOR TOTAL DIRECT COSTS;
  • 'D' FOR TOTAL DIRECT COSTS LESS SPECIFIED ITEMS;
  • 'E' FOR OTHER;

  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the second base code for this contract action.
209 INDIRECT COST BASE AMOUNT 3 IC;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the indirect cost base amount for the third indirect cost.
210 INDIRECT COST RATE 3 IC;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the third indirect cost rate for this contract action.
211 TYPE OF RATE 3 IC;11 SET
  • 'A' FOR FIXED RATE;
  • 'B' FOR FIXED WITH CARRY FORWARD;
  • 'C' FOR PROVISIONAL;
  • 'D' FOR FINAL;
  • 'E' FOR LUMP SUM AMOUNT;
  • 'F' FOR OTHER;

  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the third type of rate for this contract action.
212 BASE CODE 3 IC;12 SET
  • 'A' FOR DIRECT SALARIES;
  • 'B' FOR DIRECT SALARIES & FRINGE BENEFITS;
  • 'C' FOR TOTAL DIRECT COSTS;
  • 'D' FOR TOTAL DIRECT COSTS LESS SPECIFIED ITEMS;
  • 'E' FOR OTHER;

  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the third base code for this contract action.
213 INDIRECT COST BASE AMOUNT 4 IC;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the indirect cost base amount for the fourth indirect cost.
214 INDIRECT COST RATE 4 IC;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    This indicates the fourth indirect cost rate for this contract action.
215 TYPE OF RATE 4 IC;15 SET
  • 'A' FOR FIXED RATE;
  • 'B' FOR FIXED WITH CARRY FORWARD;
  • 'C' FOR PROVISIONAL;
  • 'D' FOR FINAL;
  • 'E' FOR LUMP SUM AMOUNT;
  • 'F' FOR OTHER;

  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicatesthe fourth type of rate for this contract action.
216 BASE CODE 4 IC;16 SET
  • 'A' FOR DIRECT SALARIES;
  • 'B' FOR DIRECT SALARIES & FRINGE BENEFITS;
  • 'C' FOR TOTAL DIRECT COSTS;
  • 'D' FOR TOTAL DIRECT COSTS LESS SPECIFIED ITEMS;
  • 'E' FOR OTHER;

  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the fourth base code for this contract action.
301 PURCHASE ORDER NUMBER SP;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<3) X I $D(X),$D(^ACGS("B",X)) W !!,*7,"NO ",X," ALREADY ASSIGNED." K X
  • LAST EDITED:  DEC 01, 1992
  • HELP-PROMPT:  Answer must be 3-17 characters in length.
  • DESCRIPTION:  
    This indicates the PURCHASE ORDER NUMBER applicable to this action.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002330,301,1,1,1.4)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,2)=DIV,DIH=9002330,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= PURCHASE ORDER NUMBER
    DELETE VALUE)= NO EFFECT
    FIELD)= #2
302 OBJECT CLASS CODE SP;2 POINTER TO OBJECT/SUB-OBJECT FILE (#9999999.59)
************************REQUIRED FIELD************************
OBJECT/SUB-OBJECT(#9999999.59)

  • LAST EDITED:  AUG 19, 1991
  • HELP-PROMPT:  Enter the appropriate name from the list.
303 PREFERENCE PROGRAM SP;3 SET
************************REQUIRED FIELD************************
  • '1' FOR SMALL BUS-SMALL PURCHASE SET-ASIDE;
  • '2' FOR LABOR SURPLUS AREA SET-ASIDE;
  • '3' FOR COMBINED LS/SB SET-ASIDE;
  • '4' FOR BUY INDIAN;
  • '5' FOR OTHER;

  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the preference program under which this small purchase was done.
  • SCREEN:  S DIC("S")="Q:'$D(^ACGS(DA,""AP"")) Q:$P(^(""SP""),U,4)=""A1"" I $P(^(""SP""),U,4)'=""A1"",Y'=1&(Y'=3)"
  • EXPLANATION:  Entry checked for consistency with TYPE OF BUSINESS.
304 SP TYPE OF BUSINESS SP;4 SET
************************REQUIRED FIELD************************
  • 'A1' FOR SMALL BUSINESS;
  • 'A2' FOR LARGE BUSINESS;
  • 'A3' FOR DOMESTIC OUTSIDE U.S./FOREIGN;
  • 'A4' FOR OTHER ENTITY;

  • LAST EDITED:  DEC 02, 1992
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the small purchase type of business for the vendor on this action.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
  • CROSS-REFERENCE:  9002330^AR^MUMPS
    1)= Q
    2)= Q
305 TYPE OF VENDOR SP;5 SET
************************REQUIRED FIELD************************
  • '1' FOR SMALL DISADVANTAGED BUSINESS;
  • '2' FOR WOMAN-OWNED BUSINESS;
  • '3' FOR SHELTERED WORKSHOP;
  • '4' FOR UNICOR;
  • '5' FOR OTHER;
  • '6' FOR BUY INDIAN;

  • LAST EDITED:  JUN 14, 1993
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the small purchase system type of vendor.
  • NOTES:  TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS File
306 PROCUREMENT METHOD SP;6 SET
************************REQUIRED FIELD************************
  • '1' FOR SMALL PURCHASE (FAR 13);
  • '2' FOR DELIVER ORDERS-GSA SCH ONLY;
  • '3' FOR DELIVERY ORDERS-OTH FED SCH;
  • '4' FOR DELIVER ORDERS-ALL OTH;
  • '5' FOR OTH PROCUREMENT METH;
  • '6' FOR PERRY POINT;
  • '7' FOR VA - HINES;
  • '8' FOR FEDSTRIP;
  • '9' FOR IMPREST FUNDS;
  • '0' FOR SF-44;

  • LAST EDITED:  SEP 24, 1993
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the procurement method used in this small purchase.
  • CROSS-REFERENCE:  9002330^AS^MUMPS
    1)= Q
    2)= Q
    3)= DO NOT DELETE
307 SP EXTENT COMPETED SP;7 SET
************************REQUIRED FIELD************************
  • 'A' FOR COMPETED ACTION;
  • 'B' FOR NOT AVAILABLE FOR COMPETITION;
  • 'C' FOR NOT COMPETED;

  • LAST EDITED:  FEB 17, 1993
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates the extent competed for this small purchase action.
1005 P-CONTRACTOR'S NAME 10;1 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Select the appropriate contractor/vendor from the list.
  • DESCRIPTION:  
    This field points to the official vendor file and allows you to indicate the vendor to which this contract action applies.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002330,1005,1,1,1.1) X ^DD(9002330,1005,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002330,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002330,1005,1,1,2.1) X ^DD(9002330,1005,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002330,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,0)):^(0),1:"")
    CREATE VALUE)= #1005:#.01
    DELETE VALUE)= #1005:#.01
    FIELD)= #5
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002330,1005,1,2,1.1) X ^DD(9002330,1005,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,13)):^(13),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002330,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002330,1005,1,2,2.1) X ^DD(9002330,1005,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002330,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,13)):^(13),1:"")
    CREATE VALUE)= #1005:#1301
    DELETE VALUE)= #1005:#1301
    FIELD)= #6
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002330,1005,1,3,1.1) X ^DD(9002330,1005,1,3,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,13)):^(13),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002330,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002330,1005,1,3,2.1) X ^DD(9002330,1005,1,3,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,3,59.2) S X=$P(Y(101),U,2) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002330,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,13)):^(13),1:"")
    CREATE VALUE)= #1005:#1302
    DELETE VALUE)= #1005:#1302
    FIELD)= #7
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^8
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002330,1005,1,4,1.1) X ^DD(9002330,1005,1,4,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,13)):^(13),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,8)=DIV,DIH=9002330,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002330,1005,1,4,2.1) X ^DD(9002330,1005,1,4,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,4,59.2) S Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,8)=DIV,DIH=9002330,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,13)):^(13),1:"")
    CREATE VALUE)= #1005:INTERNAL(#1303)
    DELETE VALUE)= #1005:INTERNAL(#1303)
    FIELD)= #8
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^9
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002330,1005,1,5,1.1) X ^DD(9002330,1005,1,5,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,13)):^(13),1:"") S X=$P(Y(101),U,4) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,9)=DIV,DIH=9002330,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002330,1005,1,5,2.1) X ^DD(9002330,1005,1,5,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,5,59.2) S X=$P(Y(101),U,4) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,9)=DIV,DIH=9002330,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,13)):^(13),1:"")
    CREATE VALUE)= #1005:#1304
    DELETE VALUE)= #1005:#1304
    FIELD)= #9
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^10
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002330,1005,1,6,1.1) X ^DD(9002330,1005,1,6,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(101),U,16) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,10)=DIV,DIH=9002330,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002330,1005,1,6,2.1) X ^DD(9002330,1005,1,6,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,6,59.2) S X=$P(Y(101),U,16) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,10)=DIV,DIH=9002330,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"")
    CREATE VALUE)= #1005:#1116
    DELETE VALUE)= #1005:#1116
    FIELD)= #10
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002330,1005,1,7,1.1) X ^DD(9002330,1005,1,7,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(101),U,13) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,11)=DIV,DIH=9002330,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002330,1005,1,7,2.1) X ^DD(9002330,1005,1,7,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,7,59.2) S X=$P(Y(101),U,13) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,11)=DIV,DIH=9002330,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"")
    CREATE VALUE)= #1005:#1102.01
    DELETE VALUE)= #1005:#1102.01
    FIELD)= #11
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002330,1005,1,8,1.1) X ^DD(9002330,1005,1,8,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),Y(101)=X S X=$P(Y(102),U,26),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002330,DIG=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002330,1005,1,8,2.1) X ^DD(9002330,1005,1,8,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,8,59.2) S Y(101)=X S X=$P(Y(102),U,26),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002330,DIG=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"")
    CREATE VALUE)= #1005:INTERNAL(#1126)
    DELETE VALUE)= #1005:INTERNAL(#1126)
    FIELD)= #13
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^30
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002330,1005,1,9,1.1) X ^DD(9002330,1005,1,9,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),Y(101)=X S X=$P(Y(102),U,15),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT1")):^("DT1"),1:""),DIV=X S $P(^("DT1"),U,9)=DIV,DIH=9002330,DIG=30 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(9002330,1005,1,9,2.4)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT1")):^("DT1"),1:""),DIV=X S $P(^("DT1"),U,9)=DIV,DIH=9002330,DIG=30 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #1005:INTERNAL(#1115)
    DELETE VALUE)= @
    FIELD)= #30
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^304
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"SP")):^("SP"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002330,1005,1,10,1.1) X ^DD(9002330,1005,1,10,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),Y(101)=X S X=$P(Y(102),U,27),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"SP")):^("SP"),1:""),DIV=X S $P(^("SP"),U,4)=DIV,DIH=9002330,DIG=304 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= DO NOT DELETE
    CREATE VALUE)= #1005:INTERNAL(#1127)
    DELETE VALUE)= NO EFFECT
    FIELD)= #304
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^112
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002330,1005,1,11,1.1) X ^DD(9002330,1005,1,11,1.4)
    1.1)= S X=DIV X ^DD(9002330,1005,1,11,49.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,22)_":",2),$C(59),1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,13)=DIV,DIH=9002330,DIG=112 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002330,1005,1,11,2.1) X ^DD(9002330,1005,1,11,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,11,59.2) S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,22)_":",2),$C(59),1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,13)=DIV,DIH=9002330,DIG=112 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(9999999.11,1122,0)):$P(^(0),U,3),1:""),Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"")
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(9999999.11,1122,0)):$P(^(0),U,3),1:"")
    CREATE VALUE)= #1005:#1122
    DELETE VALUE)= #1005:#1122
    FIELD)= #112
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^110
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002330,1005,1,12,1.1) X ^DD(9002330,1005,1,12,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),Y(101)=X S X=$P(Y(102),U,20),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,11)=DIV,DIH=9002330,DIG=110 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002330,1005,1,12,2.1) X ^DD(9002330,1005,1,12,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,12,59.2) S Y(101)=X S X=$P(Y(102),U,20),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,11)=DIV,DIH=9002330,DIG=110 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"")
    CREATE VALUE)= #1005:INTERNAL(#1120)
    DELETE VALUE)= #1005:INTERNAL(#1120)
    FIELD)= #110
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^111
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002330,1005,1,13,1.1) X ^DD(9002330,1005,1,13,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),Y(101)=X S X=$P(Y(102),U,21),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,12)=DIV,DIH=9002330,DIG=111 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002330,1005,1,13,2.1) X ^DD(9002330,1005,1,13,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,13,59.2) S Y(101)=X S X=$P(Y(102),U,21),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,12)=DIV,DIH=9002330,DIG=111 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"")
    CREATE VALUE)= #1005:INTERNAL(#1121)
    DELETE VALUE)= #1005:INTERNAL(#1121)
    FIELD)= #111
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^304
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"SP")):^("SP"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002330,1005,1,14,1.1) X ^DD(9002330,1005,1,14,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),Y(101)=X S X=$P(Y(102),U,27),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"SP")):^("SP"),1:""),DIV=X S $P(^("SP"),U,4)=DIV,DIH=9002330,DIG=304 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #1005:INTERNAL(#1127)
    DELETE VALUE)= NO EFFECT
    FIELD)= #304
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^100
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002330,1005,1,15,1.1) X ^DD(9002330,1005,1,15,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$S('$D(^AUTTGL(+$P(Y(101),U,25),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,1)=DIV,DIH=9002330,DIG=100 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002330,1005,1,15,2.1) X ^DD(9002330,1005,1,15,2.4)
    2.1)= S X=DIV X ^DD(9002330,1005,1,15,59.2) S X=$S('$D(^AUTTGL(+$P(Y(101),U,25),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,1)=DIV,DIH=9002330,DIG=100 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"")
    CREATE VALUE)= #1005:#1125
    DELETE VALUE)= #1005:#1125
    FIELD)= #100
  • CROSS-REFERENCE:  9002330^H
    1)= S ^ACGS("H",$E(X,1,30),DA)=""
    2)= K ^ACGS("H",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^101
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002330,1005,1,17,1.1) X ^DD(9002330,1005,1,17,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$S('$D(^AUTTGL(+$P(Y(101),U,25),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,2)=DIV,DIH=9002330,DIG=101 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #1005:#1125
    DELETE VALUE)= NO EFFECT
    FIELD)= #101
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^305
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"SP")):^("SP"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002330,1005,1,18,1.1) X ^DD(9002330,1005,1,18,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),Y(101)=X S X=$P(Y(102),U,28),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"SP")):^("SP"),1:""),DIV=X S $P(^("SP"),U,5)=DIV,DIH=9002330,DIG=305 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #1005:INTERNAL(#1128)
    DELETE VALUE)= NO EFFECT
    FIELD)= #305
    Triggers the SP TYPE OF VENDOR from the Vendor file into the CIS Small Purchase entry.
1028 P-PLACE OF PERFORMANCE 10;2 POINTER TO GEOGRAPHICAL LOCATION FILE (#9999999.79)
************************REQUIRED FIELD************************
GEOGRAPHICAL LOCATION(#9999999.79)

  • INPUT TRANSFORM:  S DIC("S")="Q:$P(^(0),U,3)?5N&$P(^(0),U,6) W !!,""Place of Performance missing Place Code or State data."",! I 0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  Enter the appropriate place of performance from the list.
  • DESCRIPTION:  
    This field points to the GEGRAPHICAL LOCATION file and allows you to select the location which is the PLACE OF PERFORMANCE for this contract action.
  • SCREEN:  S DIC("S")="Q:$P(^(0),U,3)?5N&$P(^(0),U,6) W !!,""Place of Performance missing Place Code or State data."",! I 0"
  • EXPLANATION:  Ensure that required data is on file for the Place of Performance.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  9002330^AQ^MUMPS
    1)= Q:X=""  I $D(^AUTTGL(X,0)),$P(^(0),U,6),$P(^(0),U,3)'="",$D(^DIC(5,$P(^AUTTGL(X,0),U,6),0)) S $P(^ACGS(DA,"DT1"),U,7)=$P(^DIC(5,$P(^AUTTGL(X,0),U,6),0),U,3)_$P(^AUTTGL(X,0),U,3)_$P(^(0),U)
    2)= Q:X=""  S $P(^ACGS(DA,"DT1"),U,7)=""
1035 P-PROJECT OFFICER 10;3 POINTER TO CIS CONTRACT PERSONNEL FILE (#9002331.4) CIS CONTRACT PERSONNEL(#9002331.4)

  • LAST EDITED:  OCT 13, 1993
  • HELP-PROMPT:  Enter the name of the project officer from the list. Use the format LAST NAME,FIRST NAME MI
  • DESCRIPTION:  
    This field allow you to indicate the individual who is designated as the project officer for this contract action.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^35
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(9002330,1035,1,1,1.1) X ^DD(9002330,1035,1,1,1.4)
    1.1)= S X=DIV X ^DD(9002330,1035,1,1,49.2) S D0=$P(Y(101),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(201)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(201),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT1")):^("DT1"),1:""),DIV=X S $P(^("DT1"),U,14)=DIV,DIH=9002330,DIG=35 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    2.1)= S X=DIV X ^DD(9002330,1035,1,1,59.2) S X=$S('$D(^DIC(16,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT1")):^("DT1"),1:""),DIV=X S $P(^("DT1"),U,14)=DIV,DIH=9002330,DIG=35 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACGCP(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^ACGCP(D0,0)):^(0),1:"")
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,3) S:'$D(^ACGCP(+D0,0)) D0=-1 S Y(101)=$S($D(^ACGCP(D0,0)):^(0),1:"")
    CREATE VALUE)= #1035:#.01:#.01
    DELETE VALUE)= NO EFFECT
    FIELD)= #35
1037 P-CAN NO. 1 10;4 POINTER TO COMMON ACCOUNTING NUMBER FILE (#9999999.57)
************************REQUIRED FIELD************************
COMMON ACCOUNTING NUMBER(#9999999.57)

  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  Enter the appropriate CAN from the list.
  • DESCRIPTION:  
    This is a pointer to the official CAN listing which allows you to enter the first CAN which is applicable to this contract action.
  • SCREEN:  S DIC("S")="Q:'$D(^ACGS(DA,10)) I +Y'=$P(^ACGS(DA,10),U,5)&(+Y'=$P(^(10),U,6))"
  • EXPLANATION:  SCREENS TO ENSURE CAN NO.'S ARE NOT DUPLICATED.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  9002330^AC^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^37
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002330,1037,1,2,1.1) X ^DD(9002330,1037,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,2)=DIV,DIH=9002330,DIG=37 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(9002330,1037,1,2,2.4)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,2)=DIV,DIH=9002330,DIG=37 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #1037:#.01
    DELETE VALUE)= @
    FIELD)= #37
1038 CAN 1 FY DT3;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 05, 1992
  • HELP-PROMPT:  Answer must be 2 numeric characters in length.
  • DESCRIPTION:  
    This information allows the user to indicate the Fiscal Year of the funds for the first CAN.
1039 P-CAN NO. 2 10;5 POINTER TO COMMON ACCOUNTING NUMBER FILE (#9999999.57) COMMON ACCOUNTING NUMBER(#9999999.57)

  • INPUT TRANSFORM:  S DIC("S")="Q:'$D(^ACGS(DA,10)) I $D(^AUTTCAN(""B"",X)),+Y'=$P(^ACGS(DA,10),U,4)&(+Y'=$P(^(10),U,6))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 02, 1993
  • HELP-PROMPT:  Enter a CAN number from the list.
  • DESCRIPTION:  
    This is a pointer to the official CAN list which allows you to indicate the second CAN applicable to this contract action.
  • SCREEN:  S DIC("S")="Q:'$D(^ACGS(DA,10)) I $D(^AUTTCAN(""B"",X)),+Y'=$P(^ACGS(DA,10),U,4)&(+Y'=$P(^(10),U,6))"
  • EXPLANATION:  SCREENS TO ENSURE CAN NO'S ARE NOT DUPLICATED.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  9002330^AD^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^39
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002330,1039,1,2,1.1) X ^DD(9002330,1039,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,4)=DIV,DIH=9002330,DIG=39 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002330,1039,1,2,2.1) X ^DD(9002330,1039,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002330,1039,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,4)=DIV,DIH=9002330,DIG=39 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,5) S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,0)):^(0),1:"")
    CREATE VALUE)= #1039:#.01
    DELETE VALUE)= #1039:#.01
    FIELD)= #39
1040 CAN 2 FY DT3;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 05, 1992
  • HELP-PROMPT:  Answer must be 2 numeric characters in length.
  • DESCRIPTION:  
    This information allows the user to indicate the Fiscal Year of the funds for the second CAN.
1041 P-CAN NO. 3 10;6 POINTER TO COMMON ACCOUNTING NUMBER FILE (#9999999.57) COMMON ACCOUNTING NUMBER(#9999999.57)

  • INPUT TRANSFORM:  S DIC("S")="Q:'$D(^ACGS(DA,10)) I $D(^AUTTCAN(""B"",X)),+Y'=$P(^ACGS(DA,10),U,4)&(+Y'=$P(^(10),U,5))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 02, 1993
  • HELP-PROMPT:  Enter a CAN number from the list.
  • DESCRIPTION:  
    This is a pointer to the official CAN file list which allows you to indicate the third CAN which is applicable to this contract action.
  • SCREEN:  S DIC("S")="Q:'$D(^ACGS(DA,10)) I $D(^AUTTCAN(""B"",X)),+Y'=$P(^ACGS(DA,10),U,4)&(+Y'=$P(^(10),U,5))"
  • EXPLANATION:  SCREENS TO ENSURE CAN NO.'S ARE NOT DUPLICATED.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  9002330^AE^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^41
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002330,1041,1,2,1.1) X ^DD(9002330,1041,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,6)=DIV,DIH=9002330,DIG=41 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002330,1041,1,2,2.1) X ^DD(9002330,1041,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002330,1041,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,6)=DIV,DIH=9002330,DIG=41 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,6) S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,0)):^(0),1:"")
    CREATE VALUE)= #1041:#.01
    DELETE VALUE)= #1041:#.01
    FIELD)= #41
1042 CAN 3 FY DT3;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  MAY 05, 1992
  • HELP-PROMPT:  Answer must be 2 numeric characters in length.
  • DESCRIPTION:  
    This information allows the user to indicate the Fiscal Year of the funds for the third CAN.
1054 P-COMMON PARENT 10;7 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  MAR 13, 1991
  • HELP-PROMPT:  Enter the appropriate name from the list.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^54
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y X ^DD(9002330,1054,1,1,1.1) X ^DD(9002330,1054,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,19)=DIV,DIH=9002330,DIG=54 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y X ^DD(9002330,1054,1,1,2.1) X ^DD(9002330,1054,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002330,1054,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,19)=DIV,DIH=9002330,DIG=54 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,7) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,0)):^(0),1:"")
    CREATE VALUE)= #1054:#.01
    DELETE VALUE)= #1054:#.01
    FIELD)= #54
  • CROSS-REFERENCE:  ^^TRIGGER^9002330^55
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y X ^DD(9002330,1054,1,2,1.1) X ^DD(9002330,1054,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,20)=DIV,DIH=9002330,DIG=55 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGS(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y X ^DD(9002330,1054,1,2,2.1) X ^DD(9002330,1054,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002330,1054,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGS(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,20)=DIV,DIH=9002330,DIG=55 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGS(D0,10)):^(10),1:""),D0=$P(Y(1),U,7) S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"")
    CREATE VALUE)= #1054:#1101
    DELETE VALUE)= #1054:#1101
    FIELD)= #55
1099 DATE LAST EDITED 10;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 24, 1993
  • HELP-PROMPT:  Enter the last date on which this record was edited.
  • DESCRIPTION:  
    This indicates the last date on which this record was edited.
  • CROSS-REFERENCE:  9002330^Q
    1)= S ^ACGS("Q",$E(X,1,30),DA)=""
    2)= K ^ACGS("Q",$E(X,1,30),DA)
1100 DATE LAST SENT 10;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 24, 1993
  • HELP-PROMPT:  Enter the date this action was last sent to the IHS CIS system.
  • DESCRIPTION:  
    This date indicates the date on which this contract action was last sent as an update to the central IHS consolidated CIS system.
1101 DATE IMPORTED 10;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 24, 1993
  • HELP-PROMPT:  Enter the appropriate date in the formated indicated.
  • DESCRIPTION:  
    This indicates the date on which the information for this contract action was imported from the TRAIS system.
1102 FY AWARD 10;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-99999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 24, 1993
  • HELP-PROMPT:  Type a Number between -99999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This information indicates the fiscal year in which this award is applicable
1103 TOTAL INDIRECT COST 10;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 24, 1993
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is used for calculation of the total indirect cost for a contract.
  • NOTES:  TRIGGERED by the INDIRECT COST field of the CIS CONTRACTS AND GRANTS File
1104 FISCAL YEAR EXPORT IHS;23 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 09, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether this record was exported to the IHS consolidated system during the fiscal year.
2001 COMMENTS 2;0 WORD-PROCESSING #9002330.2001

  • DESCRIPTION:  
    This word processing field allow you to enter any comments pertinent to this contract action.
3001 SUSPENSE DATE 3;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 03, 1992
  • HELP-PROMPT:  Enter the date on which the next activity for this contract is needed.
  • DESCRIPTION:  
    Indicate the date on which the next acttivity on this contract is needed.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All