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

Package: IHS VA Utilities

Routine: XBVCH1


Information

XBVCH1 ; IHS/ADC/GTH - CONTINUE VARIABLE CHANGER ; [ 10/29/2002 7:42 AM ]

Source Information

Source file <XBVCH1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS VA Utilities 2 ^XBCLS  EN^XBNEW  
VA Fileman 2 ^DIM  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS VA Utilities 1 XBVCH  

Entry Points

Name Comments DBIA/ICR reference
SAVE ; SAVE NEW ROUTINE TO DISK
SCAN ;
PROCESS ;
EDIT ;
LIN ;PROCESS LINE FROM TOP
DISPROU ;display routine list
ACCEPT ;
DISPLAY ; display line
; XB(XBI,0)=POS XB("B",POS)=XBI XB("E",POS)=XBI XB(XBI,"M")=MARK (0 OR 1)
; XBD(0) =underline-on,XBD(1)=Bold on,XBD(2)=Underline Off,XBD(3)=Bold Off,XBD("RVON")=RVON,XBD("RVOFF")=RVOFF
CHKMK ;
TAB ;
DISP1 ;
DISP0 ;
UPT ; SET TAB
BLDLIN1 ;
SCAN0 ;
SCAN1 ;
TAB1 ;

External References

Name Field # of Occurrence
^DIM ACCEPT+7
^DIR PROCESS+10, PROCESS+13, EDIT+31, ACCEPT+9, SAVE+7
^XBCLS PROCESS+10, PROCESS+13, DISP0+2, EDIT+19, DISPLAY+3, SAVE+1, SAVE+9
EN^XBNEW EDIT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,X," NOT FOUND",!
  • Line Location: PROCESS+10
Function Call: WRITE
  • Prompt: !,^(0),!
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: ?XBRC
  • Line Location: DISPROU+4
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: XBRD=XBROU
  • Line Location: DISPROU+4
Function Call: WRITE
  • Prompt: XBRD
  • Line Location: DISPROU+4
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: XBRD=XBROU
  • Line Location: DISPROU+4
Function Call: WRITE
  • Prompt: *7
  • Line Location: CHKMK+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: EDIT+16
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EDIT+20
Function Call: WRITE
  • Prompt: !?5,"'X' Set changes"
  • Line Location: EDIT+21
Function Call: WRITE
  • Prompt: !?5,"'Tab' or 'T' Move to next marker"
  • Line Location: EDIT+22
Function Call: WRITE
  • Prompt: !?5,"'Space bar' Toggel marker and move to next"
  • Line Location: EDIT+23
Function Call: WRITE
  • Prompt: !?5,"'CR' Skip to next line"
  • Line Location: EDIT+24
Function Call: WRITE
  • Prompt: !?5,"'R' Restart the current Routine"
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: !?5,"'%' %E Edit Routine"
  • Line Location: EDIT+26
Function Call: WRITE
  • Prompt: !?5,"'N' Next Routine"
  • Line Location: EDIT+27
Function Call: WRITE
  • Prompt: !?5,"'^' Exit"
  • Line Location: EDIT+28
Function Call: WRITE
  • Prompt: ?5,"routine ",XBROU,?35,"line ",XBLN,!!
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: XBD(6)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: XBD(XB(XB("B",XBI),"M")*2)
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: $E(XBLINX,XBI)
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: XBD(XB(XB("E",XBI),"M")*2+1)
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: XBD(7)
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: XBD(2),"|",XBD(3)
  • Line Location: TAB1+2
Function Call: WRITE
  • Prompt: *7,!,XBD(2),"FM DIM checker does not like this line !",XBD(3),!,XBD(2),XBLINX,XBD(3),!
  • Line Location: ACCEPT+8
Function Call: WRITE
  • Prompt: !,"you are in DEV .. NO CHANGES"
  • Line Location: SAVE+3
Function Call: WRITE
  • Prompt: !,"you are in PRD .. NO CHANGES"
  • Line Location: SAVE+4
Function Call: WRITE
  • Prompt: !?5,XBROU," NOT CHANGED"
  • Line Location: SAVE+9
Function Call: WRITE
  • Prompt: !?5,XBROU,"is being saved with changes",!
  • Line Location: SAVE+10
Function Call: WRITE
  • Prompt: !?5,XBROU,"SAVED WITH CHANGES"
  • Line Location: SAVE+16
Routine Call
  • DIR
  • Line Location:
    • PROCESS+10
    • PROCESS+13
    • EDIT+31
    • ACCEPT+9
    • SAVE+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LOAD" PROCESS+12, %EDIT+4
^%ZOSF("RM" PROCESS+3
^%ZOSF("TEST" PROCESS+9
^%ZOSF("UCI" SAVE+2
^XBVROU( PROCESS+5, PROCESS+7, PROCESS+13, PROCESS+15, PROCESS+17!, ACCEPT+17*, %EDIT+2!, SAVE+15*
^XBVROU("PRT" SAVE+13*, SAVE+14*

Label References

Name Line Occurrences
ACCEPT LIN+6, ACCEPT+13, ACCEPT+15
BLDLIN1 ACCEPT+1
CHKMK LIN+3, LIN+5, ACCEPT+13
DISP0 EDIT+1, ACCEPT+1
DISP1 ACCEPT+1
DISPLAY DISP0+2, DISP1+2
DISPROU DISPLAY+4
EDIT LIN+5, EDIT+6, EDIT+7, EDIT+8, EDIT+32, ACCEPT+13
LIN PROCESS+15
SAVE PROCESS+16
SCAN SCAN0+2, SCAN1+2
SCAN0 LIN+3, ACCEPT+13
SCAN1 ACCEPT+1
UPT SCAN0+2, EDIT+6, EDIT+7, EDIT+8, UPT+2

Naked Globals

Name Field # of Occurrence
^( PROCESS+15
^(0 PROCESS+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %N PROCESS+11*, %EDIT+3*
>> DIF PROCESS+11*, %EDIT+3*
DIR PROCESS+10!, PROCESS+13!, EDIT+29!, ACCEPT+2!, ACCEPT+10!, SAVE+5!, SAVE+8!
DIR("A" SAVE+6*
DIR("B" ACCEPT+3*, ACCEPT+8*, SAVE+6*
DIR(0 PROCESS+10*, PROCESS+13*, EDIT+30*, ACCEPT+3*, SAVE+6*
DTIME EDIT+4
>> DX DISPROU+1*, EDIT+2*, DISPLAY+5*, TAB+1*, TAB+2*
>> DY DISPROU+1*, EDIT+2*, DISPLAY+5*, TAB+1*, TAB+2
>> X PROCESS+2*, PROCESS+8*, PROCESS+10, PROCESS+11*, EDIT+4*, EDIT+5*, EDIT+6, EDIT+7, EDIT+8, EDIT+9
, EDIT+10, EDIT+12, EDIT+13, EDIT+18, ACCEPT+4*, ACCEPT+5*, ACCEPT+6*, ACCEPT+8, %EDIT+3*
XB SCAN+1!
XB( SCAN+3*, SCAN+4*, SCAN+5*, SCAN+6, SCAN+7*, SCAN+9!, CHKMK+1, EDIT+8*, EDIT+16, DISPLAY+12
, DISPLAY+14, TAB+1, UPT+1, UPT+4, BLDLIN1+2, BLDLIN1+4
XB("B" SCAN+6*, DISPLAY+12
XB("E" SCAN+6*, DISPLAY+14
XB("T" UPT+3!, UPT+4*
>> XBD( DISPLAY+12, DISPLAY+14
>> XBD(2 TAB1+2, ACCEPT+8
>> XBD(3 TAB1+2, ACCEPT+8
>> XBD(6 DISPLAY+9
>> XBD(7 DISPLAY+16
>> XBEDIT PROCESS+14*, PROCESS+16, ACCEPT+16*
XBEDLIN LIN+5!
>> XBI SCAN+3*, SCAN+4, SCAN+5, SCAN+6, SCAN+7, SCAN+9, DISPLAY+10*, DISPLAY+11, DISPLAY+12, DISPLAY+13
, DISPLAY+14, BLDLIN1+2*, BLDLIN1+3*, BLDLIN1+4
>> XBJ PROCESS+5, PROCESS+7, PROCESS+13, PROCESS+15, PROCESS+17, ACCEPT+17, %EDIT+2, SAVE+15
XBJM CHKMK+1*, CHKMK+2!, EDIT+15*, EDIT+16*, EDIT+17!
>> XBL PROCESS+1*, SCAN+2*, SCAN+3, SCAN+5, SCAN+6, SCAN+7
>> XBLIN PROCESS+15*, LIN+1, BLDLIN1+1, BLDLIN1+2, BLDLIN1+4, ACCEPT+17*, %EDIT+5*
>> XBLIN0 LIN+1*, LIN+2, SCAN0+1, DISP0+1, BLDLIN1+1*
>> XBLIN1 SCAN1+1, DISP1+1, BLDLIN1+1*, BLDLIN1+2*, BLDLIN1+4*, ACCEPT+17
>> XBLINX SCAN0+1*, SCAN1+1*, DISP0+1*, DISP1+1*, SCAN+3, SCAN+5, DISPLAY+10, DISPLAY+13, ACCEPT+4, ACCEPT+8
>> XBLN PROCESS+14*, PROCESS+15*, EDIT+9*, EDIT+10*, EDIT+12*, DISPLAY+7, ACCEPT+11*, ACCEPT+17
XBMK LIN+4, LIN+5, SCAN+1!, CHKMK+1!*, EDIT+9!, EDIT+10!, EDIT+12!, EDIT+13!, EDIT+14!, EDIT+16*
, ACCEPT+13
>> XBOUT PROCESS+1*, PROCESS+7, PROCESS+10*, PROCESS+15, LIN+5, EDIT+13*, ACCEPT+14*
>> XBP SCAN+5
>> XBRC DISPROU+4*
>> XBRD DISPROU+3*, DISPROU+4*
>> XBRI DISPROU+4*
>> XBRM PROCESS+4*, PROCESS+5*, DISPROU+4
>> XBROU PROCESS+4*, PROCESS+5*, PROCESS+6*, PROCESS+7*, PROCESS+8, PROCESS+11, PROCESS+13, PROCESS+15, PROCESS+17, DISPROU+4
, DISPLAY+7, ACCEPT+17, %EDIT+2, %EDIT+3, SAVE+6, SAVE+9, SAVE+10, SAVE+13, SAVE+14, SAVE+16
>> XBS SCAN+5
>> XBSAV1 SAVE+11*
>> XBSAV2 SAVE+11*
>> XBSAV3 SAVE+11*
>> XBSUB BLDLIN1+1*, SAVE+13, SAVE+14
XBT SCAN+1!, EDIT+8, TAB+1, UPT+1*, UPT+2*, UPT+4
>> XBV0 PROCESS+1, LIN+1, LIN+2, LIN+4, SCAN0+1, DISP0+1, CHKMK+1, DISPLAY+3, DISPLAY+4, BLDLIN1+1
, BLDLIN1+2
>> XBV1 SCAN1+1, DISP1+1, DISPLAY+8, DISPLAY+17, BLDLIN1+1, BLDLIN1+2, SAVE+15
>> XBVX LIN+1*, SCAN0+1*, SCAN1+1*, DISP0+1*, DISP1+1*, SCAN+2, SCAN+3, CHKMK+1, DISPLAY+3, DISPLAY+4
, DISPLAY+8, DISPLAY+17
>> XBXY DISPROU+2, EDIT+3, DISPLAY+6, TAB1+1
>> XCNP PROCESS+11*, %EDIT+3*
>> Y PROCESS+10, ACCEPT+11, ACCEPT+12, ACCEPT+13, ACCEPT+14, ACCEPT+15, SAVE+3, SAVE+4, SAVE+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All