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 |