MAGGTUX1	;WIOFO/GEK Imaging utility to track missing TYPE INDEX values.
	;;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
REVIEW	;
	N CHK,FIX,MAGN
	S CHK=$D(^XTMP("MAGGTUXC"))
	S FIX=$D(^XTMP("MAGGTUX"))
	N EQ S $P(EQ,"=",78)=""
	W !,EQ
	I 'CHK,'FIX W !,"No reports to review." Q
	S X=$S(FIX:"F",1:"C")
	I CHK&FIX D
	. W !,"Review last Report of Checked or Fixed Index terms:  C/F   //F  :" R X:30
	I "fF"[$E(X) W !,"Starting Review of last Fixed Report:" S MAGN="MAGGTUX"
	E  W !,"Starting Review of last Checked Report:" S MAGN="MAGGTUXC"
	W !,"Summary of search for Images where TYPE INDEX = null"
	N I,PKG,BT,ICT,CT,J,JCT,TCT,TTCT
	S BT=0
	D 3
	;
	W !,"Last Image IEN missing a Type Index : ",$P($G(^XTMP(MAGN,0,"NT")),"-")
	W ?41,$$FMTE^XLFDT($P($G(^XTMP(MAGN,0,"NT")),"-",2))
	W !,"Last Image IEN missing All Index : ",$P($G(^XTMP(MAGN,0,"NI")),"-")
	W ?41,$$FMTE^XLFDT($P($G(^XTMP(MAGN,0,"NI")),"-",2))
	W !,"------------------------------"
	S I="",TCT=0
	W !,"Different settings of invalid INDEX Node"
	W !,"Current Terms",?22,"Generated Terms",?50,"New Terms",!
	F  S I=$O(^XTMP(MAGN,"AAN40",I)) Q:I=""  D
	. S TCT=TCT+$G(^XTMP(MAGN,"AAN40",I))
	. W !,I,?20,^XTMP(MAGN,"AAN40",I),?65,"= ",TCT
	. S J="" F  S J=$O(^XTMP(MAGN,"AAN40",I,"CVT",J)) Q:J=""  D
	. . W !,I,?20,"+ ",J,?45,"= ",^XTMP(MAGN,"AAN40",I,"CVT",J)
	. Q
	;
DISPLAY	; This is called after a CHECK or a FIX from MAGGTUX
	N A
	S A=$NA(^TMP($J,"MAGGTUX","RPT"))
	D BUILD(A)
	S I="" F  S I=$O(@A@(I)) Q:I=""  D MES^XPDUTL(^(I))
	Q
MAIL	; This will mail results to the MAG SERVER mail group.
	N A,MAGDT
	S MAGDT=$P($$FMTE^XLFDT($$NOW^XLFDT),"@",1)
	S A=$NA(^TMP($J,"MAGQ"))
	D BUILD(A)
	N XMSUB S XMSUB="Image Index Validate "_MAGDT_": Report"
	S @A@(1)=$$GET1^DIQ(200,$G(DUZ),.01)_"   "_$$GET1^DIQ(4,$G(DUZ(2)),.01)
	D MAILSHR^MAGQBUT1
	Q
BUILD(A)	;BUILD A TMP global of the report.
	N CT
	S CT=5 K @A
	S CT=CT+1,@A@(CT)="================================================================="
	S CT=CT+1,@A@(CT)="Start time                                    : "_$$FMTE^XLFDT($P(^XTMP(MAGN,0),"^",2))
	S CT=CT+1,@A@(CT)="End time                                      : "_$P($G(^XTMP(MAGN,0,"END")),"^",1)
	S CT=CT+1,@A@(CT)="Elapsed time                                  : "_$P($G(^XTMP(MAGN,0,"END")),"^",2)
	S CT=CT+1,@A@(CT)="Last Image IEN missing a Type Index           : "_$P($G(^XTMP(MAGN,0,"NT")),"-")_"  "_$$FMTE^XLFDT($P($G(^XTMP(MAGN,0,"NT")),"-",2))
	S CT=CT+1,@A@(CT)="Last Image IEN missing All Index              : "_$P($G(^XTMP(MAGN,0,"NI")),"-")_"  "_$$FMTE^XLFDT($P($G(^XTMP(MAGN,0,"NI")),"-",2))
	S CT=CT+1,@A@(CT)="Total Checked:                                  "_$G(^XTMP(MAGN,"AATCHK"))
	S CT=CT+1,@A@(CT)="   --   Entries Missing a Type Index    -- "
	S CT=CT+1,@A@(CT)="Total Study Groups & Single Images            : "_+$G(^XTMP(MAGN,"AANT"))
	S CT=CT+1,@A@(CT)="Total Group Images                            : "_$G(^XTMP(MAGN,"AAGRINT"))
	S CT=CT+1,@A@(CT)="   --   Entries Missing all Index Terms -- "
	S CT=CT+1,@A@(CT)="Total Study Groups & Single Images            : "_+$G(^XTMP(MAGN,"AANI"))
	S CT=CT+1,@A@(CT)="Total Group Images                            : "_$G(^XTMP(MAGN,"AAGRINI"))
	S CT=CT+1,@A@(CT)="   --   Other Index checks              -- "
	S CT=CT+1,@A@(CT)="  Total Origin Index fixes                    : "_$G(^XTMP(MAGN,"AAOFX"))
	S CT=CT+1,@A@(CT)="  CR -> CT fix                                : "_$G(^XTMP(MAGN,"AACRCT"))
	S CT=CT+1,@A@(CT)="      Total DataBase Changes                 =  "_+$G(^XTMP(MAGN,"AAFIX"))
	S CT=CT+1,@A@(CT)="                          "
	S CT=CT+1,@A@(CT)="Also : Information gathered during Check/Fix"
	S CT=CT+1,@A@(CT)=" - - - Generate Index Values and Merge  - - -  "
	S CT=CT+1,@A@(CT)="  The Merged proc/spec not valid. No change.)    "_$G(^XTMP(MAGN,"AANOMERG"))
	S CT=CT+1,@A@(CT)="  The Merged proc/spec was okay. Changed.        "_$G(^XTMP(MAGN,"AAOKMERG"))
	S CT=CT+1,@A@(CT)=" - - - other - - - "
	S CT=CT+1,@A@(CT)="  Total Groups of only 1 image     "_$G(^XTMP(MAGN,"AAGO1"))
	S CT=CT+1,@A@(CT)="  Total Groups of 0 images         "_$G(^XTMP(MAGN,"AAGO0"))
	S CT=CT+1,@A@(CT)="  Total Images w/No Patient        "_$G(^XTMP(MAGN,"AANOPAT"))
	S CT=CT+1,@A@(CT)="  Total Images w/No 0 node         "_$G(^XTMP(MAGN,"AANOZ"))
	S CT=CT+1,@A@(CT)="  Warnings: Generated Proc,Spec    "_$G(^XTMP(MAGN,"AAINVG"))
	S CT=CT+1,@A@(CT)="  Warnings: Entered   Proc,Spec    "_$G(^XTMP(MAGN,"AAINVO"))
	S IEN=$P(^XTMP(MAGN,0),"^",3)
	I +IEN D
	. S CT=CT+1,@A@(CT)=" "
	. S CT=CT+1,@A@(CT)="Last IEN Checked: "_IEN
	. S CT=CT+1,@A@(CT)="    Capture Date:     "_$$FMTE^XLFDT($P($G(^MAG(2005,IEN,2)),"^",1))
	. Q
	I IEN=0 D
	. S CT=CT+1,@A@(CT)=" "
	. S CT=CT+1,@A@(CT)="All Entries were checked"
	. Q
	S CT=CT+1,@A@(CT)=" "
	S CT=CT+1,@A@(CT)="For a summary of the last Check or Fix process"
	S CT=CT+1,@A@(CT)="Use the menu option: "
	S CT=CT+1,@A@(CT)="   ""REV    Review a Summary of the last Fix or Check process."""
	S CT=CT+1,@A@(CT)="================================================================="
	Q
	;
3	; called from above.  Display the Spec - Proc problems
	N MAIDX
	S MAIDX="MAIDXG"
	W !!,"Mismatch in the Generated Values of Specialty/SubSpec <-> Proc/Event",!
	D 31
	S MAIDX="MAIDXO"
	W !!,"Mismatch in the User entered Values of Specialty/SubSpec <-> Proc/Event",!
	D 31
	Q
31	;
	N IT,IS,IP
	N I,SD,SUBO,I3,CT,J,MY
	S IT="" F  S IT=$O(^XTMP(MAGN,MAIDX,IT)) Q:IT=""  D
	. S IS="" F  S IS=$O(^XTMP(MAGN,MAIDX,IT,IS)) Q:IS=""  D
	. . S IP="" F  S IP=$O(^XTMP(MAGN,MAIDX,IT,IS,IP)) Q:IP=""  D
	. . . S CT=^(IP)
	. . . K MY D VALTUX1^MAGGTUX3(.MY,IT,IS,IP) W !,CT,"  "
	. . . S I="" F  S I=$O(MY(I)) Q:I=""  W ?7,MY(I),!
	. . . I $L($O(^MAG(2005.85,IP,1,"B",""))) W ?35,"Valid specs: "
	. . . S I3="" F  S I3=$O(^MAG(2005.85,IP,1,"B",I3)) Q:'I3  D
	. . . . W !,?35,$P(^MAG(2005.84,I3,0),"^")
	. . . . S SUBO=$P(^MAG(2005.84,I3,0),"^",3)
	. . . . I SUBO W " <",$P(^MAG(2005.84,SUBO,0),"^"),">"
	. . . . Q
	. . . K ^TMP($J,"MAGDCT")
	. . . S SD="" F  S SD=$O(^XTMP(MAGN,"MAIDSD",+IT,+IS,+IP,"SD",SD))  Q:SD=""  D
	. . . . S ^TMP($J,"MAGDCT",^XTMP(MAGN,"MAIDSD",+IT,+IS,+IP,"SD",SD))="Desc:    "_SD
	. . . S CT="" F J=1:1:5 S CT=$O(^TMP($J,"MAGDCT",CT),-1) Q:CT=""  W !,?7,CT,?15,"Desc:    ",^TMP($J,"MAGDCT",CT)
	. . . W !
	. . . Q
	. . Q
	. Q
	Q