DIED ;SFISC/GFT,XAK - MAJOR INPUT PROCESSOR ;9MAY2016
Source file <DIED.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| O | ||
| TR | ||
| W | ||
| DQ | ;
|
|
| A | ||
| B | ;COME BACK HERE FROM DIE2
|
|
| RE | ;
|
|
| N | ||
| RD | ||
| T | ||
| P | ||
| V | ||
| UNIQ | ||
| Z | ||
| X | ||
| PR | ||
| R | ||
| S | ||
| F | ||
| Y | ||
| Q | ||
| SET | ;FROM COMPILED TEMPLATES,TOO
|
|
| READSET(X,DU,DISCR) | ;X=INCOMING VALUE, DU=SET OF CODES, DISCR=SCREENING LOGIC X IS KILLED IF BAD
|
|
| AST | ;G V:DV["'",AST^DIE9
|
|
| RW | ||
| LOADXR | ;Load all index file xrefs for a field
|
|
| KEYCHK() | ;If this is a key field, return 0 if not unique.
|
|
| UNIQFERR | ;The field is part of a key and is not unique
|
|
| NKEY | ;No value was assigned to this key field
|
|
| NOSCR | ;No screen
|
|
| SCRNL(DICONT) | ;Screen, No LAYGO allowed
|
|
| SCRL(DICONT) | ;Screen, LAYGO allowed
|
|
| EXIT | ;Cleanup and set flag to continue by executing the input transform
|
|
| DIC(D) | ;Make the appropriate ^DIC call based on D
|
|
| PARSE(IT,FRST,LAST) | ;Parse input transform
|
|
| GETXRL(FIL,FLD,PFIL,LIST) | ;Get list of indexes from DIE("PTRIX")
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
