Routine: XBFIXL1

Package	Total	Call Graph
IHS VA Utilities	4	$$DIR^XBDIR ($$FNDPATRN,$$GETPATRN)^XBFUNC ^XBKTMP ^XBKVAR

Entry Points

Name	Comments	DBIA/ICR reference
VERIFY	; Ask user to verify mod.
EXTDATE	; Extract date and remove from Line.
MODIFY	; Modify Line 1.
REVER	;
START	;
FIX	; Get comment from user.
EOJ	;
CHECK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"^XBFIXL1 cannot modify itself. Ignored." Line Location: START+5
Function Call: WRITE	Prompt: !!,XBRTN," - line 1 contains code and must be changed manually. Skipping" Line Location: CHECK+5
Function Call: WRITE	Prompt: !!,XBRTN,!," from: ",XBSAVE,!," to: ",XBL1 Line Location: VERIFY+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	CHECK+3
^%ZOSF("RSEL"	START+4
^%ZOSF("SAVE"	REVER+5
^TMP("XBFIXL1"	CHECK+1!, CHECK+4, REVER+5*
^UTILITY($J	START+5!, START+6, START+11, EOJ+3!

Name	Field # of Occurrence
%	MODIFY+5, MODIFY+6, MODIFY+7, MODIFY+8, MODIFY+10*, EOJ+3!
ASK	START+1~
DIE	REVER+5*, EOJ+2!
DIF	CHECK+2*, REVER+5, EOJ+2!
DIROUT	EOJ+4!
DIRUT	START+8, VERIFY+3, FIX+2, EOJ+4!
DTOUT	EOJ+4!
DUOUT	EOJ+4!
QUIT	START+1~, START+2, START+11, REVER+2, REVER+4, VERIFY+3, FIX+2*
RTN	START+1~
X	CHECK+2, REVER+5, MODIFY+1, MODIFY+3, MODIFY+4, MODIFY+5, MODIFY+6, MODIFY+7, MODIFY+8, MODIFY+9* , MODIFY+10, MODIFY+11, MODIFY+12, EXTDATE+1, EXTDATE+9, FIX+1, FIX+3, EOJ+3!
XBDATE	MODIFY+12, EXTDATE+3, EXTDATE+10, EOJ+5!
XBL1	CHECK+4, CHECK+5, CHECK+6, REVER+4, REVER+5, MODIFY+1, MODIFY+12, VERIFY+1, VERIFY+4, FIX+3* , EOJ+5!
XBLDJ	EXTDATE+7*, EXTDATE+8, EOJ+5!
XBLDT	EXTDATE+2, EXTDATE+3, EXTDATE+4, EXTDATE+5, EXTDATE+6, EXTDATE+10, EOJ+5!
XBLP	EXTDATE+1, EXTDATE+2, EXTDATE+4, EXTDATE+6, EXTDATE+7, EXTDATE+8*, EXTDATE+9, EOJ+5!
XBLTM	EXTDATE+4*, EXTDATE+5, EOJ+5!
XBNP	EXTDATE+1*, EXTDATE+9, EOJ+5!
XBPAT	EXTDATE+2*, EOJ+5!
XBPI	START+7*, MODIFY+4, MODIFY+10, MODIFY+11, FIX+3, EOJ+5!
XBRTN	START+10, START+11, CHECK+2, CHECK+5, REVER+5, VERIFY+1, EOJ+5!
XBSAVE	CHECK+6*, REVER+4, VERIFY+1, EOJ+5!
XBTAG	MODIFY+1*, MODIFY+12, EOJ+5!
XCN	REVER+5*, EOJ+2!
XCNP	CHECK+2*, EOJ+2!
Y	REVER+3, VERIFY+2*, VERIFY+4, EOJ+3!