Routine: TIUPS165

Information

TIUPS165 ; SLC/MAM - After installing TIU*1*165;6/26/03

Source Information

Source file <TIUPS165.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIC (,FILE)^DIE ^DIR
Text Integration Utility	2	SETDATA^TIU165D (SETXTMP,TIUDUPS)^TIUEN165
Authorization Subscription	1	MAIN^USRPS24

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Text Integration Utility	1	TIU165 DDEFS & RULES, PRF

Entry Points

Name	Comments	DBIA/ICR reference
MAINX	;Exit
BEGIN	; Create DDEFS
ADDITEM(NUM,TIUDA,TMPCNT)
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 Patient Record Flags ; -- 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("TIU165","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+3
HOME^%ZIS	BEGIN+9
^%ZISC	BEGIN+10
^%ZTLOAD	BEGIN+7
^DIC	ADDITEM+18, CREATE+8
^DIE	ADDITEM+27
FILE^DIE	FILE+6
^DIR	STOP+3
SETDATA^TIU165D	MAIN+16
SETXTMP^TIUEN165	MAIN+3
TIUDUPS^TIUEN165	MAIN+9
MAIN^USRPS24	MAINX+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option creates Document Definitions, a User Class, and" Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"a Business Rule for Patient Record Flags." Line Location: BEGIN+2
Function Call: WRITE	Prompt: ! Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!") Line Location: BEGIN+7
Function Call: WRITE	Prompt: @IOF,! Line Location: PRINT+3
Function Call: WRITE	Prompt: ^TMP("TIU165",$J,TIUCNT),! Line Location: PRINT+7
Function Call: WRITE	Prompt: ^TMP("USR24",$J,TIUCNT),! Line Location: PRINT+12
Function Call: WRITE	Prompt: @IOF,! Line Location: STOP+5
Function Call: WRITE	Prompt: @IOF Line Location: SETCONT+6
Routine Call	%ZIS Line Location: BEGIN+9
Routine Call	DIE Line Location: ADDITEM+27
Routine Call	DIR Line Location: STOP+3
Routine Call	%ZIS Line Location: BEGIN+3
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("TIU165"	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+5!, PRINT+5, PRINT+7, ADDX+2, ADDX+3, ADDX+4* , FILE+7, FILE+8
^TMP("USR24"	MAINX+5!, PRINT+10, PRINT+12
^XTMP("TIU165"	MAIN+2!, MAIN+12, MAIN+18, MAIN+22, MAIN+24, MAIN+26!, MAIN+27!, MAIN+31, MAIN+33, MAIN+38! , MAIN+41!, MAINX+3, 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, PRINT+11
$$STOP	SETCONT+4
ADDITEM	MAIN+40
ADDX	ADDITEM+5, ADDITEM+18
FILE	MAIN+37
MAIN	BEGIN+10
MAINX	MAIN+11
PARENTX	PARENT+7
PRINT	MAINX+4
SETX	SETCONT+3, SETCONT+4, SETCONT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	BEGIN+3*
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+10
IO("Q"	BEGIN+4!
IOF	PRINT+3, STOP+5, SETCONT+6
IOP	BEGIN+3!
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+3!
SILENT	MAIN+4~, MAIN+8*, MAIN+9
TIUCNT	PRINT+1~, PRINT+4, PRINT+5, PRINT+7, PRINT+9, PRINT+10, PRINT+12
TIUCONT	PRINT+1~, PRINT+4, PRINT+5, PRINT+6, PRINT+8, PRINT+10, PRINT+11, 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+6*, BEGIN+8!
ZTDTH	BEGIN+8!
ZTIO	BEGIN+8!
>> ZTQUEUED	PRINT+2
>> ZTREQ	PRINT+2*
ZTRTN	BEGIN+5*, BEGIN+8!
ZTSAVE	BEGIN+8!
ZTSK	BEGIN+7, BEGIN+8!

Customize PDF page

Package: Text Integration Utility

Routine: TIUPS165

Call Graph Total: 9

Caller Graph Total: 1