Resource device filing in server option    ICR (3878)

When a KIDS distribution installs a server type option
that has an attached resource device (SERVER DEVICE field #227), the internal
entry number (ien) of the device on the origin system and not the resolved ien
of the corresponding device on the destination system files.  Thus the
installed server type option is usually now pointing to the wrong device or a
non-existent device.  As KIDS does not have a mechanism for finding the
appropriate device entry and resolving the pointer value, it is requested that
for patch PRC*5.1*63 (NATIONAL ITEM FILE - PHASE 1) IFCAP be permitted by VA
FileMan database server calls to lookup the appropriate entry and file its ien
into the server type option PRCHITEM_UPDATE during execution of the post-init
routine PRC5163P.

The proposed code from module EN^PRC5163P is:

;Linking resource device to server option
N PRCERR,PRCD,PRCDA,PRCDA2
K PRCERR
S PRCDA=$$FIND1^DIC(3.5,"","X","PRCHITEM","B","I $P(^(""TYPE""),U)=
""RES""","PRCERR")
I PRCDA'>0!$D(PRCERR) D  G EX
. N PRCT S PRCT(1)="Lookup of resource device PRCHITEM failed."
. S PRCT(2)="  You will have to manually link resource device PRCHITEM
to server"
. S PRCT(3)="  option PRCHITEM_UPDATE."
. D MES^XPDUTL(.PRCT)
K PRCERR
S PRCDA2=$$FIND1^DIC(19,"","X","PRCHITEM_UPDATE","B","","PRCERR")
I PRCDA2'>0!$D(PRCERR) D  G EX
. N PRCT S PRCT(1)="Lookup of server option PRCHITEM_UPDATE failed."
. S PRCT(2)="  Please contact NVS as there were patch installation
problems."
. D MES^XPDUTL(.PRCT)
K PRCD,PRCERR
S PRCD(19,PRCDA2_",",227)=PRCDA
D FILE^DIE("K","PRCD","PRCERR")
I $D(PRCERR) D  G EX
. N PRCT S PRCT(1)="Automated linkage of resource device PRCHITEM to
server option"
. S PRCT(2)="  PRCHITEM_UPDATE failed.  You will have to manually link
it."
. D MES^XPDUTL(.PRCT)
N PRCT S PRCT(1)="Resource device PRCHITEM was successfully linked to
server"
S PRCT(2)="  option PRCHITEM_UPDATE."
D MES^XPDUTL(.PRCT)

EX      ;
Q

• SERVER
• RESOURCE DEVICE