| 1 | MPIFP41 ;;BIR/CML-MPI VISTA build post-init to search for bad ICN Checksums ;Jun 10, 2005
|
|---|
| 2 | ;;1.0; MASTER PATIENT INDEX VISTA ;**41**;30 Apr 99
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;
|
|---|
| 5 | D BMES^XPDUTL("Post-init will look for patients with erroneous ICN Checksum values.")
|
|---|
| 6 | ;
|
|---|
| 7 | S QUEDUZ=$S($G(DUZ)="":.5,1:DUZ)
|
|---|
| 8 | S ZTSAVE("QUEDUZ")="",ZTRTN="QUE^MPIFP41",ZTDESC="MPI/PD - Search for Bad ICN Checksums",ZTIO="",ZTDTH=$$NOW^XLFDT D ^%ZTLOAD
|
|---|
| 9 | I $D(ZTSK) D BMES^XPDUTL("Job was queued as Task #"_ZTSK_".")
|
|---|
| 10 | ;
|
|---|
| 11 | QUIT ;
|
|---|
| 12 | K ZTSK S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 13 | K QUEDUZ,ZTDESC,ZTIO,ZTREQ,ZTRTN,ZTSAVE,ZTDTH
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | QUE ;entry point for background job
|
|---|
| 17 | N ARR,CHKSUM,DA,DFN,DIFF,DR,ERRCNT,I,ICN,LTH,MPI,NODE,OLDSUM,SITENM,SITENUM,TXTCNT,START,STOP
|
|---|
| 18 | S (ERRCNT,DFN)=0,START=$$NOW^XLFDT
|
|---|
| 19 | F S DFN=$O(^DPT(DFN)) Q:'DFN S NODE=$G(^DPT(DFN,"MPI")) S ICN=$P(NODE,"^") I ICN D
|
|---|
| 20 | .S CHKSUM=$$CHECKDG^MPIFSPC(ICN),OLDSUM=$P(NODE,"^",2)
|
|---|
| 21 | .I +OLDSUM,$L(OLDSUM)'=6 S LTH=($L(OLDSUM)+1) F I=LTH:1:6 S OLDSUM="0"_OLDSUM
|
|---|
| 22 | .I CHKSUM'=OLDSUM D
|
|---|
| 23 | ..S ERRCNT=ERRCNT+1,ARR(ICN)=CHKSUM_"^"_OLDSUM
|
|---|
| 24 | ..S DIE="^DPT(",DA=DFN,DR="991.02///^S X=CHKSUM" D ^DIE K DIE
|
|---|
| 25 | ;
|
|---|
| 26 | ;calculate run time
|
|---|
| 27 | S STOP=$$NOW^XLFDT
|
|---|
| 28 | S DIFF=($$FMDIFF^XLFDT(STOP,START,2))/3600
|
|---|
| 29 | ;
|
|---|
| 30 | ;send results back to MPI
|
|---|
| 31 | N XMDUZ,XMSUB,SITENM,SITENUM,MPI,XMY,XMTEXT
|
|---|
| 32 | S SITENM=$P($$SITE^VASITE,"^",2),SITENUM=$P($$SITE^VASITE,"^",3)
|
|---|
| 33 | S XMDUZ="MPI AUSTIN"
|
|---|
| 34 | S XMSUB="MPIF*1.0*41 Post Init - "_SITENUM_"/"_SITENM
|
|---|
| 35 | S XMY("G.MPI POST INIT MONITOR@MPI-AUSTIN.MED.VA.GOV")="",XMTEXT="MPI(1,"
|
|---|
| 36 | S MPI(1,1)=SITENUM_"/"_SITENM_": (Run Time = "_$J(DIFF,5,2)_" hrs)"
|
|---|
| 37 | S MPI(1,2)="Found "_ERRCNT_" patients with bad ICN checksums"_$S(ERRCNT>0:" -- all have been fixed.",1:".")
|
|---|
| 38 | S MPI(1,3)=""
|
|---|
| 39 | I ERRCNT>0 S MPI(1,4)="(ICN/GOOD CHECKSUM^CURRENT BAD CHECKSUM)"
|
|---|
| 40 | S TXTCNT=4
|
|---|
| 41 | S ICN=0 F S ICN=$O(ARR(ICN)) Q:'ICN S TXTCNT=TXTCNT+1,MPI(1,TXTCNT)=ICN_"/"_ARR(ICN)
|
|---|
| 42 | D ^XMD
|
|---|
| 43 | ;send e-mail to local user who queued this job
|
|---|
| 44 | N XMDUZ,XMSUB,MPI,XMY,XMTEXT
|
|---|
| 45 | S XMDUZ="MPI AUSTIN"
|
|---|
| 46 | S XMSUB="MPIF*1.0*41 Post Init Complete."
|
|---|
| 47 | S XMY("`"_QUEDUZ_"@"_^XMB("NETNAME"))="",XMTEXT="MPI(1,"
|
|---|
| 48 | S MPI(1,1)="Post Init for patch MPIF*1.0*41 has run to completion."
|
|---|
| 49 | S MPI(1,2)="You should now delete routine ^MPIFP41."
|
|---|
| 50 | D ^XMD
|
|---|
| 51 | Q
|
|---|
