BAREDL01 ; IHS/SD/LSL - AR TOP LEVEL FILE STRUCTURE ;
Source file <BAREDL01.m>
Package | Total | Call Graph |
---|---|---|
Registration | 3 | EN^VALM TERM^VALM0 CLEAR^VALM1 |
Kernel | 2 | $$REPEAT^XLFSTR DISP^XQORM1 |
IHS VA Utilities | 1 | ENPM^XBDIQ1 |
Uncategorized | 1 | ($$VALMSG,MSG)^AMCOUT |
Name | Comments | DBIA/ICR reference |
---|---|---|
RESET | ;EP; -- rebuilds array after action
|
|
HDR | ;EP -- header code
|
|
EN(FLNM,FD) | ;EP
; -- for the file type |
|
PAD(D,L) | ; -- SUBRTN to pad length of data
; -- D=data L=length |
|
SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
INIT | ;EP -- init variables and list array
|
|
GATHER(FLNUM) | ; -- SUBRTN to set data into array
|
|
EXPND | ;EP -- expand code
|
|
EXIT | ;EP -- exit code
|
|
HELP | ;EP -- help code
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BAREDI("1T" - [#90056.01] | HDR+2 |
^TMP($J | EN+3!, EXIT+2!, GATHER+6!, GATHER+7!, GATHER+25*, GATHER+26*, GATHER+27* |
Name | Line Occurrences |
---|---|
$$PAD | GATHER+24, GATHER+26, SP+1 |
GATHER | INIT+1 |
HDR | RESET+3 |
INIT | RESET+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ARSUB | GATHER+9*, GATHER+15 |
>> COUNT | GATHER+11*, GATHER+28* |
D | PAD~, PAD+2 |
>> DI | GATHER+19*, GATHER+20*, GATHER+22 |
FD | EN~, EN+5, HDR+3 |
>> FIELD | GATHER+22*, GATHER+23, GATHER+24 |
>> FILE | HDR+2 |
>> FLEN | GATHER+21*, GATHER+23*, GATHER+24 |
FLNM | EN~, EN+4 |
FLNUM | EN+4*, INIT+1, GATHER~, GATHER+15 |
L | PAD~, PAD+2 |
>> LN | GATHER+11*, GATHER+25, GATHER+26, GATHER+27, GATHER+28* |
>> LST | GATHER+4*, GATHER+15 |
N | SP~, SP+1 |
>> RECNM | GATHER+10* |
>> RECORD | GATHER+19*, GATHER+24*, GATHER+25, GATHER+26 |
>> RN | GATHER+17*, GATHER+18*, GATHER+20, GATHER+22 |
SEG | GATHER+8! |
SEG( | GATHER+18, GATHER+20, GATHER+22 |
>> VALMBCK | RESET+2* |
>> VALMCNT | INIT+2* |
>> VALMHDR(1 | HDR+2* |
>> VALMHDR(2 | HDR+3* |
>> VALMSG | HDR+1* |
>> X | HELP+1* |