| 1 | MAGSDLGR ;WOIFO/SEB - Delete Image Group ; [ 06/20/2001 08:56 ]
|
|---|
| 2 | ;;3.0;IMAGING;**8**;Sep 15, 2004
|
|---|
| 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 Class II medical device. As such, it may not be changed |
|
|---|
| 13 | ;; | in any way. Modifications to this software may result in an |
|
|---|
| 14 | ;; | adulterated medical device under 21CFR820, the use of which |
|
|---|
| 15 | ;; | is considered to be a violation of US Federal Statutes. |
|
|---|
| 16 | ;; +---------------------------------------------------------------+
|
|---|
| 17 | ;;
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | ; Delete an image group (option MAG SYS-DELETE GROUP)
|
|---|
| 21 | IMGDEL N DIC,X,Y,MAGIEN,MAGRSN,MAGGRY
|
|---|
| 22 | W ! S DIC=2005,DIC(0)="AENQ",DIC("A")="Enter the image group ID to delete: "
|
|---|
| 23 | S DIC("S")="I $P(^(0),U,10)=""""" D ^DIC
|
|---|
| 24 | I Y=-1 Q
|
|---|
| 25 | S MAGIEN=+Y
|
|---|
| 26 | D SHOWINFO(MAGIEN)
|
|---|
| 27 | RSN R !!,"Enter a Reason for deletion: ",MAGRSN:DTIME
|
|---|
| 28 | I $E(MAGRSN)="?" W !,"Please describe why the image group is being deleted.",!," or enter ""^"" to cancel." G RSN
|
|---|
| 29 | I (MAGRSN="^")!(MAGRSN="") W !,"Deletion Canceled. The image group was not deleted." Q
|
|---|
| 30 | I $L(MAGRSN)<10 W !,"Please enter a description of a few words. (more than 10 characters)",!," or enter ""^"" to cancel." G RSN
|
|---|
| 31 | I '$$CONFIRM W !,"Deletion Canceled. The image group was not deleted." Q
|
|---|
| 32 | W !,"Deleting Group Images..."
|
|---|
| 33 | D IMAGEDEL^MAGGTID(.MAGGRY,MAGIEN,1,MAGRSN)
|
|---|
| 34 | I +MAGGRY(0)=0 W !!,$P(MAGGRY(0),U,2)
|
|---|
| 35 | E W !!,"Image group deletion successful!"
|
|---|
| 36 | Q
|
|---|
| 37 | CONFIRM() ;
|
|---|
| 38 | R !!,"ARE YOU SURE YOU WANT TO DELETE ALL IMAGES IN THIS GROUP ? Y/N N//",ANS:DTIME
|
|---|
| 39 | I "Nn"[ANS Q 0
|
|---|
| 40 | I "Yy"'[ANS Q 0
|
|---|
| 41 | Q 1
|
|---|
| 42 | SHOWINFO(IEN) ;
|
|---|
| 43 | W !!,"Information on Selected Image :",!
|
|---|
| 44 | N MAGGTRG,MAGGXE
|
|---|
| 45 | D GETS^DIQ(2005,IEN,"5;6;15;10;7;8;42:44","ER","MAGGTRG","MAGGXE")
|
|---|
| 46 | W !,"IMAGE ID (IEN)",?30,IEN
|
|---|
| 47 | W !,"# Images in Group = ",?30,+$P($G(^MAG(2005,IEN,1,0)),U,4)
|
|---|
| 48 | W !,"PATIENT",?30,MAGGTRG(2005,IEN_",","PATIENT","E")
|
|---|
| 49 | W !,"PROCEDURE",?30,MAGGTRG(2005,IEN_",","PROCEDURE","E")
|
|---|
| 50 | W !,"PROCEDURE/EXAM DATE/TIME",?30,MAGGTRG(2005,IEN_",","PROCEDURE/EXAM DATE/TIME","E")
|
|---|
| 51 | W !,"SHORT DESCRIPTION",?30,MAGGTRG(2005,IEN_",","SHORT DESCRIPTION","E")
|
|---|
| 52 | W !,"TYPE",?30,$G(MAGGTRG(2005,IEN_",","TYPE INDEX","E"))
|
|---|
| 53 | W !,"SPEC/SUBSPEC",?30,$G(MAGGTRG(2005,IEN_",","SPEC/SUBSPEC INDEX","E"))
|
|---|
| 54 | W !,"PROC/EVENT",?30,$G(MAGGTRG(2005,IEN_",","PROC/EVENT INDEX","E"))
|
|---|
| 55 | W !,"DATE/TIME IMAGE SAVED",?30,MAGGTRG(2005,IEN_",","DATE/TIME IMAGE SAVED","E")
|
|---|
| 56 | W !,"IMAGE SAVE BY",?30,MAGGTRG(2005,IEN_",","IMAGE SAVE BY","E")
|
|---|
| 57 | Q
|
|---|
