AGCNVROI ;IHS/SD/TPF - CONVERT AUPNPAT FIELDS .04 TO 3601 ;
Source file <AGCNVROI.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ROI | ;FIND OLD ENTRIES IN FIELD .04 | |
| ROIADD | ;ADD ENTRY FROM OLD FIELDS TO NEW FIELDS | 
| Name | Field # of Occurrence | 
|---|---|
| FILE^DICN | ROIADD+7 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNPAT - [#9000001] | ROI+4, ROI+5, ROI+6 | 
| Name | Line Occurrences | 
|---|---|
| ROIADD | ROI+8 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DA | ROIADD+1! | 
| DA(1 | ROIADD+2*, ROIADD+3 | 
| DD | ROIADD+1! | 
| >> DIC | ROIADD+3* | 
| >> DIC(0 | ROIADD+4* | 
| DINUM | ROIADD+1! | 
| >> DLAYGO | ROIADD+5* | 
| DO | ROIADD+1! | 
| IEN | ROI+2~, ROI+3*, ROI+4*, ROI+5, ROI+6, ROIADD+2 | 
| ROI | ROI+2~, ROI+6*, ROI+7, ROIADD+6 | 
| U | ROI+6 | 
| X | ROIADD+1!, ROIADD+6* |