IBDFBKS4 ;ALB/AAS - ENCOUNTER FORM - create form spec for scanning (Broker Version) ; 6-JUN-95
Source file <IBDFBKS4.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 1 | BLDARY^IBDFBKS |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 1 | IBDFBKS3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIELDS | ;
|
|
| FIELDSQ | ||
| LOOP(LBEGIN,LEND) | ; -- Loop through fields instead of one by one
|
|
| DATA1 | ;; Data = STRCAT(\"FORMTYPE=153\", RS);
|
|
| ONEBUB | ; -- for a single bubble field
|
| Name | Field # of Occurrence |
|---|---|
| BLDARY^IBDFBKS | FIELDS+16, FIELDS+18, FIELDS+20, FIELDS+22, FIELDS+24, FIELDS+26, FIELDS+30, FIELDS+33, FIELDS+34, FIELDS+35 , FIELDS+36, FIELDS+37, FIELDS+38, FIELDS+41, FIELDS+42, FIELDS+43, FIELDS+44, FIELDS+45, FIELDS+46, FIELDS+47 , ONEBUB+1, ONEBUB+2, ONEBUB+3, ONEBUB+4, ONEBUB+5, ONEBUB+6, LOOP+1, LOOP+2, LOOP+3, LOOP+4 , LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+11, LOOP+12, LOOP+13 |
| Name | Line Occurrences |
|---|---|
| LOOP | FIELDS+7, FIELDS+8 |
| ONEBUB | FIELDS+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATATP | FIELDS+2~*, FIELDS+3, FIELDS+12, FIELDS+18, FIELDS+20, FIELDS+22, FIELDS+24, FIELDS+26 |
| >> FIELDS | FIELDS+1, FIELDS+2, FIELDS+5, FIELDS+6, FIELDS+8, FIELDS+14, FIELDS+30, FIELDS+32, FIELDS+35, FIELDS+40 , FIELDS+43, ONEBUB+3 |
| >> FLD | FIELDS+1*, FIELDS+2, FIELDS+5*, FIELDS+6*, FIELDS+7*, FIELDS+8*, FIELDS+9, FIELDS+14, FIELDS+18, FIELDS+20 , FIELDS+22, FIELDS+24, FIELDS+26, FIELDS+30, FIELDS+32, FIELDS+35, FIELDS+40, FIELDS+43, ONEBUB+1, ONEBUB+3 |
| LBEGIN | FIELDS+4*, FIELDS+5*, FIELDS+6, FIELDS+7, FIELDS+8, LOOP~, LOOP+2 |
| LEND | FIELDS+4*, FIELDS+6, FIELDS+7, FIELDS+8, FIELDS+9*, LOOP~, LOOP+3, LOOP+12 |
| >> PAGE | FIELDS+1, FIELDS+2, FIELDS+5, FIELDS+6, FIELDS+8, FIELDS+14, FIELDS+30, FIELDS+32, FIELDS+35, FIELDS+40 , FIELDS+43, ONEBUB+3 |
| >> QUIT | FIELDS+4*, FIELDS+5, FIELDS+6*, FIELDS+7*, FIELDS+8* |
| TOSTRING | FIELDS+13~, FIELDS+14*, FIELDS+16, FIELDS+18, FIELDS+20, FIELDS+22, FIELDS+24, FIELDS+26 |