DG53807P ;ALB/LBD - PATCH DG*5.3*807 POST-INSTALL ROUTINE ; 4/2/09 4:15pm
Source file <DG53807P.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ;Entry point for DG*5.3*807 post-install
 | 
|
| ENQ | ;Entry point for tasked job
 | 
|
| LOOP | ; Loop through Patient file #2, starting with most recent DFNs.
 | 
|
| USZIP(ZIP) | ;Check if valid US zip code
 | 
|
| SENDMSG | ;Send MailMan message when process completes
 | 
|
| LN() | ;Increment line counter
 | 
|
| FAIL | ;Update ^XTMP with records that could not be locked
 | 
|
| TEST | ;Entry point for testing
 | 
|
| TST() | ;If testing, quit if number of records = TST
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  |