| GENERAL DESCRIPTION |
IFCAP needs to add ID nodes to files 410, 442, and
443.6 in support of patch PRC*5.1*146. As KIDS does not have a mechanism to
transport ID nodes of a files DD without exporting the entire file definition,
it is requested that for this patch IFCAP be permitted to set the ID node via
the post-init routine PRC5146P. The proposed lines of code are as follows
(without blank lines):
S ^DD(410,0,"ID","Z3")="D:$P($G(^(14)),U,2)]"""" EN^DDIOL(""Maximo""_$P(^(
14),U,3)_""-""_$P(^(14),U,2),,""?0""),EN^DDIOL("" "",,""!?2"")"
S ^DD(410.02,0,"ID","Z2")="D:$P($G(@(DIC_+Y_"",9)"")),U,2)]"""" EN^DDIOL("
"Maximo PR Line# ""_$P(^(9),U,2),,""!"")"
S ^DD(442,0,"ID","Z.04")="N PRCZZ S PRCZZ=$$MAX^PRCMOUTL(+Y,442) D:PRCZZ]" """
EN^DDIOL("" ""_PRCZZ,,""?0"")"
S ^DD(442.01,0,"ID","Z4")="N PRCZZ S PRCZZ=$$PRLINE^PRCMOUTL(D0,+Y,442) D:
PRCZZ]"""" EN^DDIOL(PRCZZ,,""!,?9"")"
S ^DD(443.6,0,"ID","Z.6")="N PRCZZ S PRCZZ=$$MAX^PRCMOUTL(+Y,443.6) D:PRCZ
Z]"""" EN^DDIOL("" ""_PRCZZ,,""?0"")"
S ^DD(443.61,0,"ID","Z2")="N PRCZZ S PRCZZ=$$PRLINE^PRCMOUTL(DA(1),+Y,443. 6)
D:PRCZZ]"""" EN^DDIOL(PRCZZ,,""!,?9"")"
|