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

GMRVFIX.m

Go to the documentation of this file. 
  1. GMRVFIX ;HIOFO/FT-CONVERT C TEMPERATURES TO F, THEN REPLACE ;3/12/04  09:50
  1.  ;;4.0;Vitals/Measurements;**16**;Apr 25, 1997
  1.  ;
  1.  ; This routine uses the following IAs:
  1.  ; #2320  - ^%ZISH calls           (supported)
  1.  ; #10063 - ^%ZTLOAD calls         (supported)
  1.  ; #10070 - ^XMD calls             (supported)
  1.  ; #10103 - ^XLFDT calls           (supported)
  1.  ; #10104 - ^XLFSTR calls          (supported)
  1.  ;
  1. EN ; Main entry point
  1.  D QUEUE
  1.  Q
  1. QUEUE ; Queue the clean-up
  1.  N ZTDESC,ZTDTH,ZTRTN,ZTIO,ZTSAVE,ZTSK
  1.  S ZTRTN="START^GMRVFIX",ZTIO=""
  1.  S ZTDTH=$$NOW^XLFDT(),ZTDESC="GMRV*4*16 DATA REPAIR"
  1.  D ^%ZTLOAD
  1.  I ZTSK>0 D
  1.  .D EN^DDIOL("Task "_ZTSK_" has started. I'll send you a MailMan message when I finish.","","!?5")
  1.  .Q
  1.  I ZTSK'>0 D
  1.  .S GMRVMSG="I couldn't start the task to repair the data."
  1.  .D EN^DDIOL(GMRVMSG,"","!?5")
  1.  .D ERRMAIL(GMRVMSG)
  1.  .Q 
  1.  Q
  1. START ; Start looping through the database
  1.  I $D(ZTQUEUED) S ZTREQ="@"
  1.  N GMRVCNT,GMRVFILE,GMRVFIXD,GMRVIEN,GMRVLINE,GMRVLOOP,GMRVMSG,GMRVNEW,GMRVNODE,GMRVPATH,GMRVOLD,GMRVOUT,GMRVSTOP,GMRVTEMP,GMRVTMP,GMRVTOTL
  1.  N POP
  1.  ; get TEMPERATURE ien
  1.  S GMRVTEMP=$O(^GMRD(120.51,"C","T",0))
  1.  I GMRVTEMP'>0 D  Q
  1.  .S GMRVMSG="Can't find TEMPERATURE in the VITAL types file (120.5). Please log a NOIS."
  1.  .D ERRMAIL(GMRVMSG)
  1.  .Q
  1.  ;
  1.  S GMRVTMP(1)="The following TEMPERATURE readings in the GMRV VITAL MEASUREMENT (#120.5)"
  1.  S GMRVTMP(2)="file were modified. The old value was a number less than 45. It was assumed"
  1.  S GMRVTMP(3)="that the reading was done in Celsius units but not converted to Fahrenheit"
  1.  S GMRVTMP(4)="before being stored in the database. These entries have now been converted"
  1.  S GMRVTMP(5)="to Fahrenheit and saved. IEN indicates the record number in FILE 120.5."
  1.  S GMRVTMP(6)="OLD indicates the previous value and NEW indicates the new value."
  1.  S GMRVTMP(7)=" "
  1.  ; set host file name and directory path
  1.  S GMRVFILE="GMRV_4_16.DAT"
  1.  S GMRVPATH=$$PWD^%ZISH ;current directory
  1.  ; Open up device to print to
  1.  D OPEN^%ZISH("VITAL",GMRVPATH,GMRVFILE,"A") ;'A' for append
  1.  I POP D  Q  ;send email if device cannot be opened
  1.  .S GMRVMSG="Could not open file "_GMRVFILE_" in path "_GMRVPATH_"."
  1.  .D ERRMAIL(GMRVMSG)
  1.  .Q
  1.  U IO
  1.  ; from this point on, the Write commands are writing to the host file.
  1.  F GMRVLOOP=1:1:7 W !,GMRVTMP(GMRVLOOP)
  1.  S (GMRVFIXD,GMRVIEN,GMRVOUT,GMRVSTOP,GMRVTOTL)=0,GMRVCNT=7
  1.  F  S GMRVIEN=$O(^GMR(120.5,"T",GMRVTEMP,GMRVIEN)) Q:'GMRVIEN!(GMRVOUT=1)  D
  1.  .S GMRVSTOP=GMRVSTOP+1,GMRVTOTL=GMRVTOTL+1
  1.  .I GMRVSTOP=1000 D  Q:GMRVOUT=1  ;check if the user stopped the task
  1.  ..S GMRVSTOP=0
  1.  ..I $$S^%ZTLOAD  D
  1.  ...S GMRVOUT=1
  1.  ...S GMRVMSG="Job stopped by user while checking entry # "_GMRVIEN
  1.  ...W !,GMRVMSG
  1.  ...D ERRMAIL(GMRVMSG)
  1.  ...Q
  1.  ..Q
  1.  .Q:$P($G(^GMR(120.5,GMRVIEN,2)),U,1)=1  ;entered-in-error
  1.  .S GMRVNODE=$G(^GMR(120.5,GMRVIEN,0))
  1.  .Q:GMRVNODE=""
  1.  .Q:$P(GMRVNODE,U,3)'=GMRVTEMP  ;not a temperature
  1.  .Q:+$P(GMRVNODE,U,8)'>0  ;not a numeric reading
  1.  .I +$P(GMRVNODE,U,8)>45!(+$P(GMRVNODE,U,8)=45) Q  ;not celsius value
  1.  .S GMRVOLD=$P(GMRVNODE,U,8)
  1.  .S GMRVNEW=(+$P(GMRVNODE,U,8)*1.8)+32
  1.  .S GMRVNEW=$$ROUND(GMRVNEW) ;round to 2 decimal places
  1.  .S $P(^GMR(120.5,GMRVIEN,0),U,8)=GMRVNEW
  1.  .S GMRVFIXD=GMRVFIXD+1
  1.  .S GMRVLINE="IEN="_GMRVIEN_"    "_"OLD="_GMRVOLD_" / "_"NEW="_GMRVNEW
  1.  .W !,GMRVLINE
  1.  .Q
  1.  I GMRVFIXD'>0 D
  1.  .S GMRVCNT=GMRVCNT+1
  1.  .S GMRVTMP(GMRVCNT)="No entries needed to be changed."
  1.  .W !,GMRVTMP(GMRVCNT)
  1.  .Q
  1.  S GMRVCNT=GMRVCNT+1
  1.  S GMRVTMP(GMRVCNT)=" "
  1.  W !,GMRVTMP(GMRVCNT)
  1.  S GMRVCNT=GMRVCNT+1
  1.  S GMRVTMP(GMRVCNT)="Total number of entries checked: "_GMRVTOTL
  1.  W !,GMRVTMP(GMRVCNT)
  1.  S GMRVCNT=GMRVCNT+1
  1.  S GMRVTMP(GMRVCNT)="Number of entries fixed: "_GMRVFIXD
  1.  W !,GMRVTMP(GMRVCNT)
  1.  S GMRVCNT=GMRVCNT+1
  1.  S GMRVTMP(GMRVCNT)=GMRVFILE_" in path "_GMRVPATH_" contains a listing of entries changed."
  1.  W !,GMRVTMP(GMRVCNT)
  1.  D CLOSE^%ZISH("VITAL")
  1.  K GMRVTMP
  1.  S GMRVTMP(1)="The GMRV*4*16 data repair is finished."
  1.  S GMRVTMP(2)=" "
  1.  S GMRVTMP(3)="Total number of entries checked: "_GMRVTOTL
  1.  S GMRVTMP(4)="        Number of entries fixed: "_GMRVFIXD
  1.  S GMRVTMP(5)=" "
  1.  S GMRVTMP(6)="The "_GMRVFILE_" file in the "_GMRVPATH_" directory"
  1.  S GMRVTMP(7)="contains a listing of entries changed."
  1.  D EMAIL(.GMRVTMP)
  1.  K GMRVFILE,GMRVPATH
  1.  Q
  1. EMAIL(GMRVTMP) ; send Mailman message when job is done
  1.  ; Input
  1.  ;  GMRVTMP is message text
  1.  N DIFROM,XMDUZ,XMSUB,XMTEXT,XMY
  1.  S XMSUB="GMRV*4*16 DATA REPAIR"
  1.  S XMY(DUZ)="",XMDUZ=.5
  1.  S XMTEXT="GMRVTMP("
  1.  D ^XMD
  1.  Q
  1. ERRMAIL(GMRVMSG) ; Send email with error message
  1.  ; Input
  1.  ;   GMRVMSG is error message text
  1.  N DIFROM,GMRVTEXT,XMDUZ,XMSUB,XMTEXT,XMY
  1.  S XMSUB="Error with GMRV*4*16 Post-Installation"
  1.  S XMY(DUZ)="",XMDUZ=.5
  1.  S GMRVTEXT(1)="The following error occurred:"
  1.  S GMRVTEXT(2)=GMRVMSG
  1.  S GMRVTEXT(3)=" "
  1.  S GMRVTEXT(4)="When the error is fixed, please D EN^GMRVFIX to complete the"
  1.  S GMRVTEXT(5)="database repair."
  1.  S XMTEXT="GMRVTEXT("
  1.  D ^XMD
  1.  Q
  1. ROUND(X) ; Round off a number
  1.  N Y
  1.  S X=+$G(X)
  1.  S Y=$J(X,6,2)
  1.  S Y=$$STRIP^XLFSTR(Y," ")
  1.  S Y=+Y
  1.  Q Y
  1.  ;