Routine: XBVCH1

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

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

Customize PDF page

Package: IHS VA Utilities

Routine: XBVCH1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: