Routine: BTIUUPL

Information

BTIUUPL ; IHS/ITSC/LJF - ASCII Upload ;

Source Information

Source file <BTIUUPL.m>

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$DOW,$$FMTE,$$NOW)^XLFDT
Text Integration Utility	4	$$NOW^TIULC SETPARM^TIULE BUFPURGE^TIUPUTC ($$READ,$$TITLE,JUSTIFY)^TIUU
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIWP
IHS Mods To Text Integration Utilities	2	^BTIUARC (MSG,RETURN)^BTIUU
IHS VA Utilities	2	^XBCLS ^XBKVAR
Toolkit	1	RECEIVE^XTKERMIT

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;EP; resets Upload Running and Error Messages back to null so uplaod can run ; after porblem has been fixed; run this to restart upload
MAKEBUF()	; Subroutine to create buffer records
REMOTE(DA)	; Read ASCII stream from remote computer
HELP(X)	; Process HELP for Remote upload
SET(FIELD,ANS)	; upload BTIU UPLOAD STATUS file
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	;EP; Control branching
DISPLAY	;EP; -- display status of upload

External References

Name	Field # of Occurrence
^%ZIS	HFS+10, HFS+15
^%ZISC	HFS+34
^%ZTLOAD	FILE+10
^BTIUARC	HFS+37
MSG^BTIUU	DISPLAY+2, DISPLAY+6, DISPLAY+10, DISPLAY+13, DISPLAY+14, DISPLAY+16
RETURN^BTIUU	DISPLAY+17
^DIC	MAKEBUF+3
^DIE	MAKEBUF+5, FILE+3, SET+3, RESET+5
$$GET1^DIQ	MAIN+1, HFS+8, HFS+9, HFS+13, HFS+14, DISPLAY+4, DISPLAY+8, DISPLAY+12, DISPLAY+15
^DIWP	HFS+26
$$NOW^TIULC	MAKEBUF+2, FILE+3
SETPARM^TIULE	MAIN+6, REMOTE+2, HFS+2
BUFPURGE^TIUPUTC	MAIN+23
$$READ^TIUU	HELP+6, RESET+2
$$TITLE^TIUU	REMHDR+1
JUSTIFY^TIUU	REMHDR+1
^XBCLS	DISPLAY+2
^XBKVAR	MAIN+3
$$DOW^XLFDT	DISPLAY+5, DISPLAY+9
$$FMTE^XLFDT	DISPLAY+5, DISPLAY+9
$$NOW^XLFDT	MAIN+2, HFS+11, HFS+36
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+8
Function Call: WRITE	Prompt: $C(7),$C(7),$C(7),"No Record Header Signal Defined - Contact IRM.",! Line Location: MAIN+12
Function Call: WRITE	Prompt: $C(7),$C(7),$C(7),"Unable to create a Buffer File Record - Contact IRM.",! Line Location: MAIN+15
Function Call: WRITE	Prompt: $C(7),$C(7),$C(7),!,"Kermit Error: ",$G(TIUERR)," Please re-transmit the file...",! Line Location: MAIN+19
Function Call: WRITE	Prompt: $C(7),$C(7),$C(7),"No Pace Character Defined - Contact IRM.",! Line Location: REMOTE+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: REMOTE+8
Function Call: WRITE	Prompt: !,$C(TIUPAC) Line Location: REMOTE+13
Function Call: WRITE	Prompt: @IOF Line Location: REMHDR+1
Function Call: WRITE	Prompt: ! Line Location: KERMIT+4
Function Call: WRITE	Prompt: !,$C(7),"Device unavailable." Line Location: HFS+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: HFS+18
Function Call: READ	Timeout: 1 Variable: X Line Location: HFS+19
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 SET+3 RESET+5
Routine Call	DIC Line Location: MAKEBUF+3
Routine Call	%ZIS Line Location: HFS+10 HFS+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^TIU(8925.2 - [#8925.2]	Classic Fileman Calls
^TIU(8925.99 - [#8925.99]	GET1^DIQ
^BTIUZ - [#9003130.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.2 - [#8925.2]	MAIN+22, MAIN+23, REMOTE+11, REMOTE+12, REMOTE+14, HFS+27, HFS+31, HFS+33*, FILE+2
^TIU(8925.99 - [#8925.99]	HFS+6
^UTILITY($J	HFS+25!, HFS+27, HFS+28!

Label References

Name	Line Occurrences
$$MAKEBUF	MAIN+14
$$STRIP	REMOTE+12, HFS+27, HFS+31
@(	FILE+13
FILE	MAIN+22
FILEX	FILE+2, FILE+9
HELP	REMOTE+9
HFS	MAIN+18
KERMIT	REMOTE+6
MAKEBUX	MAKEBUF+4
REMHDR	REMOTE+7, REMOTE+9, KERMIT+2
REMOTE	MAIN+17
SET	MAIN+2, MAIN+9, MAIN+13, MAIN+16, MAIN+20, MAIN+24, REMOTE+5, HFS+7, HFS+11, HFS+16 , HFS+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS("HFSMODE"	HFS+10, HFS+15
>> %ZIS("HFSNAME"	HFS+8, HFS+9, HFS+13, HFS+14
ANS	SET~, SET+2
DA	REMOTE~, REMOTE+6, REMOTE+11, REMOTE+12, REMOTE+14, KERMIT~, KERMIT+3, HFS~, HFS+27, HFS+31 , HFS+33, MAKEBUF+1~, MAKEBUF+4, MAKEBUF+5, MAKEBUX, FILE~, FILE+2, SET+1~, SET+2, RESET+3~ , RESET+4
DIC	MAKEBUF+1~, MAKEBUF+3*, MAKEBUF+5
DIC(0	MAKEBUF+3*
DIE	MAKEBUF+1~, MAKEBUF+5, FILE+1~, FILE+3, SET+1~, SET+2, RESET+3~, RESET+4
>> DIWF	HFS+26*
>> DIWL	HFS+26*
>> DIWR	HFS+26*
>> DLAYGO	MAKEBUF+3*
DR	MAKEBUF+1~, MAKEBUF+5, FILE+1~, FILE+3, SET+1~, SET+2, RESET+3~, RESET+4
DT	REMOTE+14, HFS+33
DTIME	REMOTE+8
DUZ	MAKEBUF+5
DUZ(2	HFS+6
DWLC	KERMIT+1~
EOM	MAIN+5~, MAIN+7*, MAIN+9, REMOTE+8, HFS+20
FIELD	SET~, SET+2
I	HFS+25~, HFS+27, STRIP+1~, STRIP+3, STRIP+5*
IO	HFS+19
IOF	REMHDR+1
>> IOP	HFS+8, HFS+13
>> POP	HFS+11, HFS+16
PRTCL	REMHDR~, REMHDR+1, REMHDR+2
QUIT	HFS+19~, HFS+20
START	MAKEBUF+1~, MAKEBUF+2*, MAKEBUF+5
TIUDA	MAIN+5~, MAIN+14*, MAIN+16, MAIN+17, MAIN+18, MAIN+22, MAIN+23
TIUERR	MAIN+5~, MAIN+20, MAIN+22, MAIN+23, KERMIT+4*
TIUHDR	MAIN+5~, MAIN+11*, MAIN+13
TIUI	REMOTE+1~, REMOTE+12, REMOTE+14, HFS+1~, HFS+27, HFS+31*, HFS+33
TIULN	MAIN+5~
TIUPAC	REMOTE+1~, REMOTE+3*, REMOTE+5, REMOTE+13
>> TIUPRM0	MAIN+6, MAIN+7, MAIN+9, MAIN+11, REMOTE+2, REMOTE+3, REMOTE+5, REMOTE+6, HFS+2, FILE+6 , FILE+9
>> TIUPRM1	MAIN+6, REMOTE+2, HFS+2
TIUSITE	HFS+6~*, HFS+7, HFS+8, HFS+9, HFS+13, HFS+14
TIUSRC	MAIN+5~, MAIN+7, MAIN+10, MAIN+17, MAIN+18
>> TIUX	HELP+6*
TIUZMSG	MAIN+4~
U	MAIN+7, MAIN+9, MAIN+11, REMOTE+3, REMOTE+5, REMOTE+6, FILE+6, FILE+9
X	MAIN+5~, REMOTE+1~, REMOTE+8, REMOTE+9, REMOTE+11, REMOTE+12, HFS+1~, HFS+19, HFS+20, HFS+24 , HFS+31, STRIP~, STRIP+3, STRIP+5, MAKEBUF+1~, MAKEBUF+3, HELP~, HELP+1, HELP+2, DISPLAY+1~ , DISPLAY+5, DISPLAY+6, DISPLAY+9, DISPLAY+10, DISPLAY+15*, DISPLAY+16
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, DISPLAY+1~, DISPLAY+4, DISPLAY+5, DISPLAY+8* , DISPLAY+9, DISPLAY+12*, DISPLAY+14
>> ZTDESC	FILE+7*
>> ZTDTH	FILE+5*
>> ZTIO	FILE+5*
>> ZTRTN	FILE+6*, FILE+13
>> ZTSAVE("DA"	FILE+5*

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIUUPL

Call Graph Total: 17