FBNHRCS1 ;ACAMPUS/dmk-RCS 10-0168 CON'T ;10/20/98
Source file <FBNHRCS1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ;called from FBNHRCS for compiling and printing report
|
|
VAL | ;when generating code sheets - validate vendors
|
|
EN | ;start going through TMP to output report
; FBV=ien of vendor FBD= latest contract to date(-) ; FBI=ien of latest contract within date range |
|
CONTR | ;get numeric station number fro contract
|
|
CSC(X) | ; This call will return city(15)_u_state code(2)_u_county(3)
|
|
COUNTY(X,Y) | ;call returns the 3 digit county code
|
|
DOLLAR(X) | ;round off rate to closest dollar and right justify to 3
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(5 - [#5] | CSC+6, COUNTY+4, COUNTY+5 |
^FBAA(161.21 - [#161.21] | START+4, START+5, START+7 |
^FBAA(161.22 - [#161.22] | EN+9 |
^FBAAV - [#161.2] | VAL+4, EN+17, CSC+3, CSC+4 |
^TMP($J | START+7*, VAL+3, EN+4, EN+15* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
C | CSC+4~ |
>> CNT | EN+8*, EN+9* |
DIR | VAL+12! |
DIR("A" | VAL+12* |
DIR(0 | VAL+12* |
FB | EN+8! |
FB( | EN+9*, EN+13 |
FB(0 | EN+9*, EN+12 |
>> FBBEG | START+4 |
FBCN | START+5*!, CONTR+1, CONTR+2, CONTR+3* |
FBCSN | START+4!, START+5, START+6, CONTR+2* |
>> FBD | EN+4* |
>> FBEND | START+4, EN+17 |
>> FBGECS | VAL+1, VAL+4, VAL+6*, VAL+12 |
>> FBHIGH | EN+11*, EN+13*, EN+14, EN+17 |
>> FBI | EN+4*, EN+9 |
>> FBJ | EN+8*, EN+9* |
>> FBLOW | EN+11*, EN+12*, EN+14*, EN+17 |
>> FBPOP | START+2 |
>> FBSN | START+6, EN+17 |
>> FBV | VAL+3*, VAL+4, EN+3*, EN+4*, EN+15, EN+16, EN+17 |
I | START+3*, START+4*, EN+10~, EN+11*, EN+13* |
IO | START+1 |
IOST | VAL+12 |
J | START+3*, START+4*, START+7, EN+10~, EN+11*, EN+13* |
>> K | START+3*, START+4*, START+5, START+7 |
S | CSC+4~, CSC+6*, CSC+7 |
U | START+4, START+7, VAL+4, EN+9, EN+17, CSC+3, CSC+5, CSC+6, CSC+7, COUNTY+5 |
V | EN+17~*, CSC+4~*, CSC+5, CSC+6, CSC+7 |
>> VNAM | EN+16*, EN+17 |
X | CSC~, CSC+3, CSC+4, COUNTY~, COUNTY+4, COUNTY+5, DOLLAR~, DOLLAR+3, DOLLAR+6 |
>> X2 | DOLLAR+4* |
>> X3 | DOLLAR+4* |
Y | CSC+4~, CSC+5*, CSC+7*, CSC+8, COUNTY~, COUNTY+4, COUNTY+5 |
Z | EN+10~, EN+15, EN+17*, CSC+2~*, CSC+3, CSC+7 |