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

MAGXCVC.m

Go to the documentation of this file.
  1. MAGXCVC ;WOIFO/SEB,MLH - Image Index Conversion Commit ; 05/18/2007 11:23
  1. ;;3.0;IMAGING;**17,25,31,54**;03-July-2009;;Build 1424
  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. ;; | 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. ;
  1. ; Entry point for the commit image indices option (MAG IMAGE INDEX COMMIT indices)
  1. COMMIT N START,END,FLAG,TMF,STATUS
  1. N ZTDTH,ZTIO,ZTRTN,ZTDESC,ZTSAVE,ZTSK ; -- TaskMan variables
  1. N INPUT ; -------------------------------- user input holder
  1. ;
  1. S STATUS=$G(^XTMP("MAG30P25","STATUS"))
  1. L +MAGTMP("IMAGE INDEX GENERATE"):0 E D G COMMITX
  1. . W !,"Image index generation still in progress. Please try again later."
  1. . Q
  1. L +MAGTMP("IMAGE INDEX COMMIT"):0 E D G COMMITX
  1. . W !,"Image index commit still in progress. Please try again later."
  1. . Q
  1. I '$D(^XTMP("MAGIXCVGEN")) D G COMMITX
  1. . W !,"You must generate the image indices before running this option."
  1. . Q
  1. S (START,END)=0,FLAG=""
  1. D BOUNDS^MAGXCVP(.START,.END) I START="^" G COMMITX
  1. D RECREATE^MAGXCVP(.FLAG) I FLAG="^" G COMMITX
  1. R !!,"Commit new index entries? N // ",INPUT:DTIME
  1. I INPUT="" S INPUT="N"
  1. S INPUT=$$UCASE^MAGXCVP($E(INPUT))
  1. I INPUT'="Y" W !,"OK, entries not committed." G COMMITX
  1. D TASKMAN^MAGXCVP(.TMF) I TMF="^" G COMMITX
  1. S ZTSK=0 I TMF="" D COM1(START,END,FLAG,0) G COMMITX
  1. S ZTRTN="COMTM^MAGXCVC",ZTDESC="COMMIT IMAGE INDEX VALUES",ZTDTH=TMF,ZTIO=""
  1. S ZTSAVE("START")=START,ZTSAVE("END")=END,ZTSAVE("FLAG")=FLAG
  1. D ^%ZTLOAD
  1. W !!,"Image index commitment has been queued as task #"_ZTSK_"."
  1. ;
  1. COMMITX ; Clean up locks from COMMIT initial processing.
  1. L -MAGTMP("IMAGE INDEX GENERATE")
  1. L -MAGTMP("IMAGE INDEX COMMIT")
  1. Q
  1. ;
  1. ; TaskMan entry point for committing image indices
  1. COMTM D COM1(START,END,FLAG,1)
  1. Q
  1. ;
  1. COM1(START,END,FLAG,QUEUED) N MAGIEN,CT,INDXDATA,INDX,STARTDT,ENDDT,SUMMARY,STOP,HISTORY,RESULT
  1. N PREVLOG ; ------ log entry of a previous committal
  1. N PREV0 ; -------- beginning MAGIEN of previous range
  1. N PREVF ; -------- ending MAGIEN of previous range
  1. N RANGE ; -------- array containing the current range being committed
  1. N T0 ; ----------- internal index of ^TMP($J,"PREVRNG") for range checks
  1. ;
  1. L +MAGTMP("IMAGE INDEX COMMIT"):900 E Q ; don't let more than one commit run at once!
  1. K ^XTMP("MAG30P25","SUMMARY") S $P(^XTMP("MAG30P25","STATUS"),U,13,14)=4_U_ZTSK
  1. S STARTDT=$$HTE^XLFDT($H,1)
  1. S START=+$G(START),END=+$G(END),STOP=0
  1. I END=0 S END=+$P($G(^MAG(2005,0)),U,3)
  1. S MAGIEN=START-1 I MAGIEN=-1 S MAGIEN=0
  1. S $P(^XTMP("MAG30P25","STATUS"),U,7,11)=DUZ_U_START_U_STARTDT_U_U
  1. I 'QUEUED W !!
  1. ; Now run the entries that are ready to commit.
  1. ;
  1. K RANGE
  1. F CT=0:1 S MAGIEN=$O(^XTMP("MAGIXCVGEN",MAGIEN)) Q:MAGIEN>END!(+MAGIEN'=MAGIEN) D I STOP Q
  1. . D COM2(MAGIEN,CT,FLAG,QUEUED)
  1. . S $P(^XTMP("MAG30P25","STATUS"),U,12)=MAGIEN
  1. . I QUEUED,$$S^%ZTLOAD S STOP=1,$P(^XTMP("MAG30P25","STATUS"),U,13)=5
  1. . Q
  1. S ENDDT=$$HTE^XLFDT($H,1)
  1. S $P(^XTMP("MAG30P25","STATUS"),U,10,11)=$S(STOP:MAGIEN,1:END)_U_ENDDT
  1. S ^XTMP("MAG30P25","SUMMARY")=$P(^XTMP("MAG30P25","STATUS"),U,8,11)
  1. S HISTORY=$G(^XTMP("MAG30P25","HISTORY"))+1,^XTMP("MAG30P25","HISTORY")=HISTORY
  1. S ^XTMP("MAG30P25","HISTORY",HISTORY)=$P(^XTMP("MAG30P25","STATUS"),U,8,11)
  1. I 'STOP D ; end-of-processing cleanup
  1. . S $P(^XTMP("MAG30P25","STATUS"),U,13)=6
  1. . D ENTRY^MAGLOG("P17CV",$G(DUZ),START,$T(+0),"","",START_"_"_END)
  1. . D NOTIFY^MAGXCVP(.RESULT,2,STARTDT,ENDDT,START,END,FLAG)
  1. . Q
  1. L -MAGTMP("IMAGE INDEX COMMIT")
  1. Q
  1. ;
  1. COM2(MAGIEN,CT,FREC,QUEUED) N INDXDATA,SUMMARY
  1. N FQUIT ; -------- quit flag
  1. N PREV0 ; -------- beginning MAGIEN of previous range
  1. ;
  1. I 'QUEUED,CT#100=0 W MAGIEN
  1. I 'QUEUED,CT#10=0 W "."
  1. ;Patch 8 has been installed (NOOP MLH 12/6/02)
  1. ;or "recreate previously calculated indices" question answered no.
  1. I $TR($G(^MAG(2005,MAGIEN,40)),"^")]"" D
  1. . S FQUIT=1 ; Assume they may not recreate.
  1. . I $E($G(FREC))="N" Q ; "Recreate previously calculated indices" question answered no.
  1. . ; Don't allow committal unless the previous calculation was done by us.
  1. . I $D(^MAGIXCVT(2006.96,MAGIEN)) K FQUIT ; ok
  1. . Q
  1. Q:$G(FQUIT)
  1. ;
  1. S INDXDATA="" D COMIEN(MAGIEN,.INDXDATA)
  1. K ^XTMP("MAGIXCVGEN",MAGIEN)
  1. I INDXDATA="" S INDXDATA="(none)"
  1. S SUMMARY=$G(^XTMP("MAG30P25","SUMMARY",INDXDATA))
  1. I SUMMARY="" S ^XTMP("MAG30P25","SUMMARY",INDXDATA)=1_U_MAGIEN_U_MAGIEN
  1. E S ^XTMP("MAG30P25","SUMMARY",INDXDATA)=(SUMMARY+1)_U_$P(SUMMARY,U,2)_U_MAGIEN
  1. S ^XTMP("MAG30P25","SUMMARY",INDXDATA,MAGIEN)=""
  1. S ^MAGIXCVT(2006.96,MAGIEN)=1 ; flag as converted by index generation
  1. Q
  1. ;
  1. COMIEN(MAGIEN,INDXDATA) ; Commit indices for one image (IEN=MAGIEN), return indices in INDXDATA
  1. N VAL40 ; --- values on the 40 node
  1. N IX40 ; ---- index to pieces of the 40 node
  1. ;
  1. S INDXDATA=$G(INDXDATA)
  1. I INDXDATA="" S INDXDATA=$P($G(^XTMP("MAGIXCVGEN",MAGIEN)),U,2,7)
  1. I INDXDATA="" D GENIEN^MAGXCVI(MAGIEN,.INDXDATA)
  1. F Q:$E(INDXDATA,$L(INDXDATA))'=U S INDXDATA=$E(INDXDATA,1,$L(INDXDATA)-1)
  1. I INDXDATA]"" D
  1. . S ^MAG(2005,MAGIEN,40)=INDXDATA
  1. . Q
  1. E D
  1. . K ^MAG(2005,MAGIEN,40)
  1. . Q
  1. Q
  1. ;
  1. ; Direct edit of image index fields (#40-44) in the image file (#2005).
  1. IMAGE N I,DIC,DIE,DA,DR,X,Y,MAGIEN,MAGDFN,MAGTMP,BEFORE,AFTER
  1. W ! S DIC=2005,DIC(0)="AEQ" D ^DIC I Y=-1 Q
  1. S DIE=DIC,DR="[MAG IMAGE INDEX EDIT]",(MAGIEN,DA)=$P(Y,U)
  1. S MAGDFN=$P($G(^MAG(2005,MAGIEN,0)),"^",7)
  1. K MAGTMP
  1. D GETS^DIQ(2005,MAGIEN_",","40:45","I","MAGTMP")
  1. S BEFORE="" F I=40:1:45 S:BEFORE'="" BEFORE=BEFORE_"|" S BEFORE=BEFORE_MAGTMP(2005,MAGIEN_",",I,"I")
  1. D ^DIE
  1. K MAGTMP
  1. D GETS^DIQ(2005,MAGIEN_",","40:45","I","MAGTMP")
  1. S AFTER="" F I=40:1:45 S:AFTER'="" AFTER=AFTER_"|" S AFTER=AFTER_MAGTMP(2005,MAGIEN_",",I,"I")
  1. D ENTRY^MAGLOG("INDXCHG",$G(DUZ),$G(MAGIEN),"BEFORE: "_BEFORE_" "_"AFTER: "_AFTER,$G(MAGDFN),1)
  1. G IMAGE
  1. ;