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.16

Package: IFCAP

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

Sub-Field: 442.16


Information

Parent File Name Number Package
442.1 BREAKOUT CODE 442.16 IFCAP

Details

Field # Name Loc Type Details
.01 BREAKOUT CODE 0;1 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(PRCHN(""LSA"")),$D(PRCHN(""TC"")),""GHJKMNOWVY""[$P(^PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
  • LAST EDITED:  SEP 15, 1988
  • DESCRIPTION:  
    This is the breakout code from FY88 and the socioeconomic group code for FY89.
  • SCREEN:  S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCHN(""LSA"")),$D(PRCHN(""TC"")),""GHJKMNOWVY""[$P(^PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2"
  • EXPLANATION:  MUST BE A BREAKOUT CODE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442.16^B
    1)= S ^PRC(442,DA(2),9,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(442,DA(2),9,DA(1),1,"B",$E(X,1,30),DA)
Info |  Details