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: 442.1

Package: IFCAP

PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)-->442.1

Sub-Field: 442.1


Information

Parent File Name Number Package
PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) AMOUNT 442.1 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>99999999)!(X<0) X
  • LAST EDITED:  NOV 30, 1985
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 9999999.99
  • DESCRIPTION:  
    This is the amount of the purchase order/partial.
  • CROSS-REFERENCE:  ^^TRIGGER^442^91
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,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(442.1,.01,1,1,1.4)
    1.4)= S DIH=$S($D(^PRC(442,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=442,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(442,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(442.1,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^PRC(442,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=442,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 $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCH) D EN7^PRCHNPO2:'PRCHDT,PROC^PRCHFPDS:PRCHDT" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 07, 1993
  • DESCRIPTION:  
    This is the procurement method/type of business for FY89.
  • SCREEN:  S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCH) D EN7^PRCHNPO2:'PRCHDT,PROC^PRCHFPDS:PRCHDT"
  • EXPLANATION:  MUST BE A TYPE CODE
    UNEDITABLE
1.1 COMP. STATUS/BUSINESS 0;4 POINTER TO CODE INDEX FILE (#420.6)
************************REQUIRED FIELD************************
CODE INDEX(#420.6)

  • INPUT TRANSFORM:  S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")) D COMP2^PRCHFPDS" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 15, 1988
  • DESCRIPTION:  
    This is the competitive status.
  • SCREEN:  S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")) D COMP2^PRCHFPDS"
  • EXPLANATION:  Enter Competitive Status only
1.2 PREF. PROGRAM 0;5 POINTER TO CODE INDEX FILE (#420.6)
************************REQUIRED FIELD************************
CODE INDEX(#420.6)

  • INPUT TRANSFORM:  S DIC("S")="I $D(PRCHN(""MB"")),$D(PRCHDT) D PREF2^PRCHFPDS" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 1988
  • DESCRIPTION:  
    This is the preference program of the vendor for FPDS reporting.
  • SCREEN:  S DIC("S")="I $D(PRCHN(""MB"")),$D(PRCHDT) D PREF2^PRCHFPDS"
  • EXPLANATION:  Only the listed codes are allowed
2 CONTRACT # 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<3) X
  • LAST EDITED:  OCT 11, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3-17 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the contract number for this purchase order.
3 BREAKOUT CODE 1;0 POINTER Multiple #442.16 442.16

  • DESCRIPTION:  
    This is the breakout code for FPDS reporting.
Info |  Details