Routine: XBHEDD3

Information

XBHEDD3 ;402,DJB,10/23/91,EDD - Individual Field Summary

Source file <XBHEDD3.m>

Package	Total	Call Graph
IHS VA Utilities	2	^XBHEDD4 TXT^XBHEDD7
VA Fileman	1	^DIC

Package	Total	Caller Graph
IHS VA Utilities	2	XBHEDD2 XBHEDD8

Name	Comments	DBIA/ICR reference
PRINT	;
INIT	;
GETFLD	;Field lookup. Var LEV increments and decrements with Multiple layers.
EX	;
HD	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$E(ZLINE2,1,IOM),!! Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF,!,$E(ZLINE1,1,80),!?5,"Enter one at a time, as many fields as you wish to print. Fields will",!?5,"print in the order entered.",!,$E(ZLINE1,1,80),! Line Location: HD+1
Routine Call	DIC Line Location: GETFLD+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	GETFLD+2
^UTILITY($J	XBHEDD3+6, EX+1!, GETFLD+5*, PRINT+2, INIT+1!

Name	Field # of Occurrence
CNT	XBHEDD3+3~, GETFLD+5, PRINT+2, INIT+1*
DATA	XBHEDD3+3~, PRINT+2*
DIC	EX+1!, GETFLD+1*
DIC("W"	INIT+2*
DIC(0	INIT+2*
FILE	XBHEDD3+3~
FILE(	GETFLD+1, GETFLD+2, GETFLD+3, GETFLD+5, PRINT+2, INIT+1*
>> FLAGE	XBHEDD3+5
>> FLAGP	XBHEDD3+4, XBHEDD3+6, GETFLD+4
>> FLAGQ	EX+1*, PRINT+2
FNAM	XBHEDD3+3~, GETFLD+2, GETFLD+5, PRINT+2
FNUM	XBHEDD3+3~, GETFLD+2, GETFLD+5, PRINT+2
IO	PRINT+1
IO(0	PRINT+1
IOF	HD+1
IOM	PRINT+2
LEV	XBHEDD3+3~, XBHEDD3+5, GETFLD+1, GETFLD+2, GETFLD+3, GETFLD+5, PRINT+2, INIT+1*
TEMP	XBHEDD3+3~, GETFLD+2*, GETFLD+3
U	GETFLD+2, PRINT+2
>> Y	GETFLD+1, GETFLD+2
>> ZLINE1	HD+1
>> ZLINE2	PRINT+2
>> ZNUM	INIT+1