DICATTDE ;O-OIFO/GFT - END screen edit ;23JUN2017
Source file <DICATTDE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LAYGODEF | ;should user see 'ADDING NEW'?
|
|
| POST | ;This is the DATA VALIDATION of the DICATT FORM
|
|
| VP | ||
| TOOMUCH | ||
| NEW | ||
| FILE | ;Everything's good! We're gonna file it
|
|
| WP | ||
| M101 | ||
| DIK2 | ||
| COMPUTED | ||
| PIECE3 | ||
| DIK1 | ||
| SCREEN | ||
| COMPNODS | ||
| EGP | ;K ^DD(DICATTA,DICATTF,.009) ;WHEN FIELD CHANGES, KILL OFF ITS HELP TRANSLATIONS
|
|
| MUMPS | ||
| AUDIT | ||
| RESET | ||
| Q | ||
| UP2(A,X) | ||
| 0 | ||
| 1 | ;;.01
|
|
| 2 | ;;.1
|
|
| 3 | ;;1.1
|
|
| 4 | ;;1.2
|
|
| 5 | ;;8
|
|
| 6 | ;;8.5
|
|
| 7 | ;;9
|
|
| 8 | ;;10
|
|
| 98 | ;;3
|
|
| 99 | ;;4
|
|
| DIE | ||
| N | ;
|
|
| G(I) |
