DIBTED ;SFISC/GFT-SCREEN-EDIT A SORT TEMPLATE ;15NOV2012
Source file <DIBTED.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
K | ||
EDIT(DIBT0) | ; EDIT VIA VA FILEMAN SCREEN EDITOR
|
|
E | ||
DDW | ||
GET(DIBTA) | ;put displayable template into @DIBTA
|
|
FROMDATE | ||
TODATE | ||
NL | ||
W(X) | ||
PROCESS(DIBTA) | ;puts nodes into ^UTILITY("DIBTED")
|
|
GOODQ | ||
Q | ||
LINE() | ||
G | ||
STRIP(X) | ||
B | ||
PUT | ;save template from ^UTILITY
|
|
SAVEAS | ||
SAVEFLDS(DIBT1) | ;
|
|
NOW | ||
BUILDNEW(GFTOUT,DRK,ARRAY,DINAME) | ;TAKE SORT TEMPLATE SPEC FOR FILE 'DRK' AND RETURN NEW SORT TEMPLATE NUMBER AND NAME
|
|
TEST |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|