Routine: DIPTED

Information

DIPTED ;SFISC/GFT-EDIT PRINT TEMPLATE ;2013-07-10 2:34 PM

Source file <DIPTED.m>

Name	Comments	DBIA/ICR reference
K
EDIT(DIPT)	; EDIT PRINT TEMPLATE 'DIPT' VIA VA FILEMAN SCREEN EDITOR
E
DDW
GET(DIPTA,DIT)	;put displayable template into @DIPTA
PROCESS(DIPTA)	;puts nodes into ^UTILITY("DIP2")
LINE(X)	;returns X as component of Template. DD number is currently 'DK'
F
LIT
DIC
STRIP
HARD
QQ
GF
S
DJ
VAL3
EXP
P
D
WORD
U
SAVEFLDS(Y)	;POST-SAVE OF 'DIPTED' SCREENMAN FORM
CLEAR
J
CLONE(DA)	;
ASK
PUT	;save template from ^UTILITY
SAVEAS

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO TEMPLATE SELECTED",! Line Location: E+2
Function Call: WRITE	Prompt: $C(7),$$EZBLD^DIALOG(8077) Line Location: DDW+2
Function Call: WRITE	Prompt: " ",DIPTEDER(DIPTROW) Line Location: DDW+6
Function Call: WRITE	Prompt: "<NOTHING TO SAVE>",$C(7) Line Location: DDW+7
Function Call: WRITE	Prompt: "LINE ",LINE Line Location: PROCESS+6
Function Call: WRITE	Prompt: " ERROR!" Line Location: PROCESS+7
Function Call: WRITE	Prompt: $C(27,91,74) Line Location: CLEAR+0
Function Call: WRITE	Prompt: !,$C(7),"Are you sure you want to overwrite this '",$P(Y,U,2),"' Template" Line Location: ASK+4
Function Call: WRITE	Prompt: !,$C(7),"Sorry. Another user is editing this template." Line Location: ASK+5
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: !,$C(7),"Sorry. Another user is editing this template." Line Location: SAVEAS+3