PSO613P ;MCF - PSO*7*613 POST-INSTALL ROUTINE TO CLEAN UP CLOZAPINE REGISTRATION DATE. ;12/04/20
Source file <PSO613P.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| FGRND | ; Run in foreground
 | 
|
| QUE | ; Task to background
 | 
|
| EN | ; Main entry point to clean up clozapine registration date.
 | 
|
| REGDATE | ; LOOP THROUGH #55 and find bad date time stamps
 | 
|
| ;Send message
 | 
||
| RESTORE | ; LOOP THROUGH ^XTMP and RESTORE bad date time stamps
 | 
|
| INIT | ; Initialize variables DGPREFIX, DGSRVR, DGREGION, and DGKEY
 ;  | 
|
| REIX5252 | ; Reindex new AC Mumps type cross reference in file 52.52
 | 
| FileNo | Call Tags | 
|---|---|
| ^PS(52.52 - [#52.52] | Classic Fileman Calls | 
| ^PS(55 - [#55] | GET1^DIQ |