Print Page as PDF
READ/WRITE ACCESS W/FILEMAN TO LOCK FIELD (#3) ICR (5614)

READ/WRITE ACCESS W/FILEMAN TO LOCK FIELD (#3)    ICR (5614)

Name Value
NUMBER 5614
IA # 5614
FILE NUMBER 19
GLOBAL ROOT DIC(19,
DATE CREATED 2011/03/02
CUSTODIAL PACKAGE KERNEL
USAGE Controlled Subscription
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME READ/WRITE ACCESS W/FILEMAN TO LOCK FIELD (#3)
GENERAL DESCRIPTION
Additional package(s) have been added to this ICR as
subscribers.      The listed packages may use standard FileMan APIs such as
$$GET1^DIQ to read the current value of the NAME and LOCK fields.       It may
also be used to delete the current value of the LOCK field from an   existing
option during a patch install since KIDS does not provide that capability.
The ICR supports the back-out/rollback process.

1) The following FileMan API is used to query for the NAME field (#.01) and
the LOCK field (#3) in the OPTION file (#19):

D LIST^DIC(19,"","@;.01I;.01;3I;3","PQ","","","","",LRSCR,"",,"LRMSG")

where LRSCR="I ($E(^(0),1,2)=""LA""!($E(^(0),1,2)=""LR""))"

2) The following FileMan API is used to update the LOCK field (#3) in the
OPTION file (#19):

S LRFDA(19,LROPT_",",3)=LRVALI
D FILE^DIE("","LRFDA","LRMSG")

where LROPT is the OPTION file (#19) IEN
LRVALI is the Name of the Key
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER
DIC(19,DA,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
3 Both R/W w/Fileman LOCK 0;6
.01 Read w/Fileman NAME 0;1
STATUS Active
KEYWORDS
  • LSRP
  • ROLLBACK
DURATION Till Otherwise Agreed
ID DIC(19,
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE SUBSCRIBING DETAILS
LAB SERVICE
FEE BASIS
Fee Basis added as a subscriber on 7/6/15.
DATE ACTIVATED 2011/03/07