SD5396PT ;ALB/JRP - CORRECT REJECTED ENCOUNTERS WITH BAD DATE/TIME;06-MAR-1997
Source file <SD5396PT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
TASK | ;Entry point to schedule correction for NOW
|
|
EN | ;Main entry point
|
|
FIXDATE(XMITPTR) | ;Fix encounter date/time for entry in 409.73
|
|
NEWDATE(ENCPTR,DELPTR,NEWDATE) | ;Store new encounter date/time
|