Routine: TIUPR230

Information

TIUPR230 ;SLC/AJB - Objects Skin Risk Assessment;10JUL07

Source file <TIUPR230.m>

Package	Total	Call Graph
VA Fileman	3	$$FIND1^DIC UPDATE^DIE ^DIK

Name	Comments	DBIA/ICR reference
EN	; entry
DATA	; TIU object names & HS object names
MKOBJ(OBJNAME,METHOD)	; create TIU object
LU(FILE,NAME)	; DBS lookup
DELOBJS	; remove duplicate names prior to install
MKOBJS	; make TIU objects

Name	Line Occurrences
Function Call: WRITE	Prompt: $G(IOCUON),@IOF Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Object creation finished." Line Location: EN+5
Function Call: WRITE	Prompt: !!,"TIU Object creation failed. The following error message was returned:",!! Line Location: MKOBJ+11
Function Call: WRITE	Prompt: MSG("DIERR",1,"TEXT",MSG),! Line Location: MKOBJ+12
Routine Call	DIE Line Location: MKOBJ+9
Routine Call	DIC Line Location: LU+1

FileNo	Call Tags
^TIU(8925.1 - [#8925.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EON"	EN+2
^TIU(8925.1 - [#8925.1]	DELOBJS+4

Name	Field # of Occurrence
DA	DELOBJS+1~, DELOBJS+4*, DELOBJS+6
DIK	DELOBJS+1~, DELOBJS+5*
FDA	MKOBJ+1~
FDA(	MKOBJ+2, MKOBJ+3, MKOBJ+4, MKOBJ+5, MKOBJ+6, MKOBJ+7, MKOBJ+8*
FDAIEN	MKOBJ+1~
FILE	LU~, LU+1
HSNAME	MKOBJS+1~, MKOBJS+3*, MKOBJS+4
>> IOCUON	EN+2
IOF	EN+2
METHOD	MKOBJS+1~, MKOBJS+4*, MKOBJS+5, MKOBJ~, MKOBJ+7
MSG	MKOBJ+1~, MKOBJ+10, MKOBJ+12*
MSG("DIERR"	MKOBJ+12
NAME	LU~, LU+1, MKOBJS+6
OBJNAME	DELOBJS+1~, DELOBJS+3, DELOBJS+4, MKOBJS+1~, MKOBJS+3, MKOBJS+5, MKOBJ~, MKOBJ+2, MKOBJ+3, MKOBJ+13
TIUDAT	DELOBJS+1~, DELOBJS+2, MKOBJS+1~, MKOBJS+2
TIUFPRIV	EN+1~, EN+3*
TIULN	DELOBJS+1~, DELOBJS+2, DELOBJS+3, MKOBJS+1~, MKOBJS+2, MKOBJS+3
X	DELOBJS+1~
Y	DELOBJS+1~
>> ZTQUEUED	EN+2, MKOBJS+6, MKOBJ+10, MKOBJ+13

Name	Field # of Occurrence
$T(DATA+TIUDAT	DELOBJS+2, MKOBJS+2