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 |
|