Routine: TIUSRVT5

Information

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

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	3	(,$$FIND1)^DIC ^DIE ^DIR
Toolkit	2	(EN,GETLST)^XPAR GETENT^XPAREDIT
Text Integration Utility	1	GETBOIL^TIUSRVT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Electronic Health Modernization	1	EHM-01733
Text Integration Utility	1	TIU TEMPLATE CONSULT LOCK

Entry Points

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.

External References

Name	Field # of Occurrence
^DIC	ADD
$$FIND1^DIC	SETCNLOK+9
^DIE	PAR+12, PAR+19
^DIR	SETCNLOK+26, ADD+8, CHOOSE+5
GETBOIL^TIUSRVT	FLD+5
EN^XPAR	PAR
GETLST^XPAR	SETCNLOK+12
GETENT^XPAREDIT	SETCNLOK+10

Interaction Calls

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
Routine Call	DIC Line Location: ADD
Routine Call	DIC Line Location: SETCNLOK+9
Routine Call	DIE Line Location: PAR+12 PAR+19
Routine Call	DIR Line Location: SETCNLOK+26 ADD+8 CHOOSE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^TIU(8927 - [#8927]	Classic Fileman Calls
^TIU(8927.1 - [#8927.1]	Classic Fileman Calls
^XTV(8989.51 - [#8989.51]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8927 - [#8927]	PAR+11, PAR+12, BLD+7, BLD+8
^TIU(8927.1 - [#8927.1]	PAR+17, PAR+18, PAR+19
^TMP("TIU F"	PAR+16, PAR+17, PAR+20!, FLD+8!, FLD+19, FLD+21, FLD+22*
^TMP("TIU FIELDS"	FLD+2!, FLD+7*, FLD+9, FLD+10, FLD+24!

Label References

Name	Line Occurrences
$$CHOOSE	SETCNLOK+32
ADD	SETCNLOK+28
BLD	PAR+4, BLD+8
ERROR	SETCNLOK+13, PAR+1
FLD	PAR+13
PAR	SETCNLOK+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEG	FLD+8~, FLD+13*, FLD+14, FLD+17
CHOICE	SETCNLOK+1~, SETCNLOK+29, SETCNLOK+31, SETCNLOK+32, SETCNLOK+33, SETCNLOK+34, SETCNLOK+35
CNT	FLD+3~, FLD+4, FLD+5, FLD+9*, FLD+10
CNT2	FLD+3~, FLD+6, FLD+7
CNT3	FLD+3~, FLD+7
DA	PAR+8~, PAR+10, PAR+11, PAR+12, PAR+17, PAR+18, PAR+19
DIC	ADD~*
DIC("S"	ADD*
DIC(0	ADD*
DIE	PAR+8~, PAR+15
DIR	SETCNLOK+21~, SETCNLOK+28!, SETCNLOK+29!, SETCNLOK+35!, ADD+7~, ADD+9!, CHOOSE+1~, CHOOSE+6!
DIR("0"	ADD+7*
DIR("?"	ADD+7, CHOOSE+4
DIR("A"	SETCNLOK+25, CHOOSE+3
DIR("B"	ADD+8*
DIR(0	SETCNLOK+23, CHOOSE+2
DIROUT	SETCNLOK+21~, SETCNLOK+27, ADD+7~, ADD+8, CHOOSE+1~
DIRUT	SETCNLOK+21~, SETCNLOK+27, ADD+7~, ADD+8, CHOOSE+1~
DR	PAR+8~, PAR+15
DTOUT	SETCNLOK+21~, ADD~, ADD+7~, CHOOSE+1~
DUOUT	SETCNLOK+21~, ADD~, ADD+7~, CHOOSE+1~
END	FLD+8~, FLD+12, FLD+13, FLD+14, FLD+15, FLD+16, FLD+17, FLD+23
FIELD	FLD+8~, FLD+17*, FLD+20, FLD+21, FLD+22
I	FLD+8~, FLD+18, FLD+19, FLD+21, SCREEN+1~, SCREEN+2*, SCREEN+3, CHOOSE+1~
IOF	SETCNLOK+7
LINE	FLD+8~, FLD+10, FLD+11, FLD+13, FLD+14, FLD+15, FLD+17, FLD+23*
LNCNT	FLD+8~, FLD+22
LNWRAP	FLD+8~, FLD+11, FLD+15*
OK	FLD+8~, FLD+18, FLD+19, FLD+20, FLD+21, FLD+22, SCREEN+1~, SCREEN+3, SCREEN+5
TIUACT	SETCNLOK+1~, SETCNLOK+30, ADD
TIUARY	SETCNLOK+1~, PAR+4, BLD~, BLD+8
TIUARY(	PAR+9, PAR+10, FLD+4, FLD+5, BLD+5*
TIUARY(" "	BLD+4
TIUASK	SETCNLOK+1~, SETCNLOK+24*, SETCNLOK+25
TIUCNLK	SETCNLOK+1~, PAR+7*
TIUCNT	SETCNLOK+1~, SETCNLOK+8, SETCNLOK+17, SETCNLOK+18, SETCNLOK+19, ADD+5, ADD+6, PAR+9, PAR+10, PAR+15* , PAR+16*, PAR+17
TIUENT	SETCNLOK+1~, SETCNLOK+10, SETCNLOK+11, SETCNLOK+12, PAR
TIUERR	SETCNLOK+1~, SETCNLOK+12, SETCNLOK+13, PAR, PAR+1, ERROR+1, ERROR+2
TIUFLD	FLD+3~
TIUIDX	BLD+2~, BLD+4, BLD+5, BLD+6, BLD+7*, BLD+8
TIUIEN	SETCNLOK+1~, SETCNLOK+34, ADD+1, PAR+4, BLD~, BLD+5, BLD+7, BLD+8
TIUINST	SETCNLOK+1~, SETCNLOK+8, SETCNLOK+33, ADD+9*, PAR
TIULAST	SETCNLOK+1~, SETCNLOK+19*, ADD+3
TIUNEXT	SETCNLOK+1~, ADD+3, ADD+4, ADD+5, ADD+6, ADD+8
TIUPAR	SETCNLOK+1~, SETCNLOK+8*, SETCNLOK+9, SETCNLOK+10, SETCNLOK+12, PAR
TIUPIEN	SETCNLOK+1~, SETCNLOK+9*, SETCNLOK+10
TIUTMPL	SETCNLOK+1~, ADD+1*, ADD+2
TIUVAL	SETCNLOK+1~, SETCNLOK+33, ADD+2, PAR, PAR+7
TIUY	SETCNLOK+1~, SETCNLOK+12, SETCNLOK+14, SETCNLOK+22, SETCNLOK+31, SETCNLOK+32, ADD+5, FLD+3~, FLD+5, FLD+6 , FLD+7, CHOOSE~
TIUY(	SETCNLOK+17, SETCNLOK+18, SETCNLOK+34, ADD+6, SCREEN+2
TIUY(""	SETCNLOK+31
U	SETCNLOK+18, SETCNLOK+34, ADD+1, ERROR+1, ERROR+2, BLD+8
X	SETCNLOK+21~, ADD~, ADD+7~, SCREEN+3, SCREEN+5!, CHOOSE+1~
Y	SETCNLOK+21~, SETCNLOK+28*, SETCNLOK+29, ADD~, ADD+1, ADD+7~, ADD+9, CHOOSE+1~, CHOOSE+7

Customize PDF page

Package: Text Integration Utility