Routine: TIUHSOBJ

Information

TIUHSOBJ ;SLC/AJB,AGP - Health Summary to TIU Object;Jun 07, 2023@14:57

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	4	(,$$FIND1)^DIC (,UPDATE)^DIE ^DIK ^DIR
Health Summary	1	$$CRE^GMTSOBJ
Kernel	1	$$UP^XLFSTR

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: 4

Package	Total	Caller Graph
Text Integration Utility	3	TIUCROBJ TIUHSL TIUHSV
Health Summary	1	GMTSOBV

Entry Points

Name	Comments	DBIA/ICR reference
CREATE	; create a TIU object
PE	;
EDIT(TIUDA)	;
EXIST(HSNUM)	; entry point for Health Summary to verify if a HS Object is used in a TIU Object
METHOD(TIUHSOBJ)	; Return the method to execute the Health Summary object

External References

Name	Field # of Occurrence
^DIC	PE+4
$$FIND1^DIC	CREATE+17, CREATE+35, METHOD+6
^DIE	EDIT+9
UPDATE^DIE	PE+22
^DIK	PE+10
^DIR	CREATE+16, CREATE+22, CREATE+28, CREATE+30, CREATE+38, PE+4, PE+8, PE+11, PE+28, EDIT+7
$$CRE^GMTSOBJ	CREATE+36
$$UP^XLFSTR	CREATE+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CREATE+5
Function Call: WRITE	Prompt: !?19,"--- Create TIU/Health Summary Object ---" Line Location: CREATE+6
Function Call: WRITE	Prompt: ! Line Location: CREATE+16
Function Call: WRITE	Prompt: !!,"The object name ",X," already exists." Line Location: CREATE+18
Function Call: WRITE	Prompt: !!,DIR("?",1) Line Location: CREATE+20
Function Call: WRITE	Prompt: !!,"Object Name: ",X Line Location: CREATE+21
Function Call: WRITE	Prompt: ! Line Location: CREATE+22
Function Call: WRITE	Prompt: ! Line Location: CREATE+28
Function Call: WRITE	Prompt: ! Line Location: CREATE+30
Function Call: WRITE	Prompt: !!,"Checking ",TIUNAME_" (TIU)"," with Health Summary..." Line Location: CREATE+34
Function Call: WRITE	Prompt: ! Line Location: CREATE+36
Function Call: WRITE	Prompt: ! Line Location: CREATE+38
Function Call: WRITE	Prompt: "that name already exists." Line Location: CREATE+39
Function Call: WRITE	Prompt: ! Line Location: PE+4
Function Call: WRITE	Prompt: ! Line Location: PE+4
Function Call: WRITE	Prompt: !!,"Create a TIU Object named: ",TIUNAME Line Location: PE+7
Function Call: WRITE	Prompt: ! Line Location: PE+8
Function Call: WRITE	Prompt: ! Line Location: PE+11
Function Call: WRITE	Prompt: !!,"TIU Object creation failed. The following error message was returned:",!! Line Location: PE+25
Function Call: WRITE	Prompt: MSG("DIERR",1,"TEXT",MSG),! Line Location: PE+26
Function Call: WRITE	Prompt: !!,"TIU Object created successfully.",! Line Location: PE+28
Function Call: WRITE	Prompt: !!,"You are not the owner - cannot edit name!" Line Location: EDIT+6
Function Call: WRITE	Prompt: ! Line Location: EDIT+7
Routine Call	DIC Line Location: PE+4
Routine Call	DIC Line Location: CREATE+17 CREATE+35 METHOD+6
Routine Call	DIE Line Location: EDIT+9
Routine Call	DIE Line Location: PE+22
Routine Call	DIR Line Location: CREATE+16 CREATE+22 CREATE+28 CREATE+30 CREATE+38 PE+4 PE+8 PE+11 PE+28 EDIT+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMT(142.5 - [#142.5]	Classic Fileman Calls, FIND1^DIC
^TIU(8925.1 - [#8925.1]	Classic Fileman Calls, FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	EDIT+3, EDIT+5, EXIST+3

Label References

Name	Line Occurrences
$$METHOD	PE+19
PE	CREATE+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CREATE+3~, PE+10, EDIT+4~, EDIT+8
DIC	CREATE+3~, PE+2*, PE+5!
DIC("A"	PE+2*
DIC("S"	PE+3*
DIC(0	PE+3*
DIE	EDIT+4~, EDIT+8*
DIK	CREATE+3~, PE+10*
DIR	CREATE+3~, CREATE+16!, CREATE+22~, CREATE+26!, CREATE+28!, CREATE+29~, CREATE+38!, PE+4!, PE+11!, PE+28! , EDIT+4~
DIR("?"	CREATE+10, CREATE+11, CREATE+12, CREATE+13, CREATE+14*, CREATE+20
DIR("A"	CREATE+9, CREATE+16, CREATE+22, CREATE+28, CREATE+30, CREATE+38, PE+4, PE+8, PE+11, PE+28 , EDIT+7*
DIR("B"	CREATE+22, CREATE+30, PE+8*
DIR(0	CREATE+8, CREATE+16, CREATE+22, CREATE+28, CREATE+30, CREATE+38, PE+4, PE+8, PE+11, PE+28 , EDIT+7*
DIROUT	CREATE+3~, CREATE+26!, PE+5!
DIRUT	CREATE+3~, CREATE+16*, CREATE+23, CREATE+24, CREATE+26!, CREATE+28, PE+5!
DR	EDIT+4~, EDIT+8*
DTOUT	CREATE+3~, CREATE+26!, PE+5!
DUOUT	CREATE+3~, CREATE+26!, PE+5!
DUZ	PE+17, EDIT+5
EXIST	EXIST+2~, EXIST+3, EXIST+4
FDA	PE+13~
FDA(	PE+14, PE+15, PE+16, PE+17, PE+18, PE+19, PE+20*
FDAIEN	PE+13~
HSNUM	EXIST~, EXIST+3
IOF	CREATE+5
MSG	PE+13~, PE+24, PE+26*
MSG("DIERR"	PE+26
TIUDA	CREATE+2~, CREATE+16, CREATE+17, CREATE+18!, CREATE+20!, CREATE+23!, EDIT~, EDIT+2, EDIT+3, EDIT+5 , EDIT+8, EXIST+2~, EXIST+3*
TIUERROR	METHOD+3~
TIUHS	CREATE+2~, CREATE+36, CREATE+38, PE+5, PE+10, PE+19
TIUHSOBJ	METHOD~, METHOD+4, METHOD+5, METHOD+6*, METHOD+7
TIUKF	CREATE+2~, CREATE+26, CREATE+36, PE+10
TIUNAME	CREATE+2~, CREATE+26*, CREATE+34, CREATE+35, CREATE+36, PE+7, PE+14, PE+15
U	EDIT+5
X	CREATE+3~, CREATE+16*, CREATE+17, CREATE+18!, CREATE+19, CREATE+20!, CREATE+21, CREATE+22~, CREATE+26!, PE+5! , EDIT+4~
Y	CREATE+3~, CREATE+18!, CREATE+20!, CREATE+22~, CREATE+26!, CREATE+37, CREATE+38, PE+1, PE+4, PE+5! , EDIT+4~
Y(0	CREATE+23, CREATE+31, PE+9

Customize PDF page

Package: Text Integration Utility