Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MAGGTUX1

MAGGTUX1.m

Go to the documentation of this file. 
  1. MAGGTUX1 ;WIOFO/GEK Imaging utility to track missing TYPE INDEX values.
  1.  ;;3.0;IMAGING;**59**;Nov 27, 2007;Build 20
  1.  ;;Per VHA Directive 2004-038, this routine should not be modified.
  1.  ;; +---------------------------------------------------------------+
  1.  ;; | Property of the US Government.                                |
  1.  ;; | No permission to copy or redistribute this software is given. |
  1.  ;; | Use of unreleased versions of this software requires the user |
  1.  ;; | to execute a written test agreement with the VistA Imaging    |
  1.  ;; | Development Office of the Department of Veterans Affairs,     |
  1.  ;; | telephone (301) 734-0100.                                     |
  1.  ;; |                                                               |
  1.  ;; | The Food and Drug Administration classifies this software as  |
  1.  ;; | a medical device.  As such, it may not be changed in any way. |
  1.  ;; | Modifications to this software may result in an adulterated   |
  1.  ;; | medical device under 21CFR820, the use of which is considered |
  1.  ;; | to be a violation of US Federal Statutes.                     |
  1.  ;; +---------------------------------------------------------------+
  1.  ;;
  1.  Q
  1. REVIEW ;
  1.  N CHK,FIX,MAGN
  1.  S CHK=$D(^XTMP("MAGGTUXC"))
  1.  S FIX=$D(^XTMP("MAGGTUX"))
  1.  N EQ S $P(EQ,"=",78)=""
  1.  W !,EQ
  1.  I 'CHK,'FIX W !,"No reports to review." Q
  1.  S X=$S(FIX:"F",1:"C")
  1.  I CHK&FIX D
  1.  . W !,"Review last Report of Checked or Fixed Index terms:  C/F   //F  :" R X:30
  1.  I "fF"[$E(X) W !,"Starting Review of last Fixed Report:" S MAGN="MAGGTUX"
  1.  E  W !,"Starting Review of last Checked Report:" S MAGN="MAGGTUXC"
  1.  W !,"Summary of search for Images where TYPE INDEX = null"
  1.  N I,PKG,BT,ICT,CT,J,JCT,TCT,TTCT
  1.  S BT=0
  1.  D 3
  1.  ;
  1.  W !,"Last Image IEN missing a Type Index : ",$P($G(^XTMP(MAGN,0,"NT")),"-")
  1.  W ?41,$$FMTE^XLFDT($P($G(^XTMP(MAGN,0,"NT")),"-",2))
  1.  W !,"Last Image IEN missing All Index : ",$P($G(^XTMP(MAGN,0,"NI")),"-")
  1.  W ?41,$$FMTE^XLFDT($P($G(^XTMP(MAGN,0,"NI")),"-",2))
  1.  W !,"------------------------------"
  1.  S I="",TCT=0
  1.  W !,"Different settings of invalid INDEX Node"
  1.  W !,"Current Terms",?22,"Generated Terms",?50,"New Terms",!
  1.  F  S I=$O(^XTMP(MAGN,"AAN40",I)) Q:I=""  D
  1.  . S TCT=TCT+$G(^XTMP(MAGN,"AAN40",I))
  1.  . W !,I,?20,^XTMP(MAGN,"AAN40",I),?65,"= ",TCT
  1.  . S J="" F  S J=$O(^XTMP(MAGN,"AAN40",I,"CVT",J)) Q:J=""  D
  1.  . . W !,I,?20,"+ ",J,?45,"= ",^XTMP(MAGN,"AAN40",I,"CVT",J)
  1.  . Q
  1.  ;
  1. DISPLAY ; This is called after a CHECK or a FIX from MAGGTUX
  1.  N A
  1.  S A=$NA(^TMP($J,"MAGGTUX","RPT"))
  1.  D BUILD(A)
  1.  S I="" F  S I=$O(@A@(I)) Q:I=""  D MES^XPDUTL(^(I))
  1.  Q
  1. MAIL ; This will mail results to the MAG SERVER mail group.
  1.  N A,MAGDT
  1.  S MAGDT=$P($$FMTE^XLFDT($$NOW^XLFDT),"@",1)
  1.  S A=$NA(^TMP($J,"MAGQ"))
  1.  D BUILD(A)
  1.  N XMSUB S XMSUB="Image Index Validate "_MAGDT_": Report"
  1.  S @A@(1)=$$GET1^DIQ(200,$G(DUZ),.01)_"   "_$$GET1^DIQ(4,$G(DUZ(2)),.01)
  1.  D MAILSHR^MAGQBUT1
  1.  Q
  1. BUILD(A) ;BUILD A TMP global of the report.
  1.  N CT
  1.  S CT=5 K @A
  1.  S CT=CT+1,@A@(CT)="================================================================="
  1.  S CT=CT+1,@A@(CT)="Start time                                    : "_$$FMTE^XLFDT($P(^XTMP(MAGN,0),"^",2))
  1.  S CT=CT+1,@A@(CT)="End time                                      : "_$P($G(^XTMP(MAGN,0,"END")),"^",1)
  1.  S CT=CT+1,@A@(CT)="Elapsed time                                  : "_$P($G(^XTMP(MAGN,0,"END")),"^",2)
  1.  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))
  1.  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))
  1.  S CT=CT+1,@A@(CT)="Total Checked:                                  "_$G(^XTMP(MAGN,"AATCHK"))
  1.  S CT=CT+1,@A@(CT)="   --   Entries Missing a Type Index    -- "
  1.  S CT=CT+1,@A@(CT)="Total Study Groups & Single Images            : "_+$G(^XTMP(MAGN,"AANT"))
  1.  S CT=CT+1,@A@(CT)="Total Group Images                            : "_$G(^XTMP(MAGN,"AAGRINT"))
  1.  S CT=CT+1,@A@(CT)="   --   Entries Missing all Index Terms -- "
  1.  S CT=CT+1,@A@(CT)="Total Study Groups & Single Images            : "_+$G(^XTMP(MAGN,"AANI"))
  1.  S CT=CT+1,@A@(CT)="Total Group Images                            : "_$G(^XTMP(MAGN,"AAGRINI"))
  1.  S CT=CT+1,@A@(CT)="   --   Other Index checks              -- "
  1.  S CT=CT+1,@A@(CT)="  Total Origin Index fixes                    : "_$G(^XTMP(MAGN,"AAOFX"))
  1.  S CT=CT+1,@A@(CT)="  CR -> CT fix                                : "_$G(^XTMP(MAGN,"AACRCT"))
  1.  S CT=CT+1,@A@(CT)="      Total DataBase Changes                 =  "_+$G(^XTMP(MAGN,"AAFIX"))
  1.  S CT=CT+1,@A@(CT)="                          "
  1.  S CT=CT+1,@A@(CT)="Also : Information gathered during Check/Fix"
  1.  S CT=CT+1,@A@(CT)=" - - - Generate Index Values and Merge  - - -  "
  1.  S CT=CT+1,@A@(CT)="  The Merged proc/spec not valid. No change.)    "_$G(^XTMP(MAGN,"AANOMERG"))
  1.  S CT=CT+1,@A@(CT)="  The Merged proc/spec was okay. Changed.        "_$G(^XTMP(MAGN,"AAOKMERG"))
  1.  S CT=CT+1,@A@(CT)=" - - - other - - - "
  1.  S CT=CT+1,@A@(CT)="  Total Groups of only 1 image     "_$G(^XTMP(MAGN,"AAGO1"))
  1.  S CT=CT+1,@A@(CT)="  Total Groups of 0 images         "_$G(^XTMP(MAGN,"AAGO0"))
  1.  S CT=CT+1,@A@(CT)="  Total Images w/No Patient        "_$G(^XTMP(MAGN,"AANOPAT"))
  1.  S CT=CT+1,@A@(CT)="  Total Images w/No 0 node         "_$G(^XTMP(MAGN,"AANOZ"))
  1.  S CT=CT+1,@A@(CT)="  Warnings: Generated Proc,Spec    "_$G(^XTMP(MAGN,"AAINVG"))
  1.  S CT=CT+1,@A@(CT)="  Warnings: Entered   Proc,Spec    "_$G(^XTMP(MAGN,"AAINVO"))
  1.  S IEN=$P(^XTMP(MAGN,0),"^",3)
  1.  I +IEN D
  1.  . S CT=CT+1,@A@(CT)=" "
  1.  . S CT=CT+1,@A@(CT)="Last IEN Checked: "_IEN
  1.  . S CT=CT+1,@A@(CT)="    Capture Date:     "_$$FMTE^XLFDT($P($G(^MAG(2005,IEN,2)),"^",1))
  1.  . Q
  1.  I IEN=0 D
  1.  . S CT=CT+1,@A@(CT)=" "
  1.  . S CT=CT+1,@A@(CT)="All Entries were checked"
  1.  . Q
  1.  S CT=CT+1,@A@(CT)=" "
  1.  S CT=CT+1,@A@(CT)="For a summary of the last Check or Fix process"
  1.  S CT=CT+1,@A@(CT)="Use the menu option: "
  1.  S CT=CT+1,@A@(CT)="   ""REV    Review a Summary of the last Fix or Check process."""
  1.  S CT=CT+1,@A@(CT)="================================================================="
  1.  Q
  1.  ;
  1. 3 ; called from above.  Display the Spec - Proc problems
  1.  N MAIDX
  1.  S MAIDX="MAIDXG"
  1.  W !!,"Mismatch in the Generated Values of Specialty/SubSpec <-> Proc/Event",!
  1.  D 31
  1.  S MAIDX="MAIDXO"
  1.  W !!,"Mismatch in the User entered Values of Specialty/SubSpec <-> Proc/Event",!
  1.  D 31
  1.  Q
  1. 31 ;
  1.  N IT,IS,IP
  1.  N I,SD,SUBO,I3,CT,J,MY
  1.  S IT="" F  S IT=$O(^XTMP(MAGN,MAIDX,IT)) Q:IT=""  D
  1.  . S IS="" F  S IS=$O(^XTMP(MAGN,MAIDX,IT,IS)) Q:IS=""  D
  1.  . . S IP="" F  S IP=$O(^XTMP(MAGN,MAIDX,IT,IS,IP)) Q:IP=""  D
  1.  . . . S CT=^(IP)
  1.  . . . K MY D VALTUX1^MAGGTUX3(.MY,IT,IS,IP) W !,CT,"  "
  1.  . . . S I="" F  S I=$O(MY(I)) Q:I=""  W ?7,MY(I),!
  1.  . . . I $L($O(^MAG(2005.85,IP,1,"B",""))) W ?35,"Valid specs: "
  1.  . . . S I3="" F  S I3=$O(^MAG(2005.85,IP,1,"B",I3)) Q:'I3  D
  1.  . . . . W !,?35,$P(^MAG(2005.84,I3,0),"^")
  1.  . . . . S SUBO=$P(^MAG(2005.84,I3,0),"^",3)
  1.  . . . . I SUBO W " <",$P(^MAG(2005.84,SUBO,0),"^"),">"
  1.  . . . . Q
  1.  . . . K ^TMP($J,"MAGDCT")
  1.  . . . S SD="" F  S SD=$O(^XTMP(MAGN,"MAIDSD",+IT,+IS,+IP,"SD",SD))  Q:SD=""  D
  1.  . . . . S ^TMP($J,"MAGDCT",^XTMP(MAGN,"MAIDSD",+IT,+IS,+IP,"SD",SD))="Desc:    "_SD
  1.  . . . 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)
  1.  . . . W !
  1.  . . . Q
  1.  . . Q
  1.  . Q
  1.  Q