Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XPDIL

Package: Kernel

Routine: XPDIL


Information

XPDIL ;SFISC/RSD - load Distribution Global ; Oct 25, 2022@09:00:45

Source Information

Source file <XPDIL.m>

Entry Points

Name Comments DBIA/ICR reference
EN1
ST ;global input
OPEN ;use open command
GI
NONE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Use INSTALL NAME: ",$P(^(0),U)," to install this Distribution.",!
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !!,"You must have a device called 'HFS' in order to load a distribution!",*7
  • Line Location: ST+3
Function Call: WRITE
  • Prompt: !,"Couldn't open file or HFS device!!",*7
  • Line Location: ST+8
Function Call: WRITE
  • Prompt: !,"Couldn't open ",IO
  • Line Location: OPEN+9
Function Call: READ
  • Variable: X
  • Timeout: 10,Y:10
  • Line Location: GI+1
Function Call: WRITE
  • Prompt: !!,X,!,"Comment: ",Y
  • Line Location: GI+2
Function Call: READ
  • Variable: Z
  • Timeout: 1
  • Line Location: GI+5
Function Call: WRITE
  • Prompt: !!,"This is not a Distribution HFS File!"
  • Line Location: GI+6
Function Call: WRITE
  • Prompt: !!,"This Distribution contains Transport Globals for the following Package(s):"
  • Line Location: GI+10
Function Call: WRITE
  • Prompt: !,"Distribution OK!",!
  • Line Location: GI+16
Function Call: WRITE
  • Prompt: !,"Loading Distribution...",!
  • Line Location: GI+20
Function Call: READ
  • Variable: X
  • Timeout: 10,Y:10
  • Line Location: GI+24
Function Call: WRITE
  • Prompt: !!,"ERROR in HFS file format!"
  • Line Location: GI+26
Function Call: READ
  • Variable: X
  • Timeout: 10,Y:10
  • Line Location: GI+31
Function Call: WRITE
  • Prompt: !!,"**NOTHING LOADED**",!
  • Line Location: NONE+0
Info |  Source |  Entry Points |  Interaction Calls