MAGSDLGR ;WOIFO/SEB - Delete Image Group ; [ 06/20/2001 08:56 ]
;;3.0;IMAGING;**8**;Sep 15, 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 Class II 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
;
; Delete an image group (option MAG SYS-DELETE GROUP)
IMGDEL N DIC,X,Y,MAGIEN,MAGRSN,MAGGRY
W ! S DIC=2005,DIC(0)="AENQ",DIC("A")="Enter the image group ID to delete: "
S DIC("S")="I $P(^(0),U,10)=""""" D ^DIC
I Y=-1 Q
S MAGIEN=+Y
D SHOWINFO(MAGIEN)
RSN R !!,"Enter a Reason for deletion: ",MAGRSN:DTIME
I $E(MAGRSN)="?" W !,"Please describe why the image group is being deleted.",!," or enter ""^"" to cancel." G RSN
I (MAGRSN="^")!(MAGRSN="") W !,"Deletion Canceled. The image group was not deleted." Q
I $L(MAGRSN)<10 W !,"Please enter a description of a few words. (more than 10 characters)",!," or enter ""^"" to cancel." G RSN
I '$$CONFIRM W !,"Deletion Canceled. The image group was not deleted." Q
W !,"Deleting Group Images..."
D IMAGEDEL^MAGGTID(.MAGGRY,MAGIEN,1,MAGRSN)
I +MAGGRY(0)=0 W !!,$P(MAGGRY(0),U,2)
E W !!,"Image group deletion successful!"
Q
CONFIRM() ;
R !!,"ARE YOU SURE YOU WANT TO DELETE ALL IMAGES IN THIS GROUP ? Y/N N//",ANS:DTIME
I "Nn"[ANS Q 0
I "Yy"'[ANS Q 0
Q 1
SHOWINFO(IEN) ;
W !!,"Information on Selected Image :",!
N MAGGTRG,MAGGXE
D GETS^DIQ(2005,IEN,"5;6;15;10;7;8;42:44","ER","MAGGTRG","MAGGXE")
W !,"IMAGE ID (IEN)",?30,IEN
W !,"# Images in Group = ",?30,+$P($G(^MAG(2005,IEN,1,0)),U,4)
W !,"PATIENT",?30,MAGGTRG(2005,IEN_",","PATIENT","E")
W !,"PROCEDURE",?30,MAGGTRG(2005,IEN_",","PROCEDURE","E")
W !,"PROCEDURE/EXAM DATE/TIME",?30,MAGGTRG(2005,IEN_",","PROCEDURE/EXAM DATE/TIME","E")
W !,"SHORT DESCRIPTION",?30,MAGGTRG(2005,IEN_",","SHORT DESCRIPTION","E")
W !,"TYPE",?30,$G(MAGGTRG(2005,IEN_",","TYPE INDEX","E"))
W !,"SPEC/SUBSPEC",?30,$G(MAGGTRG(2005,IEN_",","SPEC/SUBSPEC INDEX","E"))
W !,"PROC/EVENT",?30,$G(MAGGTRG(2005,IEN_",","PROC/EVENT INDEX","E"))
W !,"DATE/TIME IMAGE SAVED",?30,MAGGTRG(2005,IEN_",","DATE/TIME IMAGE SAVED","E")
W !,"IMAGE SAVE BY",?30,MAGGTRG(2005,IEN_",","IMAGE SAVE BY","E")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGSDLGR 3039 printed Apr 09, 2024@21:06:10 Page 2
MAGSDLGR ;WOIFO/SEB - Delete Image Group ; [ 06/20/2001 08:56 ]
+1 ;;3.0;IMAGING;**8**;Sep 15, 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 Class II medical device. As such, it may not be changed |
+12 ;; | in any way. Modifications to this software may result in an |
+13 ;; | adulterated medical device under 21CFR820, the use of which |
+14 ;; | is considered to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
+18 ;
+19 ; Delete an image group (option MAG SYS-DELETE GROUP)
IMGDEL NEW DIC,X,Y,MAGIEN,MAGRSN,MAGGRY
+1 WRITE !
SET DIC=2005
SET DIC(0)="AENQ"
SET DIC("A")="Enter the image group ID to delete: "
+2 SET DIC("S")="I $P(^(0),U,10)="""""
DO ^DIC
+3 IF Y=-1
QUIT
+4 SET MAGIEN=+Y
+5 DO SHOWINFO(MAGIEN)
RSN READ !!,"Enter a Reason for deletion: ",MAGRSN:DTIME
+1 IF $EXTRACT(MAGRSN)="?"
WRITE !,"Please describe why the image group is being deleted.",!," or enter ""^"" to cancel."
GOTO RSN
+2 IF (MAGRSN="^")!(MAGRSN="")
WRITE !,"Deletion Canceled. The image group was not deleted."
QUIT
+3 IF $LENGTH(MAGRSN)<10
WRITE !,"Please enter a description of a few words. (more than 10 characters)",!," or enter ""^"" to cancel."
GOTO RSN
+4 IF '$$CONFIRM
WRITE !,"Deletion Canceled. The image group was not deleted."
QUIT
+5 WRITE !,"Deleting Group Images..."
+6 DO IMAGEDEL^MAGGTID(.MAGGRY,MAGIEN,1,MAGRSN)
+7 IF +MAGGRY(0)=0
WRITE !!,$PIECE(MAGGRY(0),U,2)
+8 IF '$TEST
WRITE !!,"Image group deletion successful!"
+9 QUIT
CONFIRM() ;
+1 READ !!,"ARE YOU SURE YOU WANT TO DELETE ALL IMAGES IN THIS GROUP ? Y/N N//",ANS:DTIME
+2 IF "Nn"[ANS
QUIT 0
+3 IF "Yy"'[ANS
QUIT 0
+4 QUIT 1
SHOWINFO(IEN) ;
+1 WRITE !!,"Information on Selected Image :",!
+2 NEW MAGGTRG,MAGGXE
+3 DO GETS^DIQ(2005,IEN,"5;6;15;10;7;8;42:44","ER","MAGGTRG","MAGGXE")
+4 WRITE !,"IMAGE ID (IEN)",?30,IEN
+5 WRITE !,"# Images in Group = ",?30,+$PIECE($GET(^MAG(2005,IEN,1,0)),U,4)
+6 WRITE !,"PATIENT",?30,MAGGTRG(2005,IEN_",","PATIENT","E")
+7 WRITE !,"PROCEDURE",?30,MAGGTRG(2005,IEN_",","PROCEDURE","E")
+8 WRITE !,"PROCEDURE/EXAM DATE/TIME",?30,MAGGTRG(2005,IEN_",","PROCEDURE/EXAM DATE/TIME","E")
+9 WRITE !,"SHORT DESCRIPTION",?30,MAGGTRG(2005,IEN_",","SHORT DESCRIPTION","E")
+10 WRITE !,"TYPE",?30,$GET(MAGGTRG(2005,IEN_",","TYPE INDEX","E"))
+11 WRITE !,"SPEC/SUBSPEC",?30,$GET(MAGGTRG(2005,IEN_",","SPEC/SUBSPEC INDEX","E"))
+12 WRITE !,"PROC/EVENT",?30,$GET(MAGGTRG(2005,IEN_",","PROC/EVENT INDEX","E"))
+13 WRITE !,"DATE/TIME IMAGE SAVED",?30,MAGGTRG(2005,IEN_",","DATE/TIME IMAGE SAVED","E")
+14 WRITE !,"IMAGE SAVE BY",?30,MAGGTRG(2005,IEN_",","IMAGE SAVE BY","E")
+15 QUIT
