EASXDRPT ;ALB/AEG - DUP PT RELATION REPORT ;7-12-02
Source file <EASXDRPT.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| RPT | ; Option Entry Point.
 | 
|
| EN1 | ; Device Handler.
 | 
|
| START | ;
 | 
|
| INIT | ; Setup scratch globals and initialize processing.
 | 
|
| FIND | ; Search for potential dups in file #408.12
 | 
|
| ACTIVE(REC12) | ; Is relation entry active ?
 | 
|
| PURGE | ; Purge non-duplicate from temp globals.
 | 
|
| MORE | ; Purge of non-dups continued.
 | 
|
| NAME | ; Check names
 | 
|
| QUIT | ; Cleanup and quit.
 | 
|
| STOPIT | ;
 | 
|
| QUEIT | ; Que task
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | GET1^DIQ | 
| ^DGPR(408.12 - [#408.12] | GET1^DIQ | 
| 408.1275 | GET1^DIQ | 
| ^DGMT(408.31 - [#408.31] | GET1^DIQ | 
| ^DG(408.33 - [#408.33] | GET1^DIQ |