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 |