DGPTAE ;ALB/MTC,HIOFO/FT - Austin Edit Checks Driver ;4/8/15 11:23am
Source file <DGPTAE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| ALLPR | ;-- process all records types
|
|
| EXIT | ;-- clean-up
|
|
| RTE | ;route processing
|
|
| RTN | ;
|
|
| PRES() | ;-- check if required pieces are present
|
|
| WRTERR(ERROR,NODE,SEQ) | ;-- This function will write out errors to the ^TMP("AERROR"
; global. ; INPUT : ERROR - code of Austin's error ; NODE - node error occurred on ; SEQ - sequence in ^TMP("AEDIT", |
|
| WRTQ | ||
| FAC | ;-- check facility id; get station type
|
|
| FACQ | ||
| ERROR | ;-- this routine will process the error detected during close-out
|
|
| ERRQ |
