Print Page as PDF
FILE 442 AND 443.6 FCPFIELD FIX FILE DD ICR (4870)

FILE 442 AND 443.6 FCPFIELD FIX FILE DD    ICR (4870)

Name Value
NUMBER 4870
IA # 4870
FILE NUMBER 443.6
GLOBAL ROOT DD(443.61,8
DATE CREATED 2011/01/04
CUSTODIAL PACKAGE VA FILEMAN
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME FILE 442 AND 443.6 FCPFIELD FIX FILE DD
GENERAL DESCRIPTION
This is a one time aggreement via patch PRC*5.1*128.

Kill node 9 from following field DD definition:

^DD(443.61,8,0)=FEDERAL SUPPLY CLASSIFICATION^RP441.2'X^PRC(441.2,^2;3^D
EN100^PRCHNPO7
.1)=FSC/PSC ^DD(443.61,8,1,0)=^.1
^DD(443.61,8,1,1,0)=443.61^AU^MUMPS
1)=I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN1^PRCHAMXG Q:PRCHAMDA=21
D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN1^PRCHAMXD S X=PRCHX K
PRCHX
2)=I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN1^PRCHAMXD
^DD(443.61,8,1,1,"%D",0)=^^5^5^2970416^^^^ ^DD(443.61,8,1,1,"%D",1,0)=This
x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a
^DD(443.61,8,1,1,"%D",2,0)='Line Item Edit' amendment changes this field.
^DD(443.61,8,1,1,"%D",3,0)=
^DD(443.61,8,1,1,"%D",4,0)=****NOTE-See routine PRCHAMXA for information on
variable PRCHNORE and ^DD(443.61,8,1,1,"%D",5,0)=incidence of undefined DIK
variable errors.  ^DD(443.61,8,1,1,"DT")=2950321 ^DD(443.61,8,3)=
9)=^        <<<=========== kill this field
^DD(443.61,8,21,0)=^.001^2^2^3050909^^^^ ^DD(443.61,8,21,1,0)=This is the
Federal Supply Classification for an item, or the Product
^DD(443.61,8,21,2,0)=Service Code for a service.  ^DD(443.61,8,"DT")=3050909


Global ^DD(442.01,8 -- NOTE: translation in effect ^DD(442.01,8,0)=FEDERAL
SUPPLY CLASSIFICATION^RP441.2'X^PRC(441.2,^2;3^D EN10^PRCHNPO7
.1)=FSC/PSC
3)=ANSWER MUST BE 1-24 CHARACTERS IN LENGTH
9)=^         <<<=========== kill this field
^DD(442.01,8,21,0)=^^2^2^3050809^ ^DD(442.01,8,21,1,0)=This is the Federal
Supply Classification for an item, or the Product ^DD(442.01,8,21,2,0)=Service
Code for a service.  ^DD(442.01,8,"DT")=3050809
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER
FCP
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
8 Read w/Fileman
FEDERAL SUPPLY CLASSIFICATION
FCP 8;1
442
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
8 Read w/Fileman
FEDERAL SUPPLY CLASSIFICATION
FCP 8;1
STATUS Active
KEYWORDS FCP
DURATION Till Otherwise Agreed
ID DD(443.61,8
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE SUBSCRIBING DETAILS
IFCAP
This is a one time agreement via patch PRC*5.1*128.

Must kill the 9 node in the subfiles 443.61 and 442.01 in ^DD attributes for
field 8 to allow delivery schedule editing to echo and prevent infinite loop
problem for user.
DATE ACTIVATED 2011/01/10