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 |  Caller 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: TIUUPLD

Package: Text Integration Utility

Routine: TIUUPLD


Information

TIUUPLD ; SLC/JER - ASCII Upload ;9/11/98@16:39:47

Source Information

Source file <TIUUPLD.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Text Integration Utility 5 TIU UPLOAD DOCUMENTS  TIUPEVNT  TIUPUTC  TIUPUTSX  TIURE  
IHS Electronic Health Record 1 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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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