Routine: TIUSRVT5

Information

TIUSRVT5 ;SP/WAT - Set/Remove consult lock values for templates and fields ;05/04/20 06:49

Name	Comments	DBIA/ICR reference
SETCNLOK	;set param value for TIU TEMPLATE CONSULT LOCK and CONSULT LOCK fields in 8927 & 8927.1
ADD
PAR
FLD	;build list of template fields
SCREEN	;screen it
CHOOSE(TIUY)	;get item to delete
ERROR	; show it
BLD(TIUIEN,TIUARY)	; Build array of templates.

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SETCNLOK+7
Function Call: WRITE	Prompt: !!,"TIU TEMPLATE CONSULT LOCK parameter not found!" Line Location: SETCNLOK+9
Function Call: WRITE	Prompt: !,?5,"NUMBER",?20,"TEMPLATE" Line Location: SETCNLOK+15
Function Call: WRITE	Prompt: !,?5,"======",?20,"========" Line Location: SETCNLOK+16
Function Call: WRITE	Prompt: !,?5,TIUCNT,?20,$P(TIUY(TIUCNT),U,2) Line Location: SETCNLOK+18
Function Call: WRITE	Prompt: ! Line Location: SETCNLOK+20
Function Call: WRITE	Prompt: !,"... Deleted." Line Location: SETCNLOK+29
Function Call: WRITE	Prompt: !,"ERROR #"_$P(TIUERR,U) Line Location: ERROR+1
Function Call: WRITE	Prompt: !,"TEXT: "_$P(TIUERR,U,2),! Line Location: ERROR+2