DELETION OF DIC(S) VALUE FROM OPTION ICR (6765)

Name

Value

NUMBER

6765

IA #

6765

FILE NUMBER

GLOBAL ROOT

DIC(19,

DATE CREATED

2017/05/22

CUSTODIAL PACKAGE

KERNEL

USAGE

Private

TYPE

File

NAME

DELETION OF DIC(S) VALUE FROM OPTION

GENERAL DESCRIPTION

During installation by KIDS distribution of a patch
which updates an option's definition to delete a DIC(S) value, although the
value of other fields are overlaid with the incoming values, the existing
DIC(S) value is not nulled out when the incoming value is null.  The
post-install routine must include logic like invoking FILE^DIE() to remove the
value from the Option (#19) file entry.

GLOBAL REFERENCE

FIELD NUMBER

DIC(19,D0,34)

FIELD NUMBER

ACCESS

FIELD DESCRIPTION

FIELD NAME

LOCATION

Write w/Fileman

Used in conjunction with INQUIRE and EDIT type options
for screening entry selection.  Enter executable MUMPS code that will screen
out entries that should NOT be selected.  An entry is only selectable when the
executable code produces a truth value of 1.

DIC(S)

34;E1,245

STATUS

Pending

KEYWORDS

DIC(S)
OPTION FILE

DURATION

Till Otherwise Agreed

DIC(19,

SUBSCRIBING PACKAGE

SUBSCRIBING DETAILS

IFCAP

As the existing DIC(S) value is not nulled out when the
incoming value is null.  The post-install routine must include logic like
invoking FILE^DIE() to remove the value.  In a back-out patch I am proposing
the use of logic similar to the following to null out the value of the Option
(#19) file's DIC(S) (#34) field for the PRCO EDI VENDOR entry:

N PRCDA S PRCDA=$$LKOPT^XPDMENU("PRCO EDI VENDOR")
I PRCDA>0 D
. D BMES^XPDUTL("Deleting edit screen from option PRCO EDI VENDOR")
. N PRCARR,PRCERR S PRCARR(19,PRCDA_",",34)="@"
. D FILE^DIE("EK","PRCARR","PRCERR")
D CLEAN^DILF

Hence, IFCAP is requesting permission to update the value of the DIC(S) field
via a VA FileMan API like FILE^DIE(), as the screen deletion is not handled by
sending the new definition for an option as set up in the KIDS Build
definition.