Routine: XBHEDD1

Package	Total	Call Graph
IHS VA Utilities	2	^XBHEDD2 INIT^XBHEDD7
VA Fileman	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry Point
ASK1
START	;Print if data, otherwise continue to loop.
WARN	;Warn if printing and over 100 fields in file
ASK	;
PAUSE	;
HD	;
EX	;
PRINT	;Called by START,LOOP
KILL	;Kill variables
LOOP	;Start For Loop

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,$J(ZZA,12),?17,$J(FLD(LEVEL),8),?28,DASHES,ZZB Line Location: PRINT+3
Function Call: WRITE	Prompt: !?26,"""F""........ to select starting FIELD",!?26,"<RETURN>... for all fields" Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: ZZX Line Location: ASK1+0
Function Call: WRITE	Prompt: !?10,"Type ""^"" to quit",!?10,"<RETURN> to see all fields",!?10,"""F"" to start listing at a particular field" Line Location: ASK1+1
Function Call: WRITE	Prompt: ! Line Location: ASK1+3
Function Call: WRITE	Prompt: !!?2,"<RETURN> to continue, '^' to quit: " Line Location: PAUSE+2
Function Call: READ	Timeout: DTIME Variable: Z1 Line Location: PAUSE+3
Function Call: WRITE	Prompt: !?8,"This file has over 100 fields. Sure you want to print? YES//" Line Location: WARN+1
Function Call: READ	Timeout: DTIME Variable: XX Line Location: WARN+2
Function Call: WRITE	Prompt: !?2,"[Y]es to print, [N]o to return to Main Menu." Line Location: WARN+2
Function Call: WRITE	Prompt: !?2,"NODE ; PIECE",?17,"FLD NUM",?48,"FIELD NAME",!?2,"------------",?17,"--------",?28,"-------------------------------------------------" Line Location: HD+1
Routine Call	DIC Line Location: ASK1+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(	PRINT+1, PRINT+2, START+1, LOOP+1
^UTILITY($J	PRINT+7*, EN+2, KILL+1!

Name	Field # of Occurrence
>> BAR	LOOP+2, LOOP+3, LOOP+4
DASHES	PRINT+3, PRINT+5, PRINT+7, ASK1+2, LOOP+4, KILL+1!
>> DIC	ASK1+3*
>> DIC("W"	ASK1+3*!
>> DIC(0	ASK1+3*
DTIME	ASK1, PAUSE+3, WARN+2
EDDDATE	KILL+1!
FILE	KILL+1!
FILE(	PRINT+1, PRINT+2, ASK1+2, START+1, LOOP+1, LOOP+5*
>> FLAGE	EX+1, ASK1, PAUSE+3
>> FLAGL	EX+2*
>> FLAGP	PRINT+7, EN+2, EX+1, LOOP+6
>> FLAGQ	EN+1, EN+2, EN+3, EX+1, EX+2, ASK1, ASK1+3, LOOP+6, PAUSE+3, WARN+2
>> FLD(	PRINT+1, PRINT+2, PRINT+3, PRINT+7, ASK1+3, ASK1+4, START+1, LOOP+1, LOOP+5*
HD	EN+3*, KILL+1!
>> II	PRINT+5, LOOP+3
IO	EN+2, EX+1, LOOP+6, PAUSE+1
IO(0	EN+2, EX+1, LOOP+6, PAUSE+1
IOF	LOOP+6
LEVEL	PRINT+1, PRINT+2, PRINT+3, PRINT+7, ASK1+2, ASK1+3, ASK1+4, START+1, LOOP+1, LOOP+3 , LOOP+5, KILL+1!
PAGE	PRINT+7, ASK1+2*, KILL+1!
PAGETEMP	KILL+1!
>> SIZE	LOOP+6
>> SPACE	LOOP+2, LOOP+3, LOOP+4
U	PRINT+2, PRINT+4, START+1, LOOP+5
>> XX	WARN+2*
>> Y	ASK1+3
YCNT	PRINT+7, PRINT+8, ASK1+2, KILL+1!
>> Z1	PAUSE+3*
>> ZDATA	PRINT+2*, PRINT+4, START+1, LOOP+5
>> ZMZ	PRINT+5, PRINT+6, PRINT+7
>> ZNUM	ASK1+2, ASK1+3
>> ZY1	PRINT+4*, PRINT+5, START+1, LOOP+5
>> ZZA	PRINT+2*, PRINT+3, PRINT+7
>> ZZB	PRINT+2*, PRINT+3, PRINT+5, PRINT+7
>> ZZX	ASK1*, ASK1+1, ASK1+3