MAGDIR85.m

MAGDIR85 ;WOIFO/PMK - Read a DICOM image file ; 05/06/2004  06:32

 ;;3.0;IMAGING;**11,30**;16-September-2004

 ;; +---------------------------------------------------------------+

 ;; | Property of the US Government.                                |

 ;; | No permission to copy or redistribute this software is given. |

 ;; | Use of unreleased versions of this software requires the user |

 ;; | to execute a written test agreement with the VistA Imaging    |

 ;; | Development Office of the Department of Veterans Affairs,     |

 ;; | telephone (301) 734-0100.                                     |

 ;; |                                                               |

 ;; | The Food and Drug Administration classifies this software as  |

 ;; | a medical device.  As such, it may not be changed in any way. |

 ;; | Modifications to this software may result in an adulterated   |

 ;; | medical device under 21CFR820, the use of which is considered |

 ;; | to be a violation of US Federal Statutes.                     |

 ;; +---------------------------------------------------------------+

 ;;

 Q

 ; M2MB server

 ;

 ; This routine handles the "ROLLBACK" RESULT item.

 ; 

ENTRY ; remove ^MAG(2005,IMAGEPTR) entry because of a fatal problem

 N ERRORMSG,IMAGEPTR,ROLLBACK

 S IMAGEPTR=$P(ARGS,"|",2),U="^"

 D DELETE^MAGGTID(.ROLLBACK,IMAGEPTR_"^1",1) ; invoke Garrett's routine

 I ROLLBACK(0)?1"1^".E D

 . S ERRORMSG="0||"_IMAGEPTR

 . Q

 E  D

 . S ERRORMSG="-1|"_$P(ROLLBACK(0),"^",2,999)_"|"_IMAGEPTR

 . Q

 D RESULT^MAGDIR8("ROLLBACK",ERRORMSG)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MAGDIR85   1578     printed  Apr 09, 2024@21:08:35                                                                                                                                                                                                    Page 2

MAGDIR85  ;WOIFO/PMK - Read a DICOM image file ; 05/06/2004  06:32

 +1       ;;3.0;IMAGING;**11,30**;16-September-2004

 +2       ;; +---------------------------------------------------------------+

 +3       ;; | Property of the US Government.                                |

 +4       ;; | No permission to copy or redistribute this software is given. |

 +5       ;; | Use of unreleased versions of this software requires the user |

 +6       ;; | to execute a written test agreement with the VistA Imaging    |

 +7       ;; | Development Office of the Department of Veterans Affairs,     |

 +8       ;; | telephone (301) 734-0100.                                     |

 +9       ;; |                                                               |

 +10      ;; | The Food and Drug Administration classifies this software as  |

 +11      ;; | a medical device.  As such, it may not be changed in any way. |

 +12      ;; | Modifications to this software may result in an adulterated   |

 +13      ;; | medical device under 21CFR820, the use of which is considered |

 +14      ;; | to be a violation of US Federal Statutes.                     |

 +15      ;; +---------------------------------------------------------------+

 +16      ;;

 +17       QUIT 

 +18      ; M2MB server

 +19      ;

 +20      ; This routine handles the "ROLLBACK" RESULT item.

 +21      ; 

ENTRY     ; remove ^MAG(2005,IMAGEPTR) entry because of a fatal problem

 +1        NEW ERRORMSG,IMAGEPTR,ROLLBACK

 +2        SET IMAGEPTR=$PIECE(ARGS,"|",2)

           SET U="^"

 +3       ; invoke Garrett's routine

           DO DELETE^MAGGTID(.ROLLBACK,IMAGEPTR_"^1",1)

 +4        IF ROLLBACK(0)?1"1^".E

               Begin DoDot:1

 +5                SET ERRORMSG="0||"_IMAGEPTR

 +6                QUIT 

               End DoDot:1

 +7       IF '$TEST

               Begin DoDot:1

 +8                SET ERRORMSG="-1|"_$PIECE(ROLLBACK(0),"^",2,999)_"|"_IMAGEPTR

 +9                QUIT 

               End DoDot:1

 +10       DO RESULT^MAGDIR8("ROLLBACK",ERRORMSG)

 +11       QUIT