MAGGTSR1.m

MAGGTSR1 ;WOIFO/GEK - ADD IMAGES TO SURGERY FILE ; [ 06/20/2001 08:57 ]

 ;;3.0;IMAGING;**59**;Nov 27, 2007;Build 20

 ;;Per VHA Directive 2004-038, this routine should not be modified.

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

 ;; | 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

FILE(MAGRY,MAGIEN,DATA) ;RPC Call to file Image pointers in Surgery package

 ;   and Surgery pointers in Image File.

 ;

 ; DATA is same data that we listed in the GET^MAGGTSR call

 ; MAGIEN is the Imaging internal number.

 ;  example

 ; for Imaging Versions < 2.5 the data is 

 ; #     DATE             DESC      SRF(IEN   FM DATE

 ;CNT_U_(READABLE DATE)_U_SROPS(1)_U_SROP_U_SRSDATE

 ;

 ; for Imaging Versions > 2.4, the data is different

 ;CNT_U_(READABLE DATE)_U_SROPS(1)_U_IMAGECT_U_"|"_SROP_U_SRSDATE

 ;  example

 ;  1^05-06-1997^REMOVE TONSILS (REQUESTED)^8^|9853^2970506^

 ;

 IF $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGGTERR"

 E  S X="ERR^MAGGTERR",@^%ZOSF("TRAP")

 N Y,MAGSIEN,MAGPDT,MAGFDA,MAGERR,MAGIENS

 ; 

 I (+$G(MAGJOB("VERSION"))>2.4) D

 . S MAGSIEN=$P($P(DATA,$C(124),2),U,1)

 . S MAGPDT=$P($P(DATA,$C(124),2),U,2)

 E  S MAGSIEN=$P(DATA,U,4),MAGPDT=$P(DATA,U,5)

 S MAGFDA(130.02005,"+1,"_MAGSIEN_",",.01)=MAGIEN

 D UPDATE^DIE("S","MAGFDA","MAGIENS","MAGERR")

 I '$G(MAGIENS(1)) D  D CLEAN^DILF S MAGRY=MAGERR Q

 . S MAGERR="0^ERROR Adding Image to Surgery Package "

 . I $D(DIERR) D RTRNERR(.MAGERR)

 S MAGRY="1^Image added to Surgery Package"

 S $P(^MAG(2005,MAGIEN,2),U,6,8)="130^"_MAGSIEN_U_MAGIENS(1)

 D LINKDT^MAGGTU6(.X,MAGIEN)

 Q

RTRNERR(ETXT) ; There was error from UPDATE^DIE quit with error text

 S ETXT="0^ERROR  "_MAGERR("DIERR",1,"TEXT",1)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MAGGTSR1   2607     printed  Apr 09, 2024@21:01:51                                                                                                                                                                                                    Page 2

MAGGTSR1  ;WOIFO/GEK - ADD IMAGES TO SURGERY FILE ; [ 06/20/2001 08:57 ]

 +1       ;;3.0;IMAGING;**59**;Nov 27, 2007;Build 20

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;; +---------------------------------------------------------------+

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

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

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

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

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

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

 +10      ;; |                                                               |

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

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

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

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

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

 +16      ;; +---------------------------------------------------------------+

 +17      ;;

 +18       QUIT 

FILE(MAGRY,MAGIEN,DATA) ;RPC Call to file Image pointers in Surgery package

 +1       ;   and Surgery pointers in Image File.

 +2       ;

 +3       ; DATA is same data that we listed in the GET^MAGGTSR call

 +4       ; MAGIEN is the Imaging internal number.

 +5       ;  example

 +6       ; for Imaging Versions < 2.5 the data is 

 +7       ; #     DATE             DESC      SRF(IEN   FM DATE

 +8       ;CNT_U_(READABLE DATE)_U_SROPS(1)_U_SROP_U_SRSDATE

 +9       ;

 +10      ; for Imaging Versions > 2.4, the data is different

 +11      ;CNT_U_(READABLE DATE)_U_SROPS(1)_U_IMAGECT_U_"|"_SROP_U_SRSDATE

 +12      ;  example

 +13      ;  1^05-06-1997^REMOVE TONSILS (REQUESTED)^8^|9853^2970506^

 +14      ;

 +15       IF $$NEWERR^%ZTER

               NEW $ETRAP,$ESTACK

               SET $ETRAP="D ERR^MAGGTERR"

 +16      IF '$TEST

               SET X="ERR^MAGGTERR"

               SET @^%ZOSF("TRAP")

 +17       NEW Y,MAGSIEN,MAGPDT,MAGFDA,MAGERR,MAGIENS

 +18      ; 

 +19       IF (+$GET(MAGJOB("VERSION"))>2.4)

               Begin DoDot:1

 +20               SET MAGSIEN=$PIECE($PIECE(DATA,$CHAR(124),2),U,1)

 +21               SET MAGPDT=$PIECE($PIECE(DATA,$CHAR(124),2),U,2)

               End DoDot:1

 +22      IF '$TEST

               SET MAGSIEN=$PIECE(DATA,U,4)

               SET MAGPDT=$PIECE(DATA,U,5)

 +23       SET MAGFDA(130.02005,"+1,"_MAGSIEN_",",.01)=MAGIEN

 +24       DO UPDATE^DIE("S","MAGFDA","MAGIENS","MAGERR")

 +25       IF '$GET(MAGIENS(1))

               Begin DoDot:1

 +26               SET MAGERR="0^ERROR Adding Image to Surgery Package "

 +27               IF $DATA(DIERR)

                       DO RTRNERR(.MAGERR)

               End DoDot:1

               DO CLEAN^DILF

               SET MAGRY=MAGERR

               QUIT 

 +28       SET MAGRY="1^Image added to Surgery Package"

 +29       SET $PIECE(^MAG(2005,MAGIEN,2),U,6,8)="130^"_MAGSIEN_U_MAGIENS(1)

 +30       DO LINKDT^MAGGTU6(.X,MAGIEN)

 +31       QUIT 

RTRNERR(ETXT) ; There was error from UPDATE^DIE quit with error text

 +1        SET ETXT="0^ERROR  "_MAGERR("DIERR",1,"TEXT",1)

 +2        QUIT