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