MAGD350I ;WOIFO/PMK - Fix problem with JPEG DCM files; Sep 25, 2024@11:14:40
Source file <MAGD350I.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
ENTRY(OUT,MAXCOUNT,MAGIEN) | ; RPC = MAG DICOM P350 MAKE LIST
|
|
CHECK(MAGIEN,IMAGESAVEDT,SITELIST) | ; check ^MAG(2005) for a *.DCM extension but wrong file type
|
|
FINDDATE() | ; find the install date for MAG*3.0*226
; Start date based on P226 install - P226 introduced the DICOM conversion issue |
|
SAVE(MAGIEN,IMAGESAVEDT,STATUS,FIXDT) | ; SAVE/UPDATE
|
|
KILL | ; remove the global
|
|
GETNEXT(OUT) | ; RPC = MAG DICOM P350 GET NEXT TO FIX
|
|
FIXONE(OUT,MAGIEN,NEWSTATUS,ERRORMSG,SOPUID) | ; RPC = MAG DICOM P350 FIX ONE IMAGE
|
|
FIXFAIL(OUT) | ; RPC = MAG DICOM P350 FIX FAIL IMAGES
|
|
UPDATE(OUT) | ; RPC = MAG DICOM P350 UPDATE FIELDS
|
|
DBUPDATE(IEN) | ; update IMAGE file, either group or image entry
|
|
DBERROR(CODE,MAGERR) | ; generate error message
|
RPC Name | Call Tags |
---|---|
MAG DICOM P350 MAKE LIST | ENTRY |
MAG DICOM P350 GET NEXT TO FIX | GETNEXT |
MAG DICOM P350 FIX ONE IMAGE | FIXONE |
MAG DICOM P350 FIX FAIL IMAGES | FIXFAIL |
MAG DICOM P350 UPDATE FIELDS | UPDATE |
FileNo | Call Tags |
---|---|
^MAG(2005 - [#2005] | GET1^DIQ |
^MAG(2005.1 - [#2005.1] | GET1^DIQ |
^XPD(9.7 - [#9.7] | FIND^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^MAG(2005 - [#2005] | ENTRY+24, ENTRY+26, ENTRY+27, ENTRY+32, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+9, UPDATE+12 , DBUPDATE+19! |
^MAG(2005.83 - [#2005.83] | ENTRY+17 |
^MAG(2005.88 - [#2005.88] | FIXONE+2, UPDATE+6 |
^MAG(2006.1 - [#2006.1] | ENTRY+8, ENTRY+10, ENTRY+11 |
^MAG(2006.59935 - [#2006.59935] | ENTRY+20, ENTRY+45, SAVE+4, SAVE+7, SAVE+9, SAVE+12*, SAVE+13*, SAVE+16*, KILL+1!, GETNEXT+3 , GETNEXT+5, FIXONE+6, FIXONE+8, FIXONE+10!, FIXONE+11*, FIXONE+13*, FIXONE+14*, FIXFAIL+3, FIXFAIL+4, FIXFAIL+6 , FIXFAIL+12*, UPDATE+7, UPDATE+8, UPDATE+14*, UPDATE+32* |
^MAG(2006.599350 | SAVE+14*, SAVE+15* |
Name | Line Occurrences |
---|---|
$$CHECK | ENTRY+35 |
$$DBUPDATE | UPDATE+29, UPDATE+30 |
$$FINDDATE | ENTRY+23 |
DBERROR | DBUPDATE+17 |
FIXONE | FIXFAIL+7 |
SAVE | ENTRY+40 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | FINDDATE+2~ |
A("DILIST" | FINDDATE+5 |
ACQSITE | CHECK+1~, CHECK+2*, CHECK+3 |
ASSOCSITEID | ENTRY+1~, ENTRY+11*, ENTRY+12 |
AUDITIEN | SAVE+1~, SAVE+2*, SAVE+13 |
CAPTUREAPP | CHECK+1~, CHECK+12*, CHECK+18 |
CODE | DBERROR~, DBERROR+9 |
COMPLETED | UPDATE+3~, UPDATE+4*, UPDATE+9*, UPDATE+35 |
COUNT | ENTRY+1~, ENTRY+16*, ENTRY+32, ENTRY+33*, ENTRY+44, FIXFAIL+1~, FIXFAIL+2*, FIXFAIL+9*, FIXFAIL+15 |
D0 | SAVE+1~, SAVE+4*, SAVE+5, SAVE+9*, SAVE+10, SAVE+13, SAVE+14, SAVE+15, FIXONE+1~, FIXONE+6* , FIXONE+7, FIXONE+8, FIXONE+10, FIXONE+11, FIXONE+13, FIXONE+14, FIXFAIL+1~, FIXFAIL+3*, FIXFAIL+4, UPDATE+1~ , UPDATE+7*, UPDATE+8, UPDATE+14, UPDATE+32 |
DOCDATE | UPDATE+2~, UPDATE+24*, DBUPDATE+10 |
DUZ(2 | ENTRY+4 |
>> ERROR | UPDATE+7*, UPDATE+29*, UPDATE+30*, UPDATE+34 |
ERROR1 | UPDATE+3~, UPDATE+4*, UPDATE+8*, UPDATE+35 |
ERROR2 | UPDATE+3~, UPDATE+4*, UPDATE+11*, UPDATE+35 |
ERRORMSG | FIXONE~, FIXONE+5*, FIXONE+13 |
EXTENSION | CHECK+1~, CHECK+16*, CHECK+17 |
FILENAME | CHECK+1~, CHECK+15*, CHECK+16 |
FIXDT | ENTRY+37~, ENTRY+39*, ENTRY+40, SAVE~, SAVE+13, FIXONE+1~, FIXONE+12*, FIXONE+13 |
I | DBERROR+1~, DBERROR+4*, DBERROR+5, DBERROR+6 |
IEN | GETNEXT+1~, GETNEXT+3*, GETNEXT+4, GETNEXT+5, DBUPDATE~, DBUPDATE+2, DBUPDATE+17, DBUPDATE+19 |
IENS | DBUPDATE+1~, DBUPDATE+2*, DBUPDATE+4, DBUPDATE+5, DBUPDATE+6, DBUPDATE+7, DBUPDATE+8, DBUPDATE+9, DBUPDATE+10, DBUPDATE+11 , DBUPDATE+12, DBUPDATE+13 |
IMAGESAVEDT | ENTRY+1~, ENTRY+35, ENTRY+40, ENTRY+48, CHECK~, CHECK+11*, SAVE~, SAVE+13 |
INST | ENTRY+1~, ENTRY+10*, ENTRY+11 |
INSTALLDATE | ENTRY+1~, ENTRY+23*, ENTRY+24, ENTRY+26, FINDDATE+2~, FINDDATE+5*, FINDDATE+6*, FINDDATE+7 |
IPROCIDX | UPDATE+2~, UPDATE+27*, DBUPDATE+13 |
ISPECIDX | UPDATE+2~, UPDATE+26*, DBUPDATE+12 |
J | DBERROR+1~, DBERROR+5*, DBERROR+6 |
LOWESTIEN | FIXFAIL+1~, FIXFAIL+2*, FIXFAIL+10, FIXFAIL+11*, FIXFAIL+12 |
MAGERR | FIXONE+18~, FIXONE+21, DBUPDATE+1~, DBUPDATE+16, DBUPDATE+17, DBERROR~ |
MAGERR("DIERR" | DBERROR+4, DBERROR+5, DBERROR+6 |
MAGFDA | DBUPDATE+1~ |
MAGFDA(2005 | FIXONE+19*, DBUPDATE+4*, DBUPDATE+5*, DBUPDATE+6*, DBUPDATE+7*, DBUPDATE+8*, DBUPDATE+9*, DBUPDATE+10*, DBUPDATE+11*, DBUPDATE+12* , DBUPDATE+13* |
MAGIEN | ENTRY~, ENTRY+19, ENTRY+20*, ENTRY+21, ENTRY+24*, ENTRY+25, ENTRY+27*, ENTRY+32*, ENTRY+34, ENTRY+35 , ENTRY+40, ENTRY+46, CHECK~, CHECK+2, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+9, SAVE~ , SAVE+2, SAVE+4, SAVE+13, SAVE+14, SAVE+16, FIXONE~, FIXONE+6, FIXONE+19, FIXONE+24, FIXFAIL+1~ , FIXFAIL+5*, FIXFAIL+6, FIXFAIL+7, FIXFAIL+10, FIXFAIL+11, UPDATE+1~, UPDATE+10*, UPDATE+19, UPDATE+20, UPDATE+21 , UPDATE+22, UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26, UPDATE+27 |
MAGIENS | FIXONE+18~ |
MAXCOUNT | ENTRY~, ENTRY+15*, ENTRY+32 |
NEWGROUPIEN | UPDATE+2~, UPDATE+16*, UPDATE+30 |
NEWIMAGEIEN | UPDATE+1~, UPDATE+12*, UPDATE+13, UPDATE+14, UPDATE+16, UPDATE+29 |
NEWSTATUS | FIXONE~, FIXONE+11, FIXONE+13, FIXONE+17 |
NEXTDATE | ENTRY+22~, ENTRY+26*, ENTRY+27 |
NODE0 | CHECK+1~, CHECK+4*, CHECK+15 |
NODE2 | CHECK+1~, CHECK+5*, CHECK+11, CHECK+12 |
NODE40 | CHECK+1~, CHECK+6* |
NOTPROCESSED | UPDATE+3~, UPDATE+4*, UPDATE+13*, UPDATE+35 |
OLDSTATUS | FIXONE+1~, FIXONE+9*, FIXONE+10 |
ORIGIN | UPDATE+18~, UPDATE+19*, DBUPDATE+4 |
OUT | ENTRY~, ENTRY+3!, GETNEXT~, GETNEXT+2!, GETNEXT+5*, GETNEXT+7*, FIXONE~, FIXONE+4!, FIXONE+15*, FIXONE+21* , FIXONE+24*, FIXFAIL~, FIXFAIL+15*, UPDATE~, UPDATE+35*, DBERROR+2!, DBERROR+9* |
OUT(1 | ENTRY+43* |
OUT(2 | ENTRY+44* |
OUT(3 | ENTRY+45* |
OUT(4 | ENTRY+46* |
OUT(5 | ENTRY+47* |
OUT(6 | ENTRY+48* |
PACKAGEINDEX | UPDATE+18~, UPDATE+20*, DBUPDATE+5 |
PREVIOUSMAGIEN | ENTRY+2~, ENTRY+34*, ENTRY+47 |
PROCEDURE | UPDATE+18~, UPDATE+21*, DBUPDATE+6 |
REASON | UPDATE+1~, UPDATE+5*, UPDATE+6 |
REASONIEN | FIXONE+1~, FIXONE+2*, FIXONE+17, FIXONE+19, UPDATE+1~, UPDATE+6*, DBUPDATE+9 |
RESULT | FIXFAIL+1~, FIXFAIL+7, FIXFAIL+8 |
RETURN | ENTRY+2~, ENTRY+35*, ENTRY+36 |
SAVEDBY | UPDATE+2~, UPDATE+25*, DBUPDATE+11 |
SERIESUID | CHECK+1~, CHECK+9*, CHECK+10 |
SHORTDESC | UPDATE+2~, UPDATE+22*, DBUPDATE+7 |
SITE | ENTRY+2~, ENTRY+8*, ENTRY+10, ENTRY+11 |
SITEID | ENTRY+2~, ENTRY+4*, ENTRY+5*, ENTRY+8, ENTRY+9 |
SITELIST | ENTRY+2~, ENTRY+35, CHECK~ |
SITELIST( | ENTRY+9*, ENTRY+12*, CHECK+3 |
SOPUID | CHECK+1~, CHECK+7*, CHECK+8, FIXONE~, FIXONE+3*, FIXONE+14, UPDATE+1~, UPDATE+10*, UPDATE+11, UPDATE+12 |
STATUS | ENTRY+37~, ENTRY+38*, ENTRY+40, SAVE~, SAVE+13, SAVE+15 |
TYPECONSULT | ENTRY+2~, ENTRY+17* |
TYPEINDEX | CHECK+1~, UPDATE+18~, UPDATE+23*, DBUPDATE+8 |
UPDATED | UPDATE+3~, UPDATE+4*, UPDATE+15*, UPDATE+35 |
X | SAVE+1~, SAVE+7*, SAVE+8*, SAVE+10*, SAVE+11*, SAVE+12, FIXONE+1~, FIXONE+8*, FIXONE+9, FIXFAIL+1~ , FIXFAIL+4*, FIXFAIL+5, UPDATE+1~, UPDATE+8*, UPDATE+9, UPDATE+10, DBERROR+1~, DBERROR+3*, DBERROR+6*, DBERROR+9 |