Routine: DIBTED

Information

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	Prompt: !,"NO TEMPLATE SELECTED",! Line Location: E+2
Function Call: WRITE	Prompt: !,"CANNOT EDIT A ""BY(0)"" TEMPLATE WITH SCREEN EDITOR",! Line Location: E+3
Function Call: WRITE	Prompt: "..." Line Location: E+5
Function Call: WRITE	Prompt: !,"NO EDITABLE FIELDS EXIST IN THIS TEMPLATE.",! Line Location: E+7
Function Call: WRITE	Prompt: !,"A SEARCH TEMPLATE HAS NO EDITABLE SORT FIELDS.",! Line Location: E+8
Function Call: WRITE	Prompt: $C(7),$$EZBLD^DIALOG(8077) Line Location: DDW+2
Function Call: WRITE	Prompt: " ",DIBTEDER(DIBTROW) Line Location: DDW+7
Function Call: WRITE	Prompt: !,$C(7),"Are you sure you want to overwrite this '",$P(Y,U,2)," 'Template" Line Location: SAVEAS+2
Function Call: WRITE	Prompt: !,OUT Line Location: TEST+3