Routine: TIUUPLD

Package	Total	Call Graph
Text Integration Utility	4	$$NOW^TIULC SETPARM^TIULE BUFPURGE^TIUPUTC ($$READ,$$TITLE,JUSTIFY)^TIUU
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIE
Toolkit	1	RECEIVE^XTKERMIT

Package

Total

Call Graph

Text Integration Utility

$$NOW^TIULC SETPARM^TIULE BUFPURGE^TIUPUTC ($$READ,$$TITLE,JUSTIFY)^TIUU

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^DIC ^DIE

Toolkit

RECEIVE^XTKERMIT

Package	Total	Caller Graph
Text Integration Utility	5	TIU UPLOAD DOCUMENTS TIUPEVNT TIUPUTC TIUPUTSX TIURE
IHS Electronic Health Record	1	BEHODC

Package

Total

Caller Graph

Text Integration Utility

TIU UPLOAD DOCUMENTS TIUPEVNT TIUPUTC TIUPUTSX TIURE

IHS Electronic Health Record

BEHODC

Entry Points

Name	Comments	DBIA/ICR reference
MAKEBUF()	; Subroutine to create buffer records
REMOTE(DA)	; Read ASCII stream from remote computer
HELP(X)	; Process HELP for Remote upload
STRIP(X)	; Strip control characters
KERMIT(DA)	; Use Kermit Protocol Driver
FILEX
HFS(DA)	; Read HFS file
FILE(DA)	; Completes upload transaction, invokes filer/router
REMHDR(PRTCL)	; Write Header for Remote upload
MAKEBUX
MAIN	; Control branching

External References

Name	Field # of Occurrence
^%ZIS	HFS+4
^%ZISC	HFS+9
^%ZTLOAD	FILE+10
^DIC	MAKEBUF+3
^DIE	MAKEBUF+5, FILE+3
$$NOW^TIULC	MAKEBUF+2, FILE+3
SETPARM^TIULE	MAIN+2, REMOTE+2, HFS+2
BUFPURGE^TIUPUTC	MAIN+15
$$READ^TIUU	HELP+6
$$TITLE^TIUU	REMHDR+1, HFS+3
JUSTIFY^TIUU	REMHDR+1, HFS+3
RECEIVE^XTKERMIT	KERMIT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$C(7),$C(7),"No End of Message Signal Defined - Contact IRM.",! Line Location: MAIN+4
Function Call: WRITE	Prompt: $C(7),$C(7),$C(7),"No Record Header Signal Defined - Contact IRM.",! Line Location: MAIN+7
Function Call: WRITE	Prompt: $C(7),$C(7),$C(7),"Unable to create a Buffer File Record - Contact IRM.",! Line Location: MAIN+9
Function Call: WRITE	Prompt: $C(7),$C(7),$C(7),!,"File Transfer Error: ",$G(TIUERR),!!,"Please re-transmit the file...",! Line Location: MAIN+12
Function Call: WRITE	Prompt: $C(7),$C(7),$C(7),"No Pace Character Defined - Contact IRM.",! Line Location: REMOTE+4
Function Call: WRITE	Prompt: !,$C(TIUPAC) Line Location: REMOTE+8
Function Call: READ	Timeout: DTIME Variable: X Line Location: REMOTE+9
Function Call: WRITE	Prompt: ! Line Location: REMOTE+12
Function Call: WRITE	Prompt: !,$C(TIUPAC) Line Location: REMOTE+17
Function Call: WRITE	Prompt: @IOF Line Location: REMHDR+1
Function Call: WRITE	Prompt: ! Line Location: KERMIT+4
Function Call: WRITE	Prompt: @IOF Line Location: HFS+3
Function Call: WRITE	Prompt: !!,"Select Host File:",! Line Location: HFS+4
Function Call: WRITE	Prompt: !,$C(7),"Device unavailable." Line Location: HFS+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: HFS+5
Function Call: WRITE	Prompt: X,! Line Location: HFS+6
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Filer/Router Queued!",1:"Filer/Router Cancelled!") Line Location: FILE+11
Function Call: WRITE	Prompt: !!,"File Transfer Complete--Now Filing Records..." Line Location: FILE+13
Function Call: WRITE	Prompt: !?3,"Begin file transfer using ASCII protocol upload procedure.",! Line Location: HELP+1
Function Call: WRITE	Prompt: !?3,"Consult your terminal emulator's User Manual to determine",! Line Location: HELP+3
Function Call: WRITE	Prompt: !?3,"how to set-up and initiate an ASCII protocol file transfer.",! Line Location: HELP+4
Function Call: WRITE	Prompt: !?3,"Enter '^' or '^^' to exit.",! Line Location: HELP+5
Routine Call	DIE Line Location: MAKEBUF+5 FILE+3
Routine Call	DIC Line Location: MAKEBUF+3
Routine Call	%ZIS Line Location: HFS+4

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

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.2 - [#8925.2]	MAIN+14, MAIN+15, REMOTE+15, REMOTE+16, REMOTE+18, HFS+7, HFS+8, FILE+2

Name	Line Occurrences
$$MAKEBUF	MAIN+8
$$STRIP	REMOTE+16, HFS+7
@(	FILE+14
FILE	MAIN+14
FILEX	FILE+2, FILE+9
HELP	REMOTE+13
HFS	MAIN+11
KERMIT	REMOTE+5
MAKEBUX	MAKEBUF+4
REMHDR	REMOTE+6, REMOTE+13, KERMIT+2
REMOTE	MAIN+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	REMOTE~, REMOTE+5, REMOTE+15, REMOTE+16, REMOTE+18, KERMIT~, KERMIT+3, HFS~, HFS+7, HFS+8 , MAKEBUF+1~, MAKEBUF+4, MAKEBUF+5, MAKEBUX, FILE~, FILE+2
DIC	MAKEBUF+1~, MAKEBUF+3*, MAKEBUF+5
DIC(0	MAKEBUF+3*
DIE	MAKEBUF+1~, MAKEBUF+5, FILE+1~, FILE+3
>> DLAYGO	MAKEBUF+3*
DR	MAKEBUF+1~, MAKEBUF+5, FILE+1~, FILE+3
DT	REMOTE+18, HFS+8
DTIME	REMOTE+9, HFS+5
DUZ	MAKEBUF+5
DWLC	KERMIT+1~
EOM	MAIN+1~, MAIN+3*, MAIN+4, REMOTE+12, HFS+5
I	STRIP+1~, STRIP+3, STRIP+5
IO	HFS+5
IO(0	HFS+6
IOF	REMHDR+1, HFS+3
>> POP	HFS+4
PRTCL	REMHDR~, REMHDR+1, REMHDR+2
START	MAKEBUF+1~, MAKEBUF+2*, MAKEBUF+5
TIUDA	MAIN+1~, MAIN+8*, MAIN+9, MAIN+10, MAIN+11, MAIN+14, MAIN+15
TIUERR	MAIN+1~, MAIN+12, MAIN+14, MAIN+15, REMOTE+7, REMOTE+9, REMOTE+11, REMOTE+12, KERMIT+4
TIUHDR	MAIN+1~, MAIN+6*, MAIN+7
TIUI	REMOTE+1~, REMOTE+16, REMOTE+18, HFS+1~, HFS+7, HFS+8
TIULN	MAIN+1~
TIUPAC	REMOTE+1~, REMOTE+3*, REMOTE+4, REMOTE+8, REMOTE+17
>> TIUPRM0	MAIN+2, MAIN+3, MAIN+4, MAIN+6, REMOTE+2, REMOTE+3, REMOTE+4, REMOTE+5, HFS+2, FILE+6 , FILE+9
>> TIUPRM1	MAIN+2, REMOTE+2, HFS+2
TIUSRC	MAIN+1~, MAIN+3, MAIN+5, MAIN+10, MAIN+11
>> TIUX	HELP+6*
U	MAIN+3, MAIN+4, MAIN+6, REMOTE+3, REMOTE+4, REMOTE+5, FILE+6, FILE+9
X	MAIN+1~, REMOTE+1~, REMOTE+9, REMOTE+10, REMOTE+12, REMOTE+13, REMOTE+15, REMOTE+16, HFS+1~, HFS+5 , HFS+6, HFS+7, STRIP~, STRIP+3, STRIP+5, MAKEBUF+1~, MAKEBUF+3, HELP~, HELP+1, HELP+2
XTKDIC	KERMIT+1~, KERMIT+3*
XTKERR	KERMIT+1~, KERMIT+4
XTKMODE	KERMIT+1~, KERMIT+3*
Y	STRIP+1~, STRIP+5*, STRIP+6, MAKEBUF+1~, MAKEBUF+4, MAKEBUF+5
>> ZTDESC	FILE+7*
>> ZTDTH	FILE+5*
>> ZTIO	FILE+5*
>> ZTRTN	FILE+6*, FILE+14
>> ZTSAVE("DA"	FILE+5*
>> ZTSK	FILE+11

Customize PDF page

Package: Text Integration Utility

Routine: TIUUPLD

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: