Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BTIUUPL

Package: IHS Mods To Text Integration Utilities

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All