Print Page as PDF
ID Write identifier node File #441 ICR (3875)

ID Write identifier node File #441    ICR (3875)

Name Value
NUMBER 3875
IA # 3875
FILE NUMBER 441
GLOBAL ROOT DD(441
DATE CREATED 2003/01/14
CUSTODIAL PACKAGE VA FILEMAN
CUSTODIAL ISC San Francisco
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME ID Write identifier node File #441
GENERAL DESCRIPTION
The National Item File's Item Number (NIF ITEM NUMBER
field #51) needs to be added as a write identifier to the ITEM MASTER File
#441.  Field #51, is not a user-editable field, therefore it can not be
defined as a field identifier.  As KIDS does not have a mechanism to transport
write identifiers without exporting the entire file definition, it is
requested that for patch PRC*5.1*63 (NATIONAL ITEM FILE - PHASE 1) IFCAP be
permitted to set the ID node via the post-init routine PRC5163P.  The proposed
code is as follows:

EN     ;Entry point
;Adding NIF Item # as write identifier for ITEM MASTER file (#441)
S ^DD(441,0,"ID","Z")="W:$P($G(^(0)),U,15)>0 ""   NIF#""_
$P($G(^(0)),U,1 5)"
Q
STATUS Active
KEYWORDS
  • IDENTIFIER
  • ITEM MASTER FILE
DURATION Next Version
ID DD(441
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
IFCAP Washington/Silver Spring
GOOD ONLY FOR VERSION 5.1