Print Page as PDF
OPTION FILE ENTRY/EXIT FIELDS ICR (1282)

OPTION FILE ENTRY/EXIT FIELDS    ICR (1282)

Name Value
NUMBER 1282
IA # 1282
FILE NUMBER 19
GLOBAL ROOT DIC(19,
DATE CREATED 1995/06/26
CUSTODIAL PACKAGE KERNEL
CUSTODIAL ISC San Francisco
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME OPTION FILE ENTRY/EXIT FIELDS
GENERAL DESCRIPTION 
This integration agreement allows the Generic Code
Sheet package version 2.0 to update the OPTION file's (#19) ENTRY and EXIT
ACTION fields (#20 and #15) in the routine GECXPOST.  The routine GECXPOST is
distributed with patch GEC*2*2.

The routine GECXPOST will change the ENTRY ACTION field from calling an
unsupported Generic Code Sheet entry point to a supported entry point (as
defined in integration agreement #1089).  It will also change the EXIT ACTION
field from null to 'K GECSSYS' where GECSSYS is a supported Generic Code Sheet
variable.

The options defined as '<NMSP> GECS*' will have the ENTRY and EXIT ACTION
changed.  <NMSP> is defined as the namespace as follows:

ABSV      BLD       CHAP      DENT      DG        ESP
FB        FH        GMRC      LBRC      LR        MC
NURS      PLAY      PRCC      PRSP      PRSP      PS
RA        RMPR      SR        SOWK      VOLU      YS
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER
DIC(19,DA,20)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
20 Direct Global R/W & w/Fileman 
The ENTRY ACTION will be changed to call a supported
Generic Code Sheet reference.

An example of the change for the option FH GECS CODE EDIT:

Before: S GECSSYS="DIETETICS" D EDIT^GECSE1 After : S GECSSYS="DIETETICS" D
EDIT^GECSCALL

where EDIT^GECSCALL is the supported Generic Code Sheet entry point.
ENTRY ACTION 20;E1,245
DIC(19,DA,15)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
15 Direct Global R/W & w/Fileman 
The EXIT ACTION will be changed to kill the variable
GECSSYS which is set in the ENTRY ACTION of the menu option.
EXIT ACTION 15;E1,245
STATUS Active
DURATION Next Version
ID DIC(19,
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
GENERIC CODE SHEET Washington/Silver Spring
GOOD ONLY FOR VERSION 2