MAGIP333 ;WOIFO/PMK - Install code for MAG*3.0*333; Jan 15, 2026@08:41:46
Source file <MAGIP333.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERROR | ;
|
|
| PRE | ;
|
|
| KILL20061211 | ; kill the Q/R CHECK DIVISION field in file 2006.1
; P305 incorrrectly set the field #211 information to 8;E1,1 ; This neeeds to be reset to 8;1 |
|
| KILL2006541 | ; kill the DICOM VISTA Q/R REQUEST QUEUE (file #2006.541) DD
; Killing the old DD is necessary to add the DIVISION |
|
| KILLTRMENU | ; remove the TeleReader Menu
; The TeleReader Menu will be reinstalled with DISPLAY ORDER=85 |
|
| POS | ;
|
|
| SET20061212 | ; Set field 212
; setting these fields will set the delimiter for 212 |
|
| SETTRMENU | ; Reinstall TeleReader Menu with DISPLAY ORDER=85 - P349 PMK 01/14/2026
|
|
| UPDATE() | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAG(2006.1 - [#2006.1] | SET20061212+4 |
| ^MAGDSTT(2006.541 - [#2006.541] | KILL2006541+3! |
| Name | Line Occurrences |
|---|---|
| KILL20061211 | PRE+1 |
| KILL2006541 | PRE+2 |
| KILLTRMENU | PRE+3 |
| SET20061212 | POS+2 |
| SETTRMENU | POS+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CALLBACK | POS+1~ |
| >> DA(1 | KILL20061211+3* |
| >> DIK | KILL20061211+3* |
| DIU | KILL2006541+2~, KILL2006541+4* |
| DIU(0 | KILL2006541+4* |
| DUZ | POS+10 |
| MAGERR | SET20061212+2~ |
| MAGFDA | SET20061212+2~ |
| MAGFDA( | SET20061212+5* |
| SITE | SET20061212+2~, SET20061212+3*, SET20061212+4*, SET20061212+5 |
| STATUS | KILLTRMENU+2~, KILLTRMENU+3*, KILLTRMENU+4, SETTRMENU+1~, SETTRMENU+2*, SETTRMENU+3 |
| >> XPDA | POS+10 |
| >> XPDABORT | ERROR+1* |
| >> XPDNM | ERROR+1, POS+10 |