Routine: XBDHDF

Information

XBDHDF ; IHS/ADC/GTH - GETS FIELD INFO FOR HEADER LINE EDITOR ; [ 02/07/97 3:02 PM ]

Source Information

Source file <XBDHDF.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIM ^DIR
IHS VA Utilities	1	^XBDHDF1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS VA Utilities	1	XBDHD

Entry Points

Name	Comments	DBIA/ICR reference
OK1	;
LINE	;
OK	;
COMPUTED	;
GETFIELD	;
NOTES	; ; INTERPRETS THE ANSWER TO THE "THEN ENTER FIELD: " QUERY ; INPUT = ^TMP("XBDH",$J,"STACK",XBDHLIFO) [XBDHDFN^XBDHDFNA^XBDHDSUB^XBDHDPTH],XBDHCHN,XBDHLIFO ; OUTPUT = XBDHHDNO,XBDHHDN ; IF FIELD IS A MULTIPLE, IT RESETS PATH AND LIFO AND ASKS FOR SUBFILE. IF ONLY .01 FIELD OF SUBFILE EXISTS, IT PROMPTS FOR IT. ; ANY ANSWER IT CANT FIGURE OUT IS TREATED (AT LEAST TEMPORARILY) AS A COMPUTED FIELD ; IF ANSWER IS A RELATIONAL JUMP (ie ENDS IN ':') IT CHECKS ITS LEGALITY,RESETS PATH AND LIFO. ; MUMPS EXPRSSIONS ARE ATTACHED TO THE SUCCEEDING FIELD AS THE SUBSCRIPT ^TMP("XBDH",$J,"HEADER",X,Y) AND WILL FOLLOW THIS FIELD IF IT IS MOVED OR REMOVED ; IF USER IS IN A SUBFILE OR JUMPED-TO FILE , PRESSING <CR> WILL MOVE HIM TO THE NEXT HIGHER LEVEL
MULTIPLE	;
DECI	;
CKM1	;
MUMPS	;
PATH	;
VAR	;
NEW	;
C1	;
OUT	;
LAST	;
CKMUMPS	;
MORE	;

External References

Name	Field # of Occurrence
^DIC	OK1+6
YN^DICN	MUMPS+3
^DIM	CKMUMPS+1, COMPUTED+3
^DIR	COMPUTED+7
^XBDHDF1	OK1+4, CKM1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,Z Line Location: GETFIELD+6
Function Call: WRITE	Prompt: !!,"Enter field name,number,computed expr.,MUMPS code,jump syntax or '??' for list",!! Line Location: GETFIELD+10
Function Call: WRITE	Prompt: !! Line Location: GETFIELD+11
Function Call: WRITE	Prompt: ! Line Location: GETFIELD+12
Function Call: WRITE	Prompt: !! Line Location: GETFIELD+13
Function Call: WRITE	Prompt: !!! Line Location: OK1+1
Function Call: WRITE	Prompt: !! Line Location: OK1+7
Function Call: WRITE	Prompt: !,"MUMPS EXPRESSION ENTERED",!! Line Location: CKMUMPS+2
Function Call: WRITE	Prompt: ! Line Location: CKM1+5
Function Call: WRITE	Prompt: ! Line Location: COMPUTED+5
Function Call: WRITE	Prompt: !! Line Location: COMPUTED+9
Function Call: WRITE	Prompt: !,"SORRY, I DON'T UNDERSTAND THIS ENTRY...TRY AGAIN",!!,*7 Line Location: COMPUTED+10
Function Call: WRITE	Prompt: !,"DOES THIS MUMPS EXPRESSION REQUIRE A COLUMN HEADER" Line Location: MUMPS+2
Function Call: WRITE	Prompt: ! Line Location: MUMPS+5
Function Call: WRITE	Prompt: !!! Line Location: MUMPS+8
Function Call: WRITE	Prompt: " (word-processing)" Line Location: MULTIPLE+2
Function Call: WRITE	Prompt: " (multiple)" Line Location: MULTIPLE+3
Function Call: WRITE	Prompt: !! Line Location: MULTIPLE+8
Function Call: WRITE	Prompt: !!,X,!! Line Location: LINE+1
Routine Call	DIC Line Location: OK1+6
Routine Call	DIR Line Location: COMPUTED+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	OK1+8, MULTIPLE+1, MULTIPLE+4, MULTIPLE+6, MULTIPLE+7
^TMP("XBDH"	VAR+1, OK1+1!, MUMPS+6, MULTIPLE+5*, DECI+5

Label References

Name	Line Occurrences
@(	CKMUMPS+2
C1	COMPUTED+4
COMPUTED	CKM1+3
DECI	DECI+7
GETFIELD	GETFIELD+10, GETFIELD+12, OK1+4, OK1+7, CKM1+7
LAST	DECI+2
LINE	PATH+3, DECI+5
MULTIPLE	OK1+8
MUMPS	CKMUMPS+2
OK	OK1+8
OK1	VAR+3
OUT	OK1+4, CKM1+2, CKM1+4
PATH	MORE+1
VAR	OK1+1, OK1+4, OK1+8, CKM1+2

Naked Globals

Name	Field # of Occurrence
^(	MUMPS+6*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MUMPS+1*
>> %Y	MUMPS+4, MUMPS+5
A	GETFIELD+2, GETFIELD+3, GETFIELD+5, GETFIELD+9, OK1+4, CKM1+2, PATH+1~, PATH+2, DECI+3, DECI+4 , LAST+1
>> DIC	OK1+5*
>> DIC(0	OK1+5*
DIR	COMPUTED+8!
DIR("A"	COMPUTED+6*
DIR("B"	COMPUTED+6*
DIR(0	COMPUTED+6*
DTIME	GETFIELD+7
>> I	MUMPS+6*
U	VAR+1, GETFIELD+8, OK1+8, OK+1, COMPUTED+9, MUMPS+4, MULTIPLE+2, MULTIPLE+5, MULTIPLE+7, DECI+5
X	VAR+1, VAR+2!, OK1+5, OK1+7, OK1+8, CKMUMPS+2, COMPUTED+2, COMPUTED+4, MUMPS+4, MUMPS+5 , MUMPS+7, MULTIPLE+1, MULTIPLE+4, MULTIPLE+5, MULTIPLE+6, MULTIPLE+7, PATH+1~, PATH+2, PATH+3, DECI+4 , DECI+5, DECI+6, LAST+1, LAST+2, LINE+1
>> XBDHCHN	GETFIELD+1, GETFIELD+12, OK1+2, MUMPS+6
>> XBDHDFN	VAR+1*, OK1+8
>> XBDHDFNA	VAR+1*, GETFIELD+1
>> XBDHDPTH	VAR+1, OK1+1, MULTIPLE+4*, MULTIPLE+5, PATH+2, PATH+3, DECI+3
>> XBDHDSUB	VAR+1*, GETFIELD+1
>> XBDHECHN	OK1+2*
XBDHHDN	CKM1+6, OK+1, COMPUTED+1, COMPUTED+10!, C1+1*
>> XBDHHDNO	OK+1, COMPUTED+1, C1+1*
>> XBDHLIFO	VAR+1, GETFIELD+1, GETFIELD+13, OK1+1, MULTIPLE+4, MULTIPLE+5, DECI+5
XBDHMFLG	VAR+3!, GETFIELD+3*
XBDHMULT	GETFIELD+3!, MULTIPLE+7*
>> XBDHPDNA	PATH+3, LAST+2
XBDHQUIT	NEW+1~, CKM1+4
XBDHXX	NEW+1~, OK1+3*, CKM1+1, COMPUTED+1!, COMPUTED+2, C1+1, C1+2!, MUMPS+6
Y	VAR+3, GETFIELD+7, GETFIELD+8, GETFIELD+9, GETFIELD+10, GETFIELD+11, GETFIELD+12, GETFIELD+13, OK1+1, OK1+2 , OK1+3, OK1+4, OK1+5, OK1+8, OK1+9, CKM1+1, CKM1+2, OK+1, COMPUTED+9, COMPUTED+10! , PATH+1~, PATH+2, DECI+1, DECI+2, DECI+3, OUT+1
Z	GETFIELD+1, GETFIELD+4, GETFIELD+5, GETFIELD+6, OK1+8, MULTIPLE+1, MULTIPLE+2, MULTIPLE+4, MULTIPLE+5, MULTIPLE+6 , MULTIPLE+7, MULTIPLE+9, PATH+1~, DECI+3, DECI+5, DECI+6

Customize PDF page

Package: IHS VA Utilities

Routine: XBDHDF

Call Graph Total: 5

Caller Graph Total: 1