Routine: XBDHD2

Package	Total	Call Graph
IHS VA Utilities	1	^XBDHD1
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS VA Utilities	1	XBDHD

Entry Points

Name	Comments	DBIA/ICR reference
C7	;
CNEXT	;
NOTES	; ; MAKES SECONDARY EDITING CHANGES AFTER EACH FIELD IS ENTERED ; INPUT = XBDHCHN OR XBDHECHN (XBDHECHN IS THE .A OR .B CHN),^TMP("XBDH",$J,"HEADER",CHN),XBDHTHLW ; OUTPUT = RESET ^TMP("XBDH",$J,"HEADER",CHN) ; TO INSERT A NEW FIELD SIMPLY APPEND IT TO THE END OF THE LINE AND THE MOVE IT
MOVE	;
START	;
C8	;
TEXT	;
C2	;
C3	;
NEW	;
C1	;
C31	;
C6	;
C5	;
C4	;

Name	Field # of Occurrence
^DIR	CNEXT+2, C31+2, C4+3, MOVE+2
^XBDHD1	C1+2, C2+2, C31+9, C4+10, C5+4, C6+4, C7+1, C7+11, MOVE+21

Name	Line Occurrences
Function Call: WRITE	Prompt: "EDITING HEADER LINE SEGMENT """,$C(64+XBDHCHN),""" FIELD = """,$P(^TMP("XBDH",$J,"HEADER",XBDHCHN),V,2),"""",! Line Location: START+2
Function Call: WRITE	Prompt: $E($T(TEXT+XBDHI),4,99),! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: START+4
Function Call: WRITE	Prompt: !! Line Location: C3+1
Function Call: WRITE	Prompt: 13,$J("",IOM),13,7,7 Line Location: C31+6
Function Call: WRITE	Prompt: 7,7,13,$J("",IOM),13 Line Location: C31+7
Function Call: WRITE	Prompt: !! Line Location: C4+1
Function Call: WRITE	Prompt: !!,"ENTRIES RIGHT JUSTIFIED TO A WIDTH OF ",XBDHHDW," COLUMNS" Line Location: C5+2
Function Call: WRITE	Prompt: !!,"ENTRIES WILL BE WORD WRAPPED TO A WIDTH OF ",XBDHHDW," COLUMNS" Line Location: C6+2
Function Call: WRITE	Prompt: "." Line Location: C7+3
Function Call: WRITE	Prompt: "." Line Location: C7+7
Function Call: WRITE	Prompt: "." Line Location: C8+3
Function Call: WRITE	Prompt: 7,13,$J("",IOM),*13 Line Location: C8+4
Function Call: WRITE	Prompt: 13,$J("",IOM),13 Line Location: C8+5
Function Call: WRITE	Prompt: ! Line Location: MOVE+5
Function Call: WRITE	Prompt: 7,7,13,$J("",IOM),13 Line Location: MOVE+6
Function Call: WRITE	Prompt: 7,7,13,$J("",IOM),13 Line Location: MOVE+7
Function Call: WRITE	Prompt: 7,13,$J("",IOM),*13 Line Location: MOVE+8
Routine Call	DIR Line Location: CNEXT+2 C31+2 C4+3 MOVE+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XBDH"	START+1, START+2, C1+1, C2+1, C31+8, C4+8, C4+9, C5+1, C6+1, C7+1! , C7+3, C7+4, C7+5!, C7+7, C7+8, C7+9!, C8+3, MOVE+12, MOVE+14, MOVE+15 , MOVE+16!, MOVE+18, MOVE+19*, MOVE+20!

Name	Field # of Occurrence
^(	C31+8, C8+3

Name	Field # of Occurrence
DIR	CNEXT+3!, C31+3!, C4+4!, MOVE+3!
DIR("?"	CNEXT+1, MOVE+1
DIR("A"	CNEXT+1, C31+1, C4+2, MOVE+1
DIR(0	CNEXT+1, C31+1, C4+2, MOVE+1
>> I	C7+7, MOVE+18
IOM	C31+6, C31+7, C8+4, C8+5, MOVE+6, MOVE+7, MOVE+8
>> L	C7+3, C8+3, MOVE+14, MOVE+18
U	C4+7
>> V	START+1, START+2, C1+1, C2+1, C31+8, C4+8, C4+9, C5+1, C6+1
>> X	C7+2, C7+3, C7+6, C7+7, C8+2, C8+3, MOVE+17, MOVE+18
>> XBDHCHN	START+1*, START+2, C1+1, C2+1, C31+8, C4+8, C4+9, C5+1, C6+1, C7+1 , C8+1, C8+4, MOVE+7
XBDHECHN	START+1, CNEXT+5!, C7+1, C7+5, C7+10!, C8+1, MOVE+20!
XBDHFROM	NEW+1~, C8+1, MOVE+8, MOVE+9, MOVE+11, MOVE+12, MOVE+14, MOVE+16
>> XBDHHDR	START+1, C1+1, C31+1, C31+7, C4+8
>> XBDHHDW	START+1, C1+1, C31+1, C31+7, C31+8, C4+2, C5+2, C6+2
XBDHI	NEW+1~, START+3*
>> XBDHNSL	C31+1, C31+7
>> XBDHTCHN	C8+3*, MOVE+1
XBDHTEMP	NEW+1~, C7+4, C7+8, C7+9!, MOVE+15, MOVE+19, MOVE+20!
XBDHTO	NEW+1~, MOVE+4, MOVE+5, MOVE+6, MOVE+7, MOVE+8, MOVE+9, MOVE+10, MOVE+11
>> XBDHX	START+1, CNEXT+4, CNEXT+5, CNEXT+6, C31+4, C31+5, C31+6, C31+7, C31+8, C4+5 , C4+6, C4+7, C4+8, C4+9, MOVE+10, MOVE+11, MOVE+12, MOVE+14
>> Y	CNEXT+4, C31+4, C4+5, C8+3, MOVE+4, MOVE+13, MOVE+14, MOVE+18

Name	Field # of Occurrence
$T(TEXT+XBDHI	START+3