XBDHDF ; IHS/ADC/GTH - GETS FIELD INFO FOR HEADER LINE EDITOR ; [ 02/07/97 3:02 PM ]
Source file <XBDHDF.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 4 | ^DIC YN^DICN ^DIM ^DIR |
IHS VA Utilities | 1 | ^XBDHDF1 |
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 | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
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 |
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 |
Name | Field # of Occurrence |
---|---|
^( | MUMPS+6* |
>> | 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 |