MAGGTUX2 ;WIOFO/GEK Imaging utility to validate 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
INIT ; If this is a continuation, initialize the variables.
 ;W !,"MAGN ",MAGN
 I $P(^MAG(2005,0),"^",3)>$P(^XTMP(MAGN,0),"^",4) D
 . W !,"There are new images since this utility was last run."
 S IEN=$P($G(^XTMP(MAGN,0)),"^",3)+1 I IEN=1 D  Q  ; Already run, so start over.
 . S IEN="A"
 . W !!,"All Images were checked as of "_$$FMTE^XLFDT($P(^XTMP(MAGN,0),"^",2))
 . W !
 . W !,"For a summary of the last Check or Fix process use the menu option: "
 . W !,"     ""REV    Review a Summary of the last Fix or Check process."""
 . W !,"  or continue to Re-Check the Image file."
 W !,"Continue: where you left off, at IEN : ",IEN,"   Y/N   //N  :" R X:30
 I "Nn"[$E(X) W !,"Starting over..." S IEN="A" Q
 W !,"Continuing from IEN: ",IEN,!
 S NT=$G(^XTMP(MAGN,"AANT"))
 S NI=$G(^XTMP(MAGN,"AANI"))
 S GRINT=$G(^XTMP(MAGN,"AAGRINT"))
 S GRINI=$G(^XTMP(MAGN,"AAGRINI"))
 S GO1=$G(^XTMP(MAGN,"AAGO1"))
 S OFX=$G(^XTMP(MAGN,"AAOFX"))
 S INVG=$G(^XTMP(MAGN,"AAINVG"))
 S INVO=$G(^XTMP(MAGN,"AAINVO"))
 S NOMERG=$G(^XTMP(MAGN,"AANOMERG"))
 S OKMERG=$G(^XTMP(MAGN,"AAOKMERG"))
 S FIX=$G(^XTMP(MAGN,"AAFIX"))
 S CRCT=$G(^XTMP(MAGN,"AACRCT"))
 Q
TRK2 ; Keep a Count of Short Desc, transpose to compact the list.
 S SD=$P(N2,"^",4)
 S SD=$TR(SD,"0123456789+-/\.,~`!@#$%^&*()_-={}[]|:;""'<>?","")
 S SD=$TR(SD,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
 F  Q:SD'["  "  S SD=$P(SD,"  ",1)_" "_$P(SD,"  ",2,999)
 S SD=$$TRIM^XLFSTR(SD,"LR")
 S:SD="" SD="[NO SHORT DESC]"
 S ^XTMP(MAGN,"MAIDSD",+IXT,+IXS,+IXP,"SD",SD)=$G(^XTMP(MAGN,"MAIDSD",+IXT,+IXS,+IXP,"SD",SD))+1
 Q
CHKCR(N40,IEN) ; Image has Procedure/Event CR, see if it should be CT.
 N INDXD
 D GENIEN^MAGXCVI(IEN,.INDXD)
 I $P(INDXD,"^",4)'=RADCT Q
 S CRCT=CRCT+1
 I COMMIT D
 . S FIX=FIX+1
 . S $P(^MAG(2005,IEN,40),"^",4)=RADCT
 . D ENTRY^MAGLOG("INDEX-CR",DUZ,IEN,"TUX59",MDFN,1)
 . Q
 Q
CHK45(N40,IEN) ;  Check the Origin Set of Codes.
 ; N40 passed by Ref, it may be changed in here.
 N ORG,NORG
 S ORG=$P(N40,"^",6)
 I "VNFD"[ORG Q  ; Valid
 ; get it's first Char.
 S $P(N40,"^",6)=$S("VNFD"[$E(ORG):$E(ORG),1:"")
 S OFX=OFX+1
 I COMMIT D
 . S FIX=FIX+1
 . S ^MAG(2005,IEN,40)=N40
 . D ENTRY^MAGLOG("INDEX-45",DUZ,IEN,"TUX59",MDFN,1)
 . Q
 Q
VALIND ;Validate the interdependency between Type, Spec, Proc/Event for Entries that have a TYpe.
 K MRY I $$VALTUX2^MAGGTUX3(.MRY,IXT,IXS,IXP) Q  ; Valid Type <-> Spec <-> Proc
 ; Keep list of Generated or User entered invalid Type<->Spec<->Proc
 I $D(^MAGIXCVT(2006.96,IEN)) S ^XTMP(MAGN,"MAIDXG",+IXT,+IXS,+IXP)=$G(^XTMP(MAGN,"MAIDXG",+IXT,+IXS,+IXP))+1,INVG=INVG+1
 E  S ^XTMP(MAGN,"MAIDXO",+IXT,+IXS,+IXP)=$G(^XTMP(MAGN,"MAIDXO",+IXT,+IXS,+IXP))+1,INVO=INVO+1
 D TRK2
 Q
VALMERG(O40,N40) ; N40 Passed by Ref.
 ; if the merged Proc-Spec in New 40 Node (N40) are not valid,
 ; Then just take the TYPE, and revert back to old O40 Spec and Proc
 K MRY
 I $$VALTUX2^MAGGTUX3(.MRY,$P(N40,"^",3),$P(N40,"^",5),$P(N40,"^",4)) S OKMERG=OKMERG+1 Q  ; Merged values are valid
 S NOMERG=NOMERG+1
 S $P(N40,"^",4,5)=$P(O40,"^",4,5) ; Put the Spec and Proc back to original way.
 Q