Routine: BTIUU

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT ($$REPEAT,$$UP)^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Mods To Text Integration Utilities	13	BTIUCD BTIUDDL BTIUDOC BTIUDSC BTIUH1 BTIUH2 BTIUICL BTIULO6 BTIUPLST BTIURPT BTIUU1 BTIUUPL BTIUVSIT
Text Integration Utility	1	TIUADD

Entry Points

Name	Comments	DBIA/ICR reference
VALMSG()	;EP; -- sets help line message
ZIS(X,TIURTN,TIUDESC,TIUVAR)	;EP; -- called to select device and send print
TIME(DATE)	;EP returns time in 12:00 PM format for date send
PAD(DATA,LENGTH)	; pad length of data
NUMDATE(D,YR)	;EP; returns external number date with leading zeros ; D=date and optionally time ; YR=1 for 2 digit year, =0 for 4 digit year
INIT	;EP; -- initialize variables prior to printing report
CONFID(X)	;EP; return confidential message
SP(NUM)	; pad spaces
MSG(DATA,PRE,POST,BEEP)	;EP; -- writes line to device
PAUSE	;EP; -- ask user to press return, no form feed
RETURN	;EP; -- ask user to press return with form feed
PRTKL	;EP; kill report header variables

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MSG+2
Function Call: WRITE	Prompt: DATA Line Location: MSG+3
Function Call: WRITE	Prompt: ! Line Location: MSG+4
Function Call: WRITE	Prompt: $C(7) Line Location: MSG+5
Function Call: WRITE	Prompt: @IOF Line Location: RETURN+3
Routine Call	DIR Line Location: RETURN+3 PAUSE+3
Routine Call	%ZIS Line Location: ZIS+2

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Name	Field # of Occurrence
%ZIS	ZIS+1!, ZIS+2*
BEEP	MSG~, MSG+5
D	NUMDATE~, NUMDATE+4, NUMDATE+5, NUMDATE+6, NUMDATE+7
DATA	MSG~, MSG+3, PAD~, PAD+1
DATE	TIME~, TIME+1
DIR	RETURN+1~, RETURN+3!, RETURN+4!, PAUSE+1~, PAUSE+3!, PAUSE+4!
DIR("A"	RETURN+3, PAUSE+3
DIR(0	RETURN+3, PAUSE+3
DT	INIT+4
DUZ	INIT+1
DUZ(2	INIT+2
I	MSG+1~, MSG+2, MSG+4, MSG+5, ZIS+4
IO("Q"	ZIS+2, ZIS+3!
IOF	RETURN+3
IOP	ZIS+1!
IOST	RETURN+2, PAUSE+2
>> J	ZIS+4*
LENGTH	PAD~, PAD+1
NUM	SP~, SP+1
>> POP	ZIS+2
POST	MSG~, MSG+4
PRE	MSG~, MSG+2
TIUDATE	INIT+4*, PRTKL+1!
TIUDESC	ZIS~, ZIS+3
TIUFAC	INIT+2*, PRTKL+1!
TIURTN	ZIS~, ZIS+2, ZIS+3
TIUTIME	INIT+3*, PRTKL+1!
TIUUSR	INIT+1*, PRTKL+1!
TIUVAR	ZIS~, ZIS+4
X	CONFID~, NUMDATE+3~, NUMDATE+5, NUMDATE+6, NUMDATE+7*, NUMDATE+8, ZIS~, ZIS+2, RETURN+1~, PAUSE+1~
Y	RETURN+1~, PAUSE+1~
YR	NUMDATE~, NUMDATE+5
>> ZTDESC	ZIS+3*
>> ZTRTN	ZIS+3*
>> ZTSAVE(	ZIS+4*
ZTSK	ZIS+5!