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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XBRSBD

Package: IHS VA Utilities

Routine: XBRSBD


Information

XBRSBD ;IHS-OIRM-DSD/THL;ADAPTATION OF %RS TO SELECT ROUTINES EDITED AFTER SPECIFIED DATE;

Source Information

Source file <XBRSBD.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Uncategorized 2 (%KILL,%SET)^%MTCHK  OUT^%SDEV  
IHS VA Utilities 1 ^XBDATE  

Entry Points

Name Comments DBIA/ICR reference
QUIT
SDEV
ERR
RCMT
NT1
NT0
PC10
NEXTVOL1 ;
START ;
PCODE ; Test for pcode only routine
NEXTTAPE ;
EXIT
NEXTVOL ;
CNT1
SIZE

External References

Name Field # of Occurrence
%KILL^%MTCHK EXIT+1
%SET^%MTCHK CNT1+3
OUT^%SDEV SDEV
^XBDATE CNT1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,$P($P($ZV,","),"-")," - Routine Save Utility"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"Waiting for device 63"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: *7,!,"Tape is not ready"
  • Line Location: SDEV+3
Function Call: WRITE
  • Prompt: *7,!,"Tape is write protected"
  • Line Location: SDEV+4
Function Call: READ
  • Prompt: "Enter size of save medium (if applicable): "
  • Formatting: !
  • Timeout: $S($D(DTIME):DTIME,1:999)
  • Variable: %SIZE
  • Line Location: SIZE+1
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: SIZE+4
Function Call: WRITE
  • Prompt: !!,"If using removeable disks or tape for save, enter the number of 1k blocks which",!,"each disk will hold. As each disk becomes full, you will be asked to",!,"replace it with an empty one."
  • Line Location: SIZE+5
Function Call: WRITE
  • Prompt: !!,"If not using removeable media, press <RETURN>",!
  • Line Location: SIZE+6
Function Call: READ
  • Prompt: "Enter comment for dump header : "
  • Formatting: !
  • Timeout: $S($D(DTIME):DTIME,1:999)
  • Variable: %CMT
  • Line Location: RCMT+0
Function Call: WRITE
  • Prompt: !,"The comment will be displayed with the date and time before the routines",!,"are restored."
  • Line Location: RCMT+1
Function Call: WRITE
  • Prompt: !,"No routines selected"
  • Line Location: CNT1+0
Function Call: WRITE
  • Prompt: !,"No routines will be saved."
  • Line Location: CNT1+2
Function Call: WRITE
  • Prompt: !!,"Saving ...",!
  • Line Location: CNT1+9
Function Call: WRITE
  • Prompt: %TIM1_" "_%DAT1
  • Line Location: CNT1+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: '%TAPV ! W %CMT W:'%TAPV
  • Line Location: CNT1+10
Function Call: WRITE
  • Prompt: ?%I-1#8*10,%RN
  • Line Location: CNT1+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: (%I#8)=0
  • Line Location: CNT1+12
Function Call: WRITE
  • Prompt: !!,"End of file reached, last portion of save may be corrupted! Terminating save."
  • Line Location: CNT1+13
Function Call: WRITE
  • Prompt: !!,"Done. "
  • Line Location: CNT1+15
Function Call: WRITE
  • Prompt: "Last block used was ",%BN,"."
  • Line Location: QUIT+1
Function Call: WRITE
  • Prompt: !!,"Cannot write end of file. Last part of save may be corrupted."
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,%RN," does not exist"
  • Line Location: PCODE+2
Function Call: WRITE
  • Prompt: $V(0,0,1024,1)
  • Line Location: PC10+2
Function Call: WRITE
  • Prompt: !!,"...Aborted."
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: "*EOF*",!
  • Line Location: NEXTVOL+1
Function Call: WRITE
  • Prompt: !,"Sequence #",%SEQ-1," is full, if using removeable media, please put in the next one"
  • Line Location: NEXTVOL+2
Function Call: READ
  • Prompt: "Enter 'GO' to proceed: "
  • Formatting: !
  • Timeout: $S($D(DTIME):DTIME,1:999)
  • Variable: %X
  • Line Location: NEXTVOL1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXTVOL1+1
Function Call: WRITE
  • Prompt: !!,"Remove sequence #",%SEQ-1,", and put the next disk or tape into the drive. If you are",!,"not using removeable media, you should abort this save by typing 'control C';",!,"your save will still be good up to this point."
  • Line Location: NEXTVOL1+2
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: NEXTVOL1+3
Function Call: WRITE
  • Prompt: !,"Cannot access ",%FN," please correct"
  • Line Location: NEXTVOL1+4
Function Call: WRITE
  • Prompt: "DISK#",%SEQ,!
  • Line Location: NEXTVOL1+5
Function Call: WRITE
  • Prompt: !,"Cannot write to ",%FN," please correct"
  • Line Location: NEXTVOL1+6
Function Call: WRITE
  • Prompt: !,"Tape sequence number ",%SEQ," is full. Last routine was ",%RN,"."
  • Line Location: NEXTTAPE+1
Function Call: WRITE
  • Prompt: !,"After this tape rewinds, mount the next tape.",!
  • Line Location: NEXTTAPE+2
Function Call: WRITE
  • Prompt: *9
  • Line Location: NEXTTAPE+3
Function Call: WRITE
  • Prompt: *16
  • Line Location: NT0+0
Function Call: WRITE
  • Prompt: !,"Enter 'GO' when tape sequence number ",%SEQ
  • Line Location: NT1+0
Function Call: WRITE
  • Prompt: !,"Mount the next tape (sequence number ",%SEQ,") and enter 'GO' when it is ready.",!,"Or enter '^' to abort the save.",!
  • Line Location: NT1+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: NT1+3
Function Call: WRITE
  • Prompt: *10
  • Line Location: NT1+4
Function Call: WRITE
  • Prompt: *7,!,"Tape is not ready"
  • Line Location: NT1+4
Function Call: WRITE
  • Prompt: *7,!,"Tape is write protected"
  • Line Location: NT1+5
Function Call: WRITE
  • Prompt: %TIM1_" "_%DAT1_" (sequence "_%SEQ_")"
  • Line Location: NT1+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: '%TAPV ! W %CMT W:'%TAPV
  • Line Location: NT1+6
Function Call: WRITE
  • Prompt: !!,"Saving ...",!
  • Line Location: NT1+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J CNT1+12

Label References

Name Line Occurrences
CNT1 RCMT
EXIT SIZE+1, CNT1, CNT1+2, ERR
NEXTTAPE CNT1+12
NEXTVOL1 NEXTVOL1+2, NEXTVOL1+3, NEXTVOL1+4, NEXTVOL1+6
NT0 NT1+5
NT1 NT1+1, NT1+3, NT1+4
PC10 PCODE+4
PCODE CNT1+12
RCMT SDEV+5, SIZE, SIZE+3, RCMT+1
SDEV SIZE+1, RCMT
SIZE SDEV+2, SIZE+4, SIZE+6

Naked Globals

Name Field # of Occurrence
^ PCODE+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%BN QUIT+1*, EXIT+2!
%CMT RCMT*, CNT1+10, EXIT+2!, NT1+6
%DAT EXIT+2!
%DAT1 CNT1+10, EXIT+2!, NT1+6
%DEV SDEV+1, CNT1+10, CNT1+12, CNT1+14, QUIT+1, EXIT, EXIT+2!, PCODE+1, PC10, PC10+1
, PC10+4, NEXTVOL+1, NEXTVOL1+4, NEXTTAPE+3, NT0, NT1+4
>> %DEVMODE SDEV+2
>> %DEVTYPE EXIT
%FN EXIT+2!, NEXTVOL1+4, NEXTVOL1+6
%I CNT1+12*, EXIT+2!
%J EXIT+2!
>> %K PCODE+5*
>> %MTEOT CNT1+12
>> %MTON NT1+4
>> %MTWLK NT1+5
%NEXT CNT1+4*, EXIT+2!, PCODE+6
%RN CNT1+11*, CNT1+12*, EXIT+2!, PC10, NEXTTAPE+1
%S EXIT+2!, PCODE+5*, PCODE+6
%SBP START+1!, SDEV+1*, SIZE, QUIT, QUIT+1, EXIT+2!
%SEQ START+1*, SDEV!, QUIT!, EXIT+2!, NEXTVOL+1*, NEXTVOL+2, NEXTVOL1+2, NEXTVOL1+5, NEXTTAPE+1, NEXTTAPE+3*
, NT1, NT1+1, NT1+6
%SIZE SIZE*, SIZE+1*, SIZE+2*, SIZE+3*, SIZE+4, EXIT+2!, PCODE+6
%TAP SDEV+1*, SDEV+2, CNT1+3, CNT1+5, CNT1+12, EXIT+1, EXIT+2!, PCODE+4
%TAPV SDEV+2*, CNT1+6, CNT1+10, CNT1+14, EXIT+2!, PC10, NEXTTAPE+3, NT1+6
%TIM EXIT+2!
%TIM1 CNT1+10, EXIT+2!, NT1+6
%X EXIT+2!, NEXTVOL1+1*, NEXTVOL1+2, NEXTVOL1+3, NEXTVOL1+5*, NEXTVOL1+6, NT1*, NT1+1, NT1+2, NT1+3
%ZA EXIT+2!
%ZPRINT CNT1+5*, CNT1+6*, CNT1+7*, CNT1+12, EXIT+2!
DTIME SIZE+1, RCMT, NEXTVOL1+1, NT1
>> PCODE CNT1+12, PCODE+1*, PCODE+3*, PC10+2*
QUIT SDEV, SDEV+1*, CNT1!, CNT1+2, CNT1+4*, CNT1+12, CNT1+13, QUIT+1, EXIT+2!, PCODE+6
, PC10*, PC10+3*, NEXTVOL1+7*, NT1+2*, NT1+7*
RTN EXIT+3!
XBDAT EXIT+3!
>> XBTYPE CNT1+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All