Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XBDHDF

Package: IHS VA Utilities

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All