DICATTUD ;SFISC/MKO - USER DEFINED DATA TYPES ;24JUN2017
Source file <DICATTUD.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| BEGIN | ||
| SCREENMN | ;Come from DICATTD (ScreenMan mode)
 | 
|
| EN(A,DA,N,O) | ;
 | 
|
| DONE | ;
 | 
|
| PROPMETH(PROPMETH,N,DIPROP,DIVALS) | ;For DATA TYPE N, get a PROPERTY (PROPMETH="P") or METHOD
 | 
|
| DIR(DIPROP,DIVALS) | ;Do a ^DIR read to get value for property or method
 | 
|
| A | ;Put Prompt into DIR("A")
 | 
|
| H | ;Put Help into DIR("?")
 | 
|
| B | ;Put default into DIR("B")
 | 
|
| SAVE(DIPROP,DIVAL,DIVALS,DICAT101,DIEXEC) | ;Save the value of the property
 ; in DIVALS(abbr) and DICAT101  | 
|
| GETDEF(N,DIPROP,DIVALS) | ;Get defaults for a property.
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  |