| FIELD |
-
- FIELD ORDER: 1
- CAPTION: DESCRIPTION...
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 3,36
- DATA LENGTH: 1
- CAPTION COORDINATE: 3,21
- SUPPRESS COLON AFTER CAPTION?: YES
-
- FIELD ORDER: 10
- CAPTION: POST-SELECTION ACTION
- DATA VALIDATION: D ^DIM I '$D(X) S DDSERROR=1
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- PARAMETERS: UF
- QUALIFIERS: 3:250
- HELP:
If a line of MUMPS code is entered here, it will be executed
every time after a selection from the File is made.
At the time of execution, 'Y' is the return value from the "DIC" lookup.
- UNIQUE NAME: POST-SELECTION ACTION
- DATA COORDINATE: 15,26
- DATA LENGTH: 52
- CAPTION COORDINATE: 15,3
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DA,0,"ACT"))
-
- FIELD ORDER: 11
- CAPTION: LOOK-UP PROGRAM
- DATA VALIDATION: I X]"",'$$ROUEXIST^DILIBF(X)!(X?1"DI".E)!(X'?3U.5UN) S DDSERROR=1
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- PARAMETERS: FO
- HELP:
Enter a valid MUMPS routine name of from 3 to 8 characters. This must
be entered without a leading up-arrow, and cannot begin with "DI".
It must name a routine currently on the system.
This special lookup routine will be executed instead of the standard
FileMan lookup logic, whenever a call is made to ^DIC.
- UNIQUE NAME: LOOK-UP PROGRAM
- DATA COORDINATE: 16,26
- DATA LENGTH: 8
- CAPTION COORDINATE: 16,9
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DA,0,"DIC"))
-
- FIELD ORDER: 12
- CAPTION: CROSS-REFERENCE ROUTINE
- DATA VALIDATION: I X?1"DI".E!(X'?3U.3NU),X]"" S DDSERROR=1
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- HELP:
If the routine name is deleted, the cross-references are considered
un-compiled, and FileMan will not use the routine for re-indexing.
Enter a valid MUMPS routine name of from 3 to 6 characters. This must
be entered without a leading up-arrow, and cannot begin with "DI".
This will become the namespace of the compiled routine(s).
If a NEW routine name is entered, but the cross-references are not
compiled at this time, the routine name will be automatically deleted.
- UNIQUE NAME: CROSS-REFERENCE ROUTINE
- DATA COORDINATE: 17,26
- DATA LENGTH: 6
- CAPTION COORDINATE: 17,1
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DA,0,"DIK"))
-
- FIELD ORDER: 1.8
- CAPTION: DEVELOPER
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 5,36
- DATA LENGTH: 35
- CAPTION COORDINATE: 5,25
-
- FIELD ORDER: 1.2
- CAPTION: Select APPLICATION GROUP
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 4,36
- DATA LENGTH: 5
- CAPTION COORDINATE: 4,10
-
- FIELD ORDER: .1
- FIELD TYPE: COMPUTED
- UNIQUE NAME: NUMBER
- COMPUTED EXPRESSION: S Y="(File # "_DA_")"
- DATA COORDINATE: 3,49
- DATA LENGTH: 18
-
- FIELD ORDER: .2
- CAPTION: FILE NAME
- POST ACTION ON CHANGE: I X="" S DDACT="EX"
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- QUALIFIERS: 3:45
- UNIQUE NAME: NAME
- DATA COORDINATE: 2,12
- DATA LENGTH: 45
- CAPTION COORDINATE: 2,1
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$P($G(^DIC(DA,0)),U)
-
- FIELD ORDER: 13
- FIELD TYPE: COMPUTED
- UNIQUE NAME: FORMERLY COMPILED AS
- COMPUTED EXPRESSION: S Y="" I '$D(^DD(DA,0,"DIK")) S Y=$G(^("DIKOLD")) S:Y]"" Y="(formerly compiled as '"_Y_"')"
- DATA COORDINATE: 17,37
- DATA LENGTH: 31
-
- FIELD ORDER: 2
- CAPTION: DATA DICTIONARY ACCESS
- DATA VALIDATION: D ACCVAL^DIU20(X)
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- UNIQUE NAME: DATA DICTIONARY ACCESS
- DATA COORDINATE: 6,36
- DATA LENGTH: 13
- CAPTION COORDINATE: 6,12
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DIC(DA,0,"DD"))
-
- FIELD ORDER: 3
- CAPTION: READ ACCESS
- DATA VALIDATION: D ACCVAL^DIU20(X)
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- UNIQUE NAME: READ ACCESS
- DATA COORDINATE: 7,36
- DATA LENGTH: 13
- CAPTION COORDINATE: 7,23
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DIC(DA,0,"RD"))
-
- FIELD ORDER: 4
- CAPTION: WRITE ACCESS
- DATA VALIDATION: D ACCVAL^DIU20(X)
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- UNIQUE NAME: WRITE ACCESS
- DATA COORDINATE: 8,36
- DATA LENGTH: 13
- CAPTION COORDINATE: 8,22
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DIC(DA,0,"WR"))
-
- FIELD ORDER: 5
- CAPTION: DELETE ACCESS
- DATA VALIDATION: D ACCVAL^DIU20(X)
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- UNIQUE NAME: DELETE ACCESS
- DATA COORDINATE: 9,36
- DATA LENGTH: 13
- CAPTION COORDINATE: 9,21
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DIC(DA,0,"DEL"))
-
- FIELD ORDER: 6
- CAPTION: LAYGO ACCESS
- DATA VALIDATION: D ACCVAL^DIU20(X)
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- UNIQUE NAME: LAYGO ACCESS
- DATA COORDINATE: 10,36
- DATA LENGTH: 13
- CAPTION COORDINATE: 10,22
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DIC(DA,0,"LAYGO"))
-
- FIELD ORDER: 7
- CAPTION: AUDIT ACCESS
- DATA VALIDATION: D ACCVAL^DIU20(X)
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- UNIQUE NAME: AUDIT ACCESS
- DATA COORDINATE: 11,36
- DATA LENGTH: 13
- CAPTION COORDINATE: 11,22
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DIC(DA,0,"AUDIT"))
-
- FIELD ORDER: 9
- CAPTION: ASK 'OK' WHEN LOOKING UP AN ENTRY
- FIELD TYPE: FORM ONLY
- READ TYPE: YES OR NO
- HELP:
Answer YES to cause a lookup into this file to verify the
selection by prompting with
'...OK? YES// '
- UNIQUE NAME: ASK OK
- DATA COORDINATE: 13,36
- DATA LENGTH: 3
- CAPTION COORDINATE: 13,1
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DIC(DA,0,"GL")) I Y["(" S Y=$G(@(Y_"0)")),Y=$P("YES^NO",U,$P(Y,U,2)'["O"+1)
-
- FIELD ORDER: 9.5
- CAPTION: FILE SCREEN
- DATA VALIDATION: D ^DIM I '$D(X) S DDSERROR=1
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- PARAMETERS: UF
- QUALIFIERS: 3:200
- HELP:
A line of MUMPS code can be entered here. It should set the $T switch TRUE
or FALSE. At the time of execution, 'Y' is the number of a File entry
which we want to FILTER for lookup. Thus this code is a 'permanent DIC("S")' for the File. MISUSE OF THIS CAN DISENABLE THE FILE!
- UNIQUE NAME: FILE SCREEN
- DATA COORDINATE: 14,26
- DATA LENGTH: 40
- CAPTION COORDINATE: 14,13
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$G(^DD(DA,0,"SCR"))
|
