Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 443.7

Package: IFCAP

AMENDMENTS(#443.6)-->443.7

Sub-Field: 443.7


Information

Parent File Name Number Package
AMENDMENTS(#443.6) AMOUNT 443.7 IFCAP

Details

Field # Name Loc Type Details
.01 AMOUNT 0;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999.99)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 9999999.99
  • DESCRIPTION:  
    This is the amount of the contract.
  • CROSS-REFERENCE:  ^^TRIGGER^443.6^91
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(443.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,15) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(443.7,.01,1,1,1.4)
    1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,14,99)) S DIH=DIH_U" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"":U_%,1:""),DIH=443.6,DIG=91 D ^DICR:$N(^DD(DIH,
    DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(443.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,15) S DIU=X K Y S X=DIV S X=DIU-DIV X ^DD(443.7,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^PRC(443.6,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,14,99)) S DIH=DIH_U" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"":U_%,1:""),DIH=443.6,DIG=91 D ^DICR:$N(^DD(DIH,
    DIG,1,0))>0
    CREATE VALUE)= TOTAL AMOUNT+AMOUNT
    DELETE VALUE)= TOTAL AMOUNT-AMOUNT
    FIELD)= TOTAL AMOUNT
1 TYPE CODE 0;2 POINTER TO CODE INDEX FILE (#420.6)
************************REQUIRED FIELD************************
CODE INDEX(#420.6)

  • INPUT TRANSFORM:  S DIC("S")="I Y<50" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • DESCRIPTION:  
    This is the type of amendment being processed for FPDP reporting.
  • SCREEN:  S DIC("S")="I Y<50"
  • EXPLANATION:  MUST BE A TYPE CODE
1.1 COMP. STATUS/BUSINESS 0;4 POINTER TO CODE INDEX FILE (#420.6) CODE INDEX(#420.6)

  • LAST EDITED:  APR 29, 1994
  • DESCRIPTION:  
    This is the competitive status.
1.2 PREF. PROGRAM 0;5 POINTER TO CODE INDEX FILE (#420.6) CODE INDEX(#420.6)

  • LAST EDITED:  APR 29, 1994
  • DESCRIPTION:  
    This is the preference program of the vendor
2 CONTRACT # 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-17 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the contract number for the amendment, if applicable.
Info |  Details