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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: XBFLD

Package: IHS VA Utilities

Routine: XBFLD


Information

XBFLD ; IHS/ADC/GTH - DICTIONARY LISTING ; [ 02/07/97 3:02 PM ]

Source Information

Source file <XBFLD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS VA Utilities 4 $$DIR^XBDIR  ^XBFLD0  ^XBFLD2  ^XBSFGBL  
Kernel 2 ^%ZISC  $$REPEAT^XLFSTR  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS VA Utilities 2 XBFLD0  XBFLD2  
IHS Accounts Receivable 1 BARFM  
Package Documentation 1 ADCFPALL  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ; GIVE USER A CHANCE TO SEE LAST PAGE AND QUIT
MULTIPLE ; LIST MULTIPLE, THEN FIELDS IN SUBFILE
COMPUTED ; COMPUTED FIELD
; The variable XBCOMP prevents multiple lfs between adjacent
; computed fields.
FIELD ; LIST ONE FIELD
FIELDS ; LIST ALL FIELDS IN ONE FILE/SUBFILE (CALLED RECURSIVELY)
FORMAT ;EP - select format
LIST ; LIST RANGE OF FILES
PAGE ;EP - PAGE HEADERS
WRITE ; WRITE ONE LINE
START ;
INIT ; INITIALIZATION
EN ; EXTERNAL ENTRY POINT
; To use this entry point ^UTILITY("XBDSET",$J, must contain
; the list of dictionaries. All device variables must be set
; and, if appropriate, the U IO executed prior to the call.
; It is the callers responsibility to close the device.
HEADING2 ; HARD COPY HEADERS
FILE ; LIST ONE FILE
EOJ ; END OF JOB
WRITELF ; WRITE ONE LINE FEED
; The variable XBLNFEED prevents multiple lfs when backing out of
; deep recursion.
TXT ;
HEADING ; DICTIONARY HEADERS
LOOP ; LIST FILES UNTIL USER SAYS STOP

External References

Name Field # of Occurrence
^%DT HEADING2+10
^%ZISC LOOP+3
$$DIR^XBDIR PAUSE+1, FORMAT+4
^XBFLD0 WRITE+13
^XBFLD2 INIT+3
^XBSFGBL MULTIPLE+6
$$REPEAT^XLFSTR PAGE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"^XBFLD - This routine lists FileMan dictionaries."
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !?XBTAB,XBFIELD,?13+XBTAB,$S(XBTYPE="":XBNAME,1:$E(XBNAME,1,31-XBTAB)),?46,$E(XBWPSUB,1,21),?68,XBWPC,?77,XBTYPE
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: !?XBTAB,XBFIELD,?13+XBTAB,$S(XBTYPE="":XBNAME,1:$E(XBNAME,1,31-XBTAB)),?46,$E(XBWPSUB,1,21)
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: ?56,^DD(XBFILE,XBFIELD,9.1)
  • Condition for execution: XBFMT["C"
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: !,?13+XBTAB,$E(XBNAME,32-XBTAB,$L(XBNAME)),?46,$E(XBWPSUB,22,$L(XBWPSUB))
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !,?16+XBTAB,"S: ",$P(^DD(XBFILE,XBFIELD,0),"^",3)
  • Line Location: WRITE+9
Function Call: WRITE
  • Prompt: !,?16+XBTAB,"P: ",XBFLDPT
  • Line Location: WRITE+10
Function Call: WRITE
  • Prompt: !,?16+XBTAB,"V: ",$P(^DD(XBFILE,XBFIELD,"V",XBFLDPT,0),"^",1,2)
  • Line Location: WRITE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITELF+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: ?80-$L("FILE: "_$P(^DIC(XBFILE,0),"^",1))\2,"FILE: ",$P(^DIC(XBFILE,0),"^",1),!,?80-$L("GLOBAL: "_^DIC(XBFILE,0,"GL"))\2,"GLOBAL: ",^DIC(XBFILE,0,"GL"),!,?80-$L("FILE #: "_XBFILE)\2,"FILE #: ",XBFILE,!!
  • Line Location: HEADING+5
Function Call: WRITE
  • Prompt: !!!
  • Line Location: HEADING2+2
Function Call: WRITE
  • Prompt: XBTIME,?80-$L(XBTITLE)\2,XBTITLE,?72,"page ",XBPAGE,!,?80-$L(^DD("SITE"))\2,^DD("SITE"),!
  • Line Location: HEADING2+6
Function Call: WRITE
  • Prompt: ?80-$L(Y)\2,Y
  • Line Location: HEADING2+9
Function Call: WRITE
  • Prompt: !!,?80-$L("as of "_Y)\2,"as of ",Y,!!
  • Line Location: HEADING2+13
Function Call: WRITE
  • Prompt: "FIELD #",?13,"FIELD NAME",?46,"SUBSCRIPT",?69,"PIECE",?75,"TYPE",!,$$REPEAT^XLFSTR("=",79),!
  • Line Location: PAGE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" HEADING2+7
^DD( FIELDS+1, FIELD+2, WRITE+7, WRITE+9, WRITE+11, WRITE+13
^DD("DD" HEADING2+12
^DD("SITE" HEADING2+6
^DIC - [#1] WRITE+10, HEADING+5
^UTILITY("XBDSET" LIST+4, EOJ+2!

Label References

Name Line Occurrences
COMPUTED FIELD+6
EOJ START+2, EN+8
FIELD FIELDS+1
FIELDS FILE+3, MULTIPLE+9
FILE LIST+4
HEADING FILE+2
HEADING2 HEADING+4
INIT LOOP+3
LIST LOOP+3, EN+7
LOOP START+1
MULTIPLE FIELD+8
PAGE WRITE+2, HEADING+6
PAUSE FILE+5, PAGE+2
WRITE FIELD+12, COMPUTED+7, MULTIPLE+2
WRITELF FIELD+7, COMPUTED+4, MULTIPLE+2, MULTIPLE+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAUSE+1*, FORMAT+3*
>> %DT HEADING2+10*
A FORMAT+1~, FORMAT+2*, FORMAT+4
A( FORMAT+3*
DIR EOJ+3!
DIRUT PAUSE+1!, EOJ+3!
DT HEADING2+10*, HEADING2+11
DTOUT EOJ+3!
DUOUT PAUSE+1!, EOJ+3!
IO HEADING2+1, PAUSE+1, EN+7
IO(0 HEADING2+1, PAUSE+1, EN+7
IOF HEADING+3, PAGE+4, EN+7
IOSL WRITE+2, WRITELF+5, EN+7
IOST HEADING2+1, PAUSE+1
POP EOJ+3!
S EOJ+3!
U FIELD+3, FIELD+4, FIELD+9
X FIELD+2*, FIELD+3, FIELD+4, FIELD+9, WRITE+10, HEADING2+10*, PAGE+1~, FORMAT+1~, FORMAT+3*, EOJ+3!
XBCOMP LIST+2~, FILE+1*, FIELD+7*, COMPUTED+4, COMPUTED+5*
>> XBDSND INIT+2*
XBFIELD LIST+2~, FIELDS+1*, FIELD+2, MULTIPLE+4~, WRITE+4, WRITE+6, WRITE+7, WRITE+9, WRITE+11, WRITE+13
XBFILE LIST+2~, LIST+4*, FIELDS+1, FIELD+2, MULTIPLE+4~, MULTIPLE+5*, MULTIPLE+6, WRITE+7, WRITE+9, WRITE+11
, WRITE+13, HEADING+5
XBFLD EOJ+1!
XBFLD("BROWSE" HEADING2+2
XBFLDP INIT+1*, INIT+2, EOJ+1!
XBFLDPT WRITE+10*!, WRITE+11*, EOJ+1!
XBFMT LIST+1*, WRITE+7, WRITE+9, WRITE+10, WRITE+11, WRITE+13, FORMAT+6*, EOJ+1!
XBHOUR HEADING+1~, HEADING2+3*, HEADING2+5
XBIHS EOJ+1!
XBLNFEED LIST+2~, FILE+1*, WRITE+1*, WRITELF+4, WRITELF+5*
XBMINUT HEADING+1~, HEADING2+3*, HEADING2+4*, HEADING2+5
XBNAME LIST+2~, FIELD+1*, FIELD+3*, MULTIPLE+1*, WRITE+6, WRITE+7, WRITE+8
XBPAGE LIST+2~, FILE+1*, HEADING+2*, HEADING2+6, PAGE+2, PAGE+4, PAGE+5*
XBPIECE LIST+2~, FIELD+1*, FIELD+11*, WRITE+5
XBPSUB LIST+2~, FIELD+1*, FIELD+10*, COMPUTED+5*, COMPUTED+6*, WRITE+4, WRITE+6, WRITE+12
XBPSUBOL LIST+2~, FILE+1*, WRITE+4, WRITE+12*, PAGE+7*
XBQFLG LOOP+1~, LOOP+3, LIST+3*, LIST+4, FILE+4, FIELDS+1, MULTIPLE+3, MULTIPLE+11, WRITE+3, PAGE+3
, PAUSE+1*, EN+6~
XBSUB LIST+2~, FILE+1*, FIELD+10, MULTIPLE+4~, MULTIPLE+6, MULTIPLE+7*
XBSUBFIL LIST+2~, MULTIPLE+1*, MULTIPLE+5
XBTAB LIST+2~, FILE+1*, MULTIPLE+8*, MULTIPLE+10*, WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+11
XBTIME HEADING+1~, HEADING2+3*, HEADING2+5*, HEADING2+6
XBTITLE HEADING+1~, HEADING2+3*, HEADING2+6
XBTYPE LIST+2~, FIELD+1*, FIELD+5*, FIELD+6, FIELD+8, FIELD+11, COMPUTED+5*, WRITE+6, WRITE+7, WRITE+8
, WRITE+9, WRITE+10, WRITE+11
XBWPC LIST+2~, WRITE+5*, WRITE+6
XBWPSUB LIST+2~, WRITE+4*, WRITE+6, WRITE+7, WRITE+8
Y FIELD+4*, FIELD+5, FIELD+9*, FIELD+10, FIELD+11, COMPUTED+6, MULTIPLE+1, HEADING2+8*, HEADING2+9, HEADING2+10
, HEADING2+11*, HEADING2+13, FORMAT+4*, FORMAT+5*, FORMAT+6, EOJ+3!
>> ZTQUEUED EOJ+4
>> ZTREQ EOJ+4*

Marked Items

Name Field # of Occurrence
$T(TXT+% FORMAT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All