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

MPIFP41.m

Go to the documentation of this file.
  1. MPIFP41 ;;BIR/CML-MPI VISTA build post-init to search for bad ICN Checksums ;Jun 10, 2005
  1. ;;1.0; MASTER PATIENT INDEX VISTA ;**41**;30 Apr 99
  1. ;
  1. EN ;
  1. D BMES^XPDUTL("Post-init will look for patients with erroneous ICN Checksum values.")
  1. ;
  1. S QUEDUZ=$S($G(DUZ)="":.5,1:DUZ)
  1. S ZTSAVE("QUEDUZ")="",ZTRTN="QUE^MPIFP41",ZTDESC="MPI/PD - Search for Bad ICN Checksums",ZTIO="",ZTDTH=$$NOW^XLFDT D ^%ZTLOAD
  1. I $D(ZTSK) D BMES^XPDUTL("Job was queued as Task #"_ZTSK_".")
  1. ;
  1. QUIT ;
  1. K ZTSK S:$D(ZTQUEUED) ZTREQ="@"
  1. K QUEDUZ,ZTDESC,ZTIO,ZTREQ,ZTRTN,ZTSAVE,ZTDTH
  1. Q
  1. ;
  1. QUE ;entry point for background job
  1. N ARR,CHKSUM,DA,DFN,DIFF,DR,ERRCNT,I,ICN,LTH,MPI,NODE,OLDSUM,SITENM,SITENUM,TXTCNT,START,STOP
  1. S (ERRCNT,DFN)=0,START=$$NOW^XLFDT
  1. F S DFN=$O(^DPT(DFN)) Q:'DFN S NODE=$G(^DPT(DFN,"MPI")) S ICN=$P(NODE,"^") I ICN D
  1. .S CHKSUM=$$CHECKDG^MPIFSPC(ICN),OLDSUM=$P(NODE,"^",2)
  1. .I +OLDSUM,$L(OLDSUM)'=6 S LTH=($L(OLDSUM)+1) F I=LTH:1:6 S OLDSUM="0"_OLDSUM
  1. .I CHKSUM'=OLDSUM D
  1. ..S ERRCNT=ERRCNT+1,ARR(ICN)=CHKSUM_"^"_OLDSUM
  1. ..S DIE="^DPT(",DA=DFN,DR="991.02///^S X=CHKSUM" D ^DIE K DIE
  1. ;
  1. ;calculate run time
  1. S STOP=$$NOW^XLFDT
  1. S DIFF=($$FMDIFF^XLFDT(STOP,START,2))/3600
  1. ;
  1. ;send results back to MPI
  1. N XMDUZ,XMSUB,SITENM,SITENUM,MPI,XMY,XMTEXT
  1. S SITENM=$P($$SITE^VASITE,"^",2),SITENUM=$P($$SITE^VASITE,"^",3)
  1. S XMDUZ="MPI AUSTIN"
  1. S XMSUB="MPIF*1.0*41 Post Init - "_SITENUM_"/"_SITENM
  1. S XMY("G.MPI POST INIT MONITOR@MPI-AUSTIN.DOMAIN.EXT")="",XMTEXT="MPI(1,"
  1. S MPI(1,1)=SITENUM_"/"_SITENM_": (Run Time = "_$J(DIFF,5,2)_" hrs)"
  1. S MPI(1,2)="Found "_ERRCNT_" patients with bad ICN checksums"_$S(ERRCNT>0:" -- all have been fixed.",1:".")
  1. S MPI(1,3)=""
  1. I ERRCNT>0 S MPI(1,4)="(ICN/GOOD CHECKSUM^CURRENT BAD CHECKSUM)"
  1. S TXTCNT=4
  1. S ICN=0 F S ICN=$O(ARR(ICN)) Q:'ICN S TXTCNT=TXTCNT+1,MPI(1,TXTCNT)=ICN_"/"_ARR(ICN)
  1. D ^XMD
  1. ;send e-mail to local user who queued this job
  1. N XMDUZ,XMSUB,MPI,XMY,XMTEXT
  1. S XMDUZ="MPI AUSTIN"
  1. S XMSUB="MPIF*1.0*41 Post Init Complete."
  1. S XMY("`"_QUEDUZ_"@"_^XMB("NETNAME"))="",XMTEXT="MPI(1,"
  1. S MPI(1,1)="Post Init for patch MPIF*1.0*41 has run to completion."
  1. S MPI(1,2)="You should now delete routine ^MPIFP41."
  1. D ^XMD
  1. Q