Routine: TIUP1008

Information

TIUP1008 ;IHS/MSC/MGH - After installing TIU*1*1008;28-Jan-2011 15:41;DU

Source Information

Source file <TIUP1008.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIC (,FILE)^DIE ^DIR
Text Integration Utility	2	SETDATA^TIU1008D (SETXTMP,TIUDUPS)^TIUE1008

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Text Integration Utility	1	TIU1008 DOCUMENT DEFS

Entry Points

Name	Comments	DBIA/ICR reference
MAINX	;Exit
BEGIN	; Create DDEFS
ADDITEM(NUM,TIUDA,TMPCNT)	; Add DDEF to Parent; Set item fields
CREATE(NUM)	; Create new DDEF entry
PARENTX
PRINTX
ADDX	; -- Tell user about adding to parent:
SETCONT()	; D form feed, Set TIUCONT
PRINT	; Print out results
PARENT(NUM)	; Return IEN of parent new DDEF should be added to
MAIN	; Create DDEFS for Discharge instructions ; -- Check for dups created after the install but before this option:
SETX
FILE(NUM,TIUDA,TMPCNT)	; File fields for new entry TIUDA ; Files ALL FIELDS set in "FILEDATA" nodes of ^XTMP: ; ^XTMP("TIU1008","FILEDATA",NUM,Field#)
STOP()	;on screen paging check ; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0

External References

Name	Field # of Occurrence
^%ZIS	BEGIN+2
HOME^%ZIS	BEGIN+8
^%ZISC	BEGIN+9
^%ZTLOAD	BEGIN+6
^DIC	ADDITEM+18, CREATE+8
^DIE	ADDITEM+27
FILE^DIE	FILE+6
^DIR	STOP+3
SETDATA^TIU1008D	MAIN+16
SETXTMP^TIUE1008	MAIN+3
TIUDUPS^TIUE1008	MAIN+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option creates Document Definitions for patch 1008 " Line Location: BEGIN+1
Function Call: WRITE	Prompt: ! Line Location: BEGIN+2
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!") Line Location: BEGIN+6
Function Call: WRITE	Prompt: @IOF,! Line Location: PRINT+3
Function Call: WRITE	Prompt: ^TMP("TIU1008",$J,TIUCNT),! Line Location: PRINT+7
Function Call: WRITE	Prompt: @IOF,! Line Location: STOP+5
Function Call: WRITE	Prompt: @IOF Line Location: SETCONT+6
Routine Call	%ZIS Line Location: BEGIN+8
Routine Call	DIE Line Location: ADDITEM+27
Routine Call	DIR Line Location: STOP+3
Routine Call	%ZIS Line Location: BEGIN+2
Routine Call	DIC Line Location: ADDITEM+18 CREATE+8
Routine Call	DIE Line Location: FILE+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	ADDITEM+5
^TMP("TIU1008"	MAIN+2!, MAIN+5, MAIN+6, MAIN+7, MAIN+13, MAIN+14, MAIN+24, MAIN+25, MAIN+31, MAIN+32* , MAIN+33, MAIN+34, MAINX+1, MAINX+2, MAINX+4!, PRINT+5, PRINT+7, ADDX+2, ADDX+3, ADDX+4* , FILE+7, FILE+8
^XTMP("TIU1008"	MAIN+2!, MAIN+12, MAIN+18, MAIN+22, MAIN+24, MAIN+26!, MAIN+27!, MAIN+31, MAIN+33, MAIN+38! , MAIN+41!, PARENT+5, PARENT+9, PARENT+13, ADDITEM+15, ADDITEM+20, FILE+5, CREATE+6, CREATE+7, CREATE+10

Label References

Name	Line Occurrences
$$CREATE	MAIN+29
$$PARENT	ADDITEM+4
$$SETCONT	PRINT+6
$$STOP	SETCONT+4
ADDITEM	MAIN+40
ADDX	ADDITEM+5, ADDITEM+18
FILE	MAIN+37
MAIN	BEGIN+9
MAINX	MAIN+11
PARENTX	PARENT+7
PRINT	MAINX+3
SETX	SETCONT+3, SETCONT+4, SETCONT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	BEGIN+2*
D	ADDITEM+23~
D0	ADDITEM+23~
DA	ADDITEM+6~, ADDITEM+22~, ADDITEM+25*, CREATE+1~
DA(1	ADDITEM+8, ADDITEM+9, ADDITEM+24
DI	ADDITEM+23~
DIC	ADDITEM+6~, ADDITEM+9, ADDITEM+25, CREATE+1~, CREATE+5
DIC("S"	CREATE+7*
DIC(0	ADDITEM+9, CREATE+6
DIE	ADDITEM+2~, ADDITEM+22~, ADDITEM+25*
DIR	STOP+2~
DIR(0	STOP+3*
DIY	ADDITEM+7~
DLAYGO	ADDITEM+6~, ADDITEM+10, CREATE+1~, CREATE+5
DQ	ADDITEM+23~
DR	ADDITEM+2~, ADDITEM+22~, ADDITEM+26*
FDA	FILE+3~
FDA(	FILE+5*
I	ADDITEM+7~
IEN	MAIN+19~, MAIN+22*, MAIN+23
IO	BEGIN+9
IO("Q"	BEGIN+3!
IOF	PRINT+3, STOP+5, SETCONT+6
IOP	BEGIN+2!
IOSL	SETCONT+3, SETCONT+5
IOST	PRINT+3, SETCONT+3, SETCONT+4
MENUTXT	ADDITEM+1~, ADDITEM+20*, ADDITEM+21
NUM	MAIN+17~, MAIN+18, MAIN+22, MAIN+24, MAIN+26, MAIN+27, MAIN+29, MAIN+31, MAIN+33, MAIN+37 , MAIN+38, MAIN+40, MAIN+41, PARENT~, PARENT+5, PARENT+9, ADDITEM~, ADDITEM+4, ADDITEM+15, ADDITEM+20 , FILE~, FILE+5, CREATE~, CREATE+6, CREATE+7, CREATE+10
PIEN	PARENT+1~, PARENT+5, PARENT+7, PARENT+13, PARENTX, ADDITEM+1~, ADDITEM+4*, ADDITEM+5!, ADDITEM+8, ADDITEM+18! , ADDITEM+24, ADDX+1
PNUM	PARENT+1~, PARENT+9*, PARENT+10, PARENT+13
POP	BEGIN+2!
SILENT	MAIN+4~, MAIN+8*, MAIN+9
TIUCNT	PRINT+1~, PRINT+4, PRINT+5, PRINT+7, PRINT+9*
TIUCONT	PRINT+1~, PRINT+4, PRINT+5, PRINT+6, PRINT+8, STOP+2~, STOP+4, STOP+5, STOP+6, SETCONT+1~ , SETCONT+2, SETCONT+4*, SETX
TIUDA	MAIN+19~, MAIN+35*, MAIN+37, MAIN+40, ADDITEM~, ADDITEM+5, ADDITEM+17, FILE~, FILE+5
TIUDUPS	MAIN+4~, MAIN+9, MAIN+11
TIUERR	FILE+3~, FILE+7
TIUFISCR	ADDITEM+1~, ADDITEM+17*
TIUFPRIV	ADDITEM+1~, ADDITEM+3, FILE+3~, FILE+4, CREATE+1~, CREATE+2*
TMPCNT	MAIN+4~, MAIN+5, MAIN+6, MAIN+7, MAIN+13, MAIN+14, MAIN+24, MAIN+25, MAIN+31, MAIN+32 , MAIN+33, MAIN+34, MAIN+37, MAIN+40, MAINX+1, MAINX+2, ADDITEM~, ADDX+2, ADDX+3, ADDX+4* , FILE~, FILE+7, FILE+8
U	MAIN+30, ADDITEM+18, CREATE+10
X	ADDITEM+6~, ADDITEM+15, CREATE+1~, CREATE+6
Y	STOP+2~, STOP+4, ADDITEM+6~, ADDITEM+18, ADDITEM+25, CREATE+1~, CREATE+10, CREATE+11
YDDEF	MAIN+19~, MAIN+29*, MAIN+30, MAIN+35
ZTDESC	BEGIN+5*, BEGIN+7!
ZTDTH	BEGIN+7!
ZTIO	BEGIN+7!
>> ZTQUEUED	PRINT+2
>> ZTREQ	PRINT+2*
ZTRTN	BEGIN+4*, BEGIN+7!
ZTSAVE	BEGIN+7!
ZTSK	BEGIN+6, BEGIN+7!

Customize PDF page

Package: Text Integration Utility

Routine: TIUP1008

Call Graph Total: 8

Caller Graph Total: 1