IVMYZ1 ;ALB/SEK - PURGE INCORRECT IVM PATIENT & TRANSMISSION RECORDS ; 8-NOV-94
Source file <IVMYZ1.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*1 patch. |
|
TYPE | ; Ask user if this installation is for a test account or live account.
|
|
TEXT | ; Text for help for production/test question
|
Name | Line Occurrences |
---|---|
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) |
---|---|
^IVM(301.5 - [#301.5] | TYPE+14, TYPE+15 |
^IVM(301.6 - [#301.6] | TYPE+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | TYPE+37, TYPE+40! |
DA | TYPE+15*, TYPE+17*, TYPE+20! |
DFN | TYPE+13*, TYPE+14*, TYPE+15, TYPE+20! |
DIFROM | TYPE+27~ |
DIK | TYPE+15*, TYPE+17*, TYPE+20! |
DIR | TYPE+8! |
DIR("?" | TYPE+3*, TYPE+4* |
DIR("A" | TYPE+2* |
DIR(0 | TYPE+1* |
DIROUT | TYPE+8! |
DIRUT | TYPE+8! |
DTOUT | TYPE+8! |
DUOUT | TYPE+8! |
DUZ | TYPE+31 |
>> I | TYPE+4* |
IVMCTR | TYPE+12*, TYPE+15*, TYPE+19, TYPE+20! |
IVMDA | TYPE+15*, TYPE+16, TYPE+20! |
IVMPROD | TYPE+7*, TYPE+9!, TYPE+26!, TYPE+40! |
IVMTEXT | TYPE+40! |
IVMTEXT(1 | TYPE+34* |
IVMTEXT(2 | TYPE+35* |
IVMTEXT(3 | TYPE+38* |
IVMTR | TYPE+16*, TYPE+17, TYPE+20! |
IVMX | TYPE+33*, TYPE+34, TYPE+35, TYPE+40! |
IVMYR | TYPE+13*, TYPE+14, TYPE+15, TYPE+20! |
X | TYPE+4*, TYPE+8! |
XMDUZ | TYPE+30*, TYPE+40! |
XMSUB | TYPE+29*, TYPE+40! |
XMTEXT | TYPE+32*, TYPE+40! |
XMY | TYPE+40! |
XMY( | TYPE+31* |
XMY("WEATHERLY@IVM.DOMAIN.EXT" | TYPE+31* |
Y | TYPE+6, TYPE+7, TYPE+8!, TYPE+37*, TYPE+38 |
Name | Field # of Occurrence |
---|---|
$T(TEXT+I | TYPE+4 |