Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ACGEXP

Package: Contracts and Grants

Global: ^ACGEXP


Information

FileMan FileNo FileMan Filename Package
9002336 CIS CONTRACTS AND GRANTS EXPORT Contracts and Grants

Description

Pointer To FileMan Files, Total: 17

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 5 COMMON ACCOUNTING NUMBER(#9999999.57)[1037, 1039, 1041]
GEOGRAPHICAL LOCATION(#9999999.79)[1028]    SIZE OF SMALL BUSINESS(#9999999.81)[66]    TYPE OF BUSINESS(#9999999.76)[13]    VENDOR(#9999999.11)[1005, 1054]    
Kernel 1 STATE(#5)[8]    

Fields, Total: 114

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:  MAR 30, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • CROSS-REFERENCE:  9002336^I
    1)= S ^ACGEXP("I",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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
.03 ORIGINAL CONTRACT 0;3 POINTER TO CIS CONTRACTS AND GRANTS EXPORT FILE (#9002330) CIS CONTRACTS AND GRANTS(#9002330)

  • LAST EDITED:  FEB 19, 1991
  • CROSS-REFERENCE:  9002336^C
    1)= S ^ACGEXP("C",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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:  DEC 12, 1990
.05 VENDOR CONTRACT DFN 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 21, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
1 TYPE OF PROCUREMENT ACTION DT;1 POINTER TO CIS TYPE OF PROCUREMENT ACTION FILE (#9002330.1) CIS TYPE OF PROCUREMENT ACTION(#9002330.1)
2 CONTRACT IDENTIFICATION NUMBER DT;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S:$L(X)=9 X=X_"000" K:$L(X)>15!($L(X)<12) X I $D(X),$D(^ACGEXP("B",X)) W !!,*7,"CONTRACT NO. ",X," HAS ALREADY BEEN ASSIGNED." K X
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Answer must be 12-15 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002336^B
    1)= S ^ACGEXP("B",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("B",$E(X,1,30),DA)
3 AGENCY ORDER NUMBER DT;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<12) X
  • HELP-PROMPT:  Answer must be 12 characters in length.
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.
  • CROSS-REFERENCE:  9002336^N
    1)= S ^ACGEXP("N",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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:  MAR 31, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • 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 EXPORT File
  • CROSS-REFERENCE:  9002336^O
    1)= S ^ACGEXP("O",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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.
  • 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 EXPORT 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.
  • 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 EXPORT File
8 CONTRACTOR'S STATE DT;8 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  NOV 21, 1990
  • 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 EXPORT 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.
  • 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 EXPORT 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.
  • 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 EXPORT File
  • CROSS-REFERENCE:  9002336^P
    1)= S ^ACGEXP("P",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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)<12) X
  • LAST EDITED:  MAR 30, 1991
  • HELP-PROMPT:  Answer must be 12 characters in length.
  • 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 EXPORT File
  • CROSS-REFERENCE:  9002336^M
    1)= S ^ACGEXP("M",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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:  MAR 31, 1991
  • SCREEN:  S DIC("S")="D 12^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002336^AF^MUMPS
    1)= Q
    2)= Q
13 TYPE OF BUSINESS DT;13 POINTER TO TYPE OF BUSINESS FILE (#9999999.76) 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:  MAR 18, 1991
  • 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
    TRIGGERED by the P-CONTRACTOR'S NAME field of the CIS CONTRACTS AND GRANTS EXPORT File
  • CROSS-REFERENCE:  9002336^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.
  • CROSS-REFERENCE:  9002336^J
    1)= S ^ACGEXP("J",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=2"
  • EXPLANATION:  SCREEN FOR TYPES OF CONTRACTS USED BY IHS CONTRACT OFFICES.
  • CROSS-REFERENCE:  9002336^G
    1)= S ^ACGEXP("G",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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
  • SCREEN:  S DIC("S")="D 16^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002336^F
    1)= S ^ACGEXP("F",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("F",$E(X,1,30),DA)
17 SOLICITATION PROCEDURE DT;17 POINTER TO CIS SOLICITATION PROCEDURE FILE (#9002330.4) 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:  MAR 07, 1991
  • SCREEN:  S DIC("S")="D 17^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002336^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
  • SCREEN:  S DIC("S")="D 18^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002336^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:  MAR 30, 1991
  • SCREEN:  S DIC("S")="D 19^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002336^AJ^MUMPS
    1)= Q:'$D(X)  Q:X=""  S:'$D(^ACGEXP(DA,"IHS")) ^("IHS")="" S $P(^("IHS"),U,21)=$S(X<59!(X>60):2,1:1)
    2)= Q
  • CROSS-REFERENCE:  9002336^K
    1)= S ^ACGEXP("K",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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
  • SCREEN:  S DIC("S")="D 20^ACGSIE"
  • EXPLANATION:  INTERRELATIONSHIP EDIT CHECKED TO ENSURE ACCURACY.
  • CROSS-REFERENCE:  9002336^AK^MUMPS
    1)= Q
    2)= Q
21 NUMBER OF OFFERS RECEIVED DT;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 10, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
22 TITLE OF PROJECT DT1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>97!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-97 characters in length.
23 AWARD DATE DT1;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 06, 1991
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:  MAR 06, 1991
25 COMPLETION DATE DT1;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 06, 1991
26 DOLLAR AMOUNT DT1;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-99999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 03, 1991
  • HELP-PROMPT:  Type a Number between -99999999 and 999999999, 0 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^106
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002336,26,1,1,1.4)
    1.4)= S DIH=$S($D(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,7)=DIV,DIH=9002336,DIG=106 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(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002336,26,1,1,2.1) X ^DD(9002336,26,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACGEXP(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,5)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,7)=DIV,DIH=9002336,DIG=106 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #26
    DELETE VALUE)= #26
    FIELD)= #106
27 PROCUREMENT PURPOSE CODE DT1;6 POINTER TO CIS PROCUREMENT PURPOSE CODE FILE (#9002330.9)
************************REQUIRED FIELD************************
CIS PROCUREMENT PURPOSE CODE(#9002330.9)

  • LAST EDITED:  MAR 06, 1991
28 PLACE OF PERFORMANCE DT1;7 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.
29 COST ACCTG STANDARD CLAUSE DT1;8 SET
  • '1' FOR REQUIRED;
  • '2' FOR NOT REQUIRED;

  • LAST EDITED:  FEB 15, 1991
30 WOMEN-OWNED SMALL BUSINESS DT1;9 SET
  • '0' FOR EXEMPT;
  • '1' FOR YES;
  • '2' FOR NO;
  • '3' FOR NOT CERTIFIED;

  • LAST EDITED:  FEB 19, 1991
  • 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 EXPORT File
  • CROSS-REFERENCE:  9002336^E
    1)= S ^ACGEXP("E",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^105
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(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(9002336,31,1,1,1.4)
    1.4)= S DIH=$S($D(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,6)=DIV,DIH=9002336,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(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002336,31,1,1,2.1) X ^DD(9002336,31,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACGEXP(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,10),X=X
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,6)=DIV,DIH=9002336,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
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.
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
35 PROJECT OFFICER DT1;14 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 13, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • NOTES:  TRIGGERED by the P-PROJECT OFFICER field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the P-PROJECT OFFICER field of the CIS CONTRACTS AND GRANTS EXPORT File
36 INDIRECT COST DT2;1 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
37 CAN NO. DT2;2 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.
  • NOTES:  TRIGGERED by the P-CAN NO. 1 field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the P-CAN NO. 1 field of the CIS CONTRACTS AND GRANTS EXPORT File
38 DOLLARS - FIRST CAN NO. DT2;3 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
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.
  • NOTES:  TRIGGERED by the P-CAN NO. 2 field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the P-CAN NO. 2 field of the CIS CONTRACTS AND GRANTS EXPORT File
40 DOLLARS - SECOND CAN NO. DT2;5 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
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.
  • NOTES:  TRIGGERED by the P-CAN NO. 3 field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the P-CAN NO. 3 field of the CIS CONTRACTS AND GRANTS EXPORT File
42 DOLLARS - THIRD CAN NO. DT2;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 21, 1991
  • HELP-PROMPT:  Type a Number between -9999999 and 9999999, 0 Decimal Digits
43 COST OVERRUN - DIRECT COST DT2;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
  • LAST EDITED:  FEB 07, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
44 COST OVERRUN - INDIRECT COST DT2;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
  • LAST EDITED:  FEB 07, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
45 SYNOPSIS OF PROCUREMENT DT2;10 SET
  • '1' FOR SYNOPSIZED PRIOR TO AWARD;
  • '2' FOR NOT SYNOPSIZED DUE TO URGENCY;
  • '3' FOR NOT SYNOPSIZED DUE TO OTHER REASONS;

  • LAST EDITED:  FEB 15, 1991
46 AMOUNT OF FEE AWARDED DT2;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
  • LAST EDITED:  FEB 07, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
47 SUBCONTRACT TOTAL DOLLARS DT2;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
  • LAST EDITED:  FEB 07, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
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
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
50 INCREMENTALLY FUNDED DT2;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
  • LAST EDITED:  MAR 03, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
51 FOREIGN GOV'T OR INTERNT'L ORG DT2;16 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
52 TARIFF OR REGULATED (PRE-CICA) DT2;17 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
53 PRINCIPAL SIC CODE DT2;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • HELP-PROMPT:  Answer must be 4 characters in length.
54 COMMON PARENT DT2;19 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.
  • NOTES:  TRIGGERED by the P-COMMON PARENT field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the P-COMMON PARENT field of the CIS CONTRACTS AND GRANTS EXPORT 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.
  • NOTES:  TRIGGERED by the P-COMMON PARENT field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the P-COMMON PARENT field of the CIS CONTRACTS AND GRANTS EXPORT File
56 SUBCONTRACTING PLAN REQ. DT3;1 SET
  • '1' FOR REQUIRED;
  • '2' FOR NOT REQUIRED;

  • LAST EDITED:  FEB 15, 1991
57 CONTRACT CONTAINS SUB-K PLAN DT3;2 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
58 AIDS AFFILIATED CONTRACT DT3;3 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
59 AIDS AFFIL. CONTRACT DOLLARS DT3;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
  • LAST EDITED:  FEB 07, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
60 MULTIPLE PLACE OF PERFORMANCE DT3;5 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 07, 1991
61 MULTIPLE PRODUCT SERVICE CODE DT3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  FEB 07, 1991
  • HELP-PROMPT:  Answer must be 4 characters in length.
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
  • CROSS-REFERENCE:  9002336^AL^MUMPS
    1)= Q
    2)= Q
63 SB DEMONSTRATION TEST PROGRAM DT3;8 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
64 EMERGING SMALL BUSINESS DT3;9 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
65 EMERGING SB RESERVE AWARD DT3;10 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 15, 1991
66 SIZE OF SMALL BUSINESS DT3;11 POINTER TO SIZE OF SMALL BUSINESS FILE (#9999999.81)
************************REQUIRED FIELD************************
SIZE OF SMALL BUSINESS(#9999999.81)

  • LAST EDITED:  MAR 18, 1991
  • 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 EXPORT File
67 FUTURE EXPANSION DT3;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>37!($L(X)<3) X
  • LAST EDITED:  NOV 21, 1990
  • HELP-PROMPT:  Answer must be 3-37 characters in length.
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.
  • GROUP:  TRANS
  • 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 EXPORT 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.
  • GROUP:  TRANS
  • 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 EXPORT File
    TRIGGERED by the P-PLACE OF PERFORMANCE field of the CIS CONTRACTS AND GRANTS EXPORT 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.
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.
  • CROSS-REFERENCE:  9002336^D
    1)= S ^ACGEXP("D",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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
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
  • NOTES:  TRIGGERED by the SUBJECT TO STAT REQ'S field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the SUBJECT TO STAT REQ'S field of the CIS CONTRACTS AND GRANTS EXPORT File
106 TOTAL CONTRACT VALUE IHS;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits
  • NOTES:  TRIGGERED by the DOLLAR AMOUNT field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the DOLLAR AMOUNT field of the CIS CONTRACTS AND GRANTS EXPORT File
107 LABOR SURPLUS AREA IHS;8 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 19, 1991
108 PROPERTY FURNISHED IHS;9 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 26, 1991
109 PRIVACY ACT IHS;10 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 26, 1991
110 MINORITY BUSINESS IHS;11 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 25, 1991
    WRITE AUTHORITY:  ^
  • 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 EXPORT File
111 MINORITY NON-PROFIT ORG IHS;12 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  MAR 17, 1991
  • 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 EXPORT File
112 SMALL BUSINESS STATUS IHS;13 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 25, 1991
  • 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 EXPORT File
113 BASIC ORDERING AGREEMENT IHS;14 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 25, 1991
114 MEDICAL SERVICES IHS;15 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 25, 1991
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.
  • NOTES:  TRIGGERED by the CONTRACT SPECIALIST field of the CIS CONTRACTS AND GRANTS File
    TRIGGERED by the CONTRACT SPECIALIST field of the CIS CONTRACTS AND GRANTS EXPORT File
116 GSA MOTOR POOL IHS;17 SET
  • '1' FOR YES;
  • '0' FOR NO;
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
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
119 INDIAN OWNED IHS;20 SET
  • '1' FOR YES;
  • '0' FOR NO;
120 IN 8(a) PROGRAM IHS;21 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  APR 03, 1991
121 STATUS CODE IHS;22 SET
  • '1' FOR ACTIVE;
  • '2' FOR COMPLETED PHYSICALLY;
  • '3' FOR COMPLETED ADMINISTRATIVELY;

  • LAST EDITED:  MAR 30, 1991
  • CROSS-REFERENCE:  9002336^L
    1)= S ^ACGEXP("L",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("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:  MAR 17, 1991
  • CROSS-REFERENCE:  9002336^AM^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  9002336^AO^MUMPS
    1)= Q:X=""  I $D(^ACGEXP(DA,"IHS1")),$P(^("IHS1"),U,2)'="",$D(^ACGCC(X,0)) S $P(^ACGEXP(DA,"IHS"),U,3)=$P(^ACGCC(X,0),U)_$P(^ACGSC($P(^ACGEXP(DA,"IHS1"),U,2),0),U)
    2)= Q:X=""  I $D(^ACGEXP(DA,"IHS1")),$P(^("IHS1"),U,2)'="",$D(^ACGCC(X,0)) S $P(^ACGEXP(DA,"IHS"),U,3)=$P(^ACGCC(X,0),U)_$P(^ACGSC($P(^ACGEXP(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
  • CROSS-REFERENCE:  9002336^AN^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  9002336^AP^MUMPS
    1)= Q:X=""  I $D(^ACGEXP(DA,"IHS1")),$P(^("IHS1"),U)'="",$D(^ACGSC(X,0)) S $P(^ACGEXP(DA,"IHS"),U,3)=$P(^ACGCC($P(^ACGEXP(DA,"IHS1"),U),0),U)_$P(^ACGSC(X,0),U)
    2)= Q:X=""  I $D(^ACGEXP(DA,"IHS1")),$P(^("IHS1"),U)'="",$D(^ACGSC(X,0)) S $P(^ACGEXP(DA,"IHS"),U,3)=$P(^ACGCC($P(^ACGEXP(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:  FEB 28, 1991
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^115
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(9002336,153,1,1,1.1) X ^DD(9002336,153,1,1,1.4)
    1.1)= S X=DIV X ^DD(9002336,153,1,1,49.2) S 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:"") S X=$P(Y(201),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,16)=DIV,DIH=9002336,DIG=115 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(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(9002336,153,1,1,2.1) X ^DD(9002336,153,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002336,153,1,1,59.3) S X=$P(Y(201),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,16)=DIV,DIH=9002336,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(^ACGEXP(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(9002336,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:#20.1
    DELETE VALUE)= #153:#.01:#20.1
    FIELD)= #115
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
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
203 TYPE OF RATE IC;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1 character in length.
204 BASE CODE (1) IC;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1 character in length.
205 INDIRECT COST BASE AMOUNT (2) IC;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
206 INDIRECT COST RATE (2) IC;6 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
207 TYPE OF RATE (2) IC;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1 character in length.
208 BASE CODE (2) IC;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1 character in length.
1005 P-CONTRACTOR'S NAME 10;1 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  APR 05, 1991
  • GROUP:  TRANS
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002336,1005,1,1,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002336,1005,1,1,2.1) X ^DD(9002336,1005,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002336,1005,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002336,1005,1,2,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002336,1005,1,2,2.1) X ^DD(9002336,1005,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002336,1005,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002336,1005,1,3,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002336,1005,1,3,2.1) X ^DD(9002336,1005,1,3,2.4)
    2.1)= S X=DIV X ^DD(9002336,1005,1,3,59.2) S X=$P(Y(101),U,2) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^8
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002336,1005,1,4,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,8)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002336,1005,1,4,2.1) X ^DD(9002336,1005,1,4,2.4)
    2.1)= S X=DIV X ^DD(9002336,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(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,8)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^9
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002336,1005,1,5,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,9)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002336,1005,1,5,2.1) X ^DD(9002336,1005,1,5,2.4)
    2.1)= S X=DIV X ^DD(9002336,1005,1,5,59.2) S X=$P(Y(101),U,4) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,9)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^10
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002336,1005,1,6,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,10)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002336,1005,1,6,2.1) X ^DD(9002336,1005,1,6,2.4)
    2.1)= S X=DIV X ^DD(9002336,1005,1,6,59.2) S X=$P(Y(101),U,16) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,10)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002336,1005,1,7,1.1) X ^DD(9002336,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,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,11)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002336,1005,1,7,2.1) X ^DD(9002336,1005,1,7,2.4)
    2.1)= S X=DIV X ^DD(9002336,1005,1,7,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,11)=DIV,DIH=9002336,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(^ACGEXP(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:#1101
    DELETE VALUE)= #1005:#1101
    FIELD)= #11
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002336,1005,1,8,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002336,1005,1,8,2.1) X ^DD(9002336,1005,1,8,2.4)
    2.1)= S X=DIV X ^DD(9002336,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(^ACGEXP(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^30
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002336,1005,1,9,1.1) X ^DD(9002336,1005,1,9,1.4)
    1.1)= S X=DIV X ^DD(9002336,1005,1,9,49.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,15)_":",2),$C(59),1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT1")):^("DT1"),1:""),DIV=X S $P(^("DT1"),U,9)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002336,1005,1,9,2.1) X ^DD(9002336,1005,1,9,2.4)
    2.1)= S X=DIV X ^DD(9002336,1005,1,9,59.2) S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,15)_":",2),$C(59),1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT1")):^("DT1"),1:""),DIV=X S $P(^("DT1"),U,9)=DIV,DIH=9002336,DIG=30 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,1115,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(^ACGEXP(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,1115,0)):$P(^(0),U,3),1:"")
    CREATE VALUE)= #1005:#1115
    DELETE VALUE)= #1005:#1115
    FIELD)= #30
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^66
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT3")):^("DT3"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002336,1005,1,10,1.1) X ^DD(9002336,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,18),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT3")):^("DT3"),1:""),DIV=X S $P(^("DT3"),U,11)=DIV,DIH=9002336,DIG=66 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(^ACGEXP(D0,"DT3")):^("DT3"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002336,1005,1,10,2.1) X ^DD(9002336,1005,1,10,2.4)
    2.1)= S X=DIV X ^DD(9002336,1005,1,10,59.2) S Y(101)=X S X=$P(Y(102),U,18),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT3")):^("DT3"),1:""),DIV=X S $P(^("DT3"),U,11)=DIV,DIH=9002336,DIG=66 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGEXP(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(#1118)
    DELETE VALUE)= #1005:INTERNAL(#1118)
    FIELD)= #66
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^112
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002336,1005,1,11,1.1) X ^DD(9002336,1005,1,11,1.4)
    1.1)= S X=DIV X ^DD(9002336,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(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,13)=DIV,DIH=9002336,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(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002336,1005,1,11,2.1) X ^DD(9002336,1005,1,11,2.4)
    2.1)= S X=DIV X ^DD(9002336,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(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,13)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^110
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002336,1005,1,12,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,11)=DIV,DIH=9002336,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(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002336,1005,1,12,2.1) X ^DD(9002336,1005,1,12,2.4)
    2.1)= S X=DIV X ^DD(9002336,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(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,11)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^111
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002336,1005,1,13,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,12)=DIV,DIH=9002336,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(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002336,1005,1,13,2.1) X ^DD(9002336,1005,1,13,2.4)
    2.1)= S X=DIV X ^DD(9002336,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(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,12)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^100
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002336,1005,1,15,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,1)=DIV,DIH=9002336,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(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002336,1005,1,15,2.1) X ^DD(9002336,1005,1,15,2.4)
    2.1)= S X=DIV X ^DD(9002336,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(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,1)=DIV,DIH=9002336,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(^ACGEXP(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:  9002336^H
    1)= S ^ACGEXP("H",$E(X,1,30),DA)=""
    2)= K ^ACGEXP("H",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^101
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002336,1005,1,17,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,2)=DIV,DIH=9002336,DIG=101 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #1005:#1125
    DELETE VALUE)= NO EFFECT
    FIELD)= #101
1028 P-PLACE OF PERFORMANCE 10;2 POINTER TO GEOGRAPHICAL LOCATION FILE (#9999999.79) GEOGRAPHICAL LOCATION(#9999999.79)

  • LAST EDITED:  MAR 19, 1991
  • GROUP:  TRANS
  • CROSS-REFERENCE:  9002336^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(^ACGEXP(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(^ACGEXP(DA,"DT1"),U,7)=""
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^101
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002336,1028,1,2,1.1) X ^DD(9002336,1028,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTGL(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTGL(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,2)=DIV,DIH=9002336,DIG=101 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(^ACGEXP(D0,"IHS")):^("IHS"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002336,1028,1,2,2.1) X ^DD(9002336,1028,1,2,2.4)
    2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGEXP(D0,10)):^(10),1:""),D0=$P(Y(1),U,2) S:'$D(^AUTTGL(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTGL(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"IHS")):^("IHS"),1:""),DIV=X S $P(^("IHS"),U,2)=DIV,DIH=9002336,DIG=101 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #1028:#.01
    DELETE VALUE)= #1028:#.01
    FIELD)= #101
1035 P-PROJECT OFFICER 10;3 POINTER TO CIS CONTRACT PERSONNEL FILE (#9002331.4) CIS CONTRACT PERSONNEL(#9002331.4)

  • LAST EDITED:  MAR 16, 1991
  • GROUP:  TRANS
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^35
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(9002336,1035,1,1,1.1) X ^DD(9002336,1035,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACGCP(+D0,0)) D0=-1 S Y(101)=$S($D(^ACGCP(D0,0)):^(0),1:"") S X=$S('$D(^DIC(16,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT1")):^("DT1"),1:""),DIV=X S $P(^("DT1"),U,14)=DIV,DIH=9002336,DIG=35 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(^ACGEXP(D0,"DT1")):^("DT1"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(9002336,1035,1,1,2.1) X ^DD(9002336,1035,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002336,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(^ACGEXP(DIV(0),"DT1")):^("DT1"),1:""),DIV=X S $P(^("DT1"),U,14)=DIV,DIH=9002336,DIG=35 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGEXP(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
    DELETE VALUE)= #1035:#.01
    FIELD)= #35
1037 P-CAN NO. 1 10;4 POINTER TO COMMON ACCOUNTING NUMBER FILE (#9999999.57) COMMON ACCOUNTING NUMBER(#9999999.57)

  • INPUT TRANSFORM:  S DIC("S")="Q:'$D(^ACGEXP(DA,10)) I +Y'=$P(^ACGEXP(DA,10),U,5)&(+Y'=$P(^(10),U,6))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 16, 1991
  • SCREEN:  S DIC("S")="Q:'$D(^ACGEXP(DA,10)) I +Y'=$P(^ACGEXP(DA,10),U,5)&(+Y'=$P(^(10),U,6))"
  • EXPLANATION:  SCREENS TO ENSURE CAN NO.'S ARE NOT DUPLICATED.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  9002336^AC^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^37
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002336,1037,1,2,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,2)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002336,1037,1,2,2.1) X ^DD(9002336,1037,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002336,1037,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,2)=DIV,DIH=9002336,DIG=37 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGEXP(D0,10)):^(10),1:""),D0=$P(Y(1),U,4) S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,0)):^(0),1:"")
    CREATE VALUE)= #1037:#.01
    DELETE VALUE)= #1037:#.01
    FIELD)= #37
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(^ACGEXP(DA,10)) I +Y'=$P(^ACGEXP(DA,10),U,4)&(+Y'=$P(^(10),U,6))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 16, 1991
  • SCREEN:  S DIC("S")="Q:'$D(^ACGEXP(DA,10)) I +Y'=$P(^ACGEXP(DA,10),U,4)&(+Y'=$P(^(10),U,6))"
  • EXPLANATION:  SCREENS TO ENSURE CAN NO'S ARE NOT DUPLICATED.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  9002336^AD^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^39
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002336,1039,1,2,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,4)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002336,1039,1,2,2.1) X ^DD(9002336,1039,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002336,1039,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,4)=DIV,DIH=9002336,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(^ACGEXP(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
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(^ACGEXP(DA,10)) I +Y'=$P(^ACGEXP(DA,10),U,4)&(+Y'=$P(^(10),U,5))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 16, 1991
  • SCREEN:  S DIC("S")="Q:'$D(^ACGEXP(DA,10)) I +Y'=$P(^ACGEXP(DA,10),U,4)&(+Y'=$P(^(10),U,5))"
  • EXPLANATION:  SCREENS TO ENSURE CAN NO.'S ARE NOT DUPLICATED.
  • GROUP:  TRANS
  • CROSS-REFERENCE:  9002336^AE^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^41
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002336,1041,1,2,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,6)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002336,1041,1,2,2.1) X ^DD(9002336,1041,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002336,1041,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,6)=DIV,DIH=9002336,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(^ACGEXP(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
1054 P-COMMON PARENT 10;7 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  MAR 13, 1991
  • GROUP:  TRANS
  • CROSS-REFERENCE:  ^^TRIGGER^9002336^54
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y X ^DD(9002336,1054,1,1,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,19)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y X ^DD(9002336,1054,1,1,2.1) X ^DD(9002336,1054,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002336,1054,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,19)=DIV,DIH=9002336,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(^ACGEXP(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^9002336^55
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y X ^DD(9002336,1054,1,2,1.1) X ^DD(9002336,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(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,20)=DIV,DIH=9002336,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(^ACGEXP(D0,"DT2")):^("DT2"),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y X ^DD(9002336,1054,1,2,2.1) X ^DD(9002336,1054,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002336,1054,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGEXP(DIV(0),"DT2")):^("DT2"),1:""),DIV=X S $P(^("DT2"),U,20)=DIV,DIH=9002336,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(^ACGEXP(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:  APR 25, 1991
1100 DATE LAST SENT 10;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 25, 1991
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All