MAGD350I ;WOIFO/PMK - Fix problem with JPEG DCM files; Sep 25, 2024@11:14:40
Source file <MAGD350I.m>
| 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 |
