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 |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IVM(301.5 - [#301.5] | Classic Fileman Calls |
^IVM(301.6 - [#301.6] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | ENV+2, ENV+3 |
^IVM(301.5 - [#301.5] | PURGE+3, PURGE+4 |
^IVM(301.6 - [#301.6] | PURGE+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | NOTE+14, NOTE+17! |
DA | PURGE+4*, PURGE+6*, PURGE+9! |
DFN | PURGE+3*, PURGE+4, PURGE+9! |
DIFROM | NOTE+4~ |
DIK | PURGE+4*, PURGE+6*, PURGE+9! |
DIR | TYPE+9! |
DIR("?" | TYPE+4*, TYPE+5* |
DIR("A" | TYPE+3* |
DIR(0 | TYPE+2* |
DIROUT | TYPE+9! |
DIRUT | TYPE+9! |
DTOUT | TYPE+9! |
DUOUT | TYPE+9! |
DUZ | NOTE+8 |
I | TYPE+1~, TYPE+5* |
IVMCTR | PURGE+1*, PURGE+4*, PURGE+8, PURGE+9! |
IVMDA | PURGE+4*, PURGE+5, PURGE+9! |
IVMPROD | EN+7, Q!, TYPE+8*, TYPE+10!, NOTE+3!, NOTE+17! |
IVMQUIT | EN+6*, Q!, ENV+2!, ENV+3!, ENV+4! |
IVMTEXT | NOTE+17! |
IVMTEXT(1 | NOTE+11* |
IVMTEXT(2 | NOTE+12* |
IVMTEXT(3 | NOTE+15* |
IVMTR | PURGE+5*, PURGE+6, PURGE+9! |
IVMX | NOTE+10*, NOTE+11, NOTE+12, NOTE+17! |
IVMYR | PURGE+2*, PURGE+3, PURGE+4, PURGE+9! |
X | ENV+1~, ENV+2*, ENV+3*, TYPE+5*, TYPE+9! |
XMDUZ | NOTE+7*, NOTE+17! |
XMSUB | NOTE+6*, NOTE+17! |
XMTEXT | NOTE+9*, NOTE+17! |
XMY | NOTE+17! |
XMY( | NOTE+8* |
XMY("WEATHERLY@IVM.DOMAIN.EXT" | NOTE+8* |
Y | TYPE+7, TYPE+8, TYPE+9!, NOTE+14*, NOTE+15 |