IVMYZ3 ;ALB/SEK - PURGE INCORRECT IVM PATIENT & TRANSMISSION RECORDS ; 13-JUNE-95
Source file <IVMYZ3.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ; this routine will delete ivm patient (#301.5) and ivm
 ; transmission log (#301.6) records for incorrect income years of ; -10000 & -910000. ; this routine will also send notification to the IVM Center once ; the facility has installed IVM*2*3 patch.  | 
|
| Q | ||
| ENV | ; make sure required patches are installed
 | 
|
| TYPE | ; Ask user if this installation is for a test account or live account.
 | 
|
| NOTE | ; Send notification to the IVM Center once the facility has installed
 ; IVM*2*3 patch in production account.  | 
|
| PURGE | ;  do the purge
 | 
|
| TEXT | ; Text for help for production/test question
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^IVM(301.5 - [#301.5] | Classic Fileman Calls | 
| ^IVM(301.6 - [#301.6] | Classic Fileman Calls |