XBFLD ; IHS/ADC/GTH - DICTIONARY LISTING ; [ 02/07/97 3:02 PM ]
Source file <XBFLD.m>
Package | Total | Call Graph |
---|---|---|
IHS VA Utilities | 4 | $$DIR^XBDIR ^XBFLD0 ^XBFLD2 ^XBSFGBL |
Kernel | 2 | ^%ZISC $$REPEAT^XLFSTR |
VA Fileman | 1 | ^%DT |
Package | Total | Caller Graph |
---|---|---|
IHS VA Utilities | 2 | XBFLD0 XBFLD2 |
IHS Accounts Receivable | 1 | BARFM |
Package Documentation | 1 | ADCFPALL |
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
|
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 |
|
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! |
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 |
>> | 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* |
Name | Field # of Occurrence |
---|---|
$T(TXT+% | FORMAT+3 |