| FIELD |
-
- FIELD ORDER: 84
- CAPTION: POINT TO WHICH FILE
- PRE ACTION: S:$G(DICATTSC)=7 DDACT="CL"
- FIELD TYPE: FORM ONLY
- READ TYPE: POINTER
- QUALIFIERS: 1:EOFIZ
- SCREEN: S DIR("S")="I Y-1.1 N DIFILE,DIAC S DIFILE=+Y,DIAC=""RD"" D ^DIAC I %"
- UNIQUE NAME: FILE
- DATA COORDINATE: 2,27
- DATA LENGTH: 39
- CAPTION COORDINATE: 2,6
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$P($G(^DIC(+$P(DICATT2,"P",2),0)),U)
-
- FIELD ORDER: 85
- CAPTION: SHALL 'ADDING A NEW FILE ENTRY ("LAYGO") BE ALLOWED
- DATA VALIDATION: N DIFILE,DIAC S DIAC="LAYGO",DIFILE=$$GET^DDSVALF(84,,,"I","") D ^DIAC I $P($G(^DD(DIFILE,0,"DI")),U,2)["Y"!'DIAC S DDSERROR=1 D HLP^DDSUTL("NO LAYGO-ING TO THIS FILE!")
- FIELD TYPE: FORM ONLY
- READ TYPE: YES OR NO
- UNIQUE NAME: LAYGO
- DATA COORDINATE: 4,59
- DATA LENGTH: 3
- CAPTION COORDINATE: 4,6
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y="N" I DICATT2["P" S Y=$E("YN",DICATT2["'"+1)
|
