DG531093P ;ALB/ARF,JDB - PATCH DG*5.3*1093 INSTALL UTILITIES ;04/20/23 09:12am
;;5.3;Registration;**1093**;Aug 13, 1993;Build 12
;
; Reference to BMES^XPDUTL in ICR #10141
; Reference to MES^XPDUTL in ICR #10141
; Reference to $$PATCH^XPDUTL in ICR #10141
; Reference to ^XMD in ICR #10070
;
;No direct entry
QUIT
;
;--------------------------------------------------------------------------
;Patch DG*5.3*1093: Environment, Pre-Install, and Post-Install entry points.
;--------------------------------------------------------------------------
;
ENV ;Main entry point for Environment check
Q
;
PRE ;Main entry point for Pre-Install items
D BMES^XPDUTL(">>> Beginning the DG*5.3*1093 Pre-install routine...")
;Check if the patch has previously run, if so quit out PRE.
I $$PATCH^XPDUTL("DG*5.3*1093") D Q
. D BMES^XPDUTL("Patch has been previously installed. Pre-install will not be run again.")
. D BMES^XPDUTL(">>> Patch DG*5.3*1093 Pre-install complete.")
D PRE1
D BMES^XPDUTL(">>> Patch DG*5.3*1093 Pre-install complete.")
Q
;
POST ;Main entry point for Post-Install items
D BMES^XPDUTL(">>> Beginning the DG*5.3*1093 Post-install routine...")
;Check if the patch has previously run, if so quit out POST
I $$PATCH^XPDUTL("DG*5.3*1093") D Q
. D BMES^XPDUTL("Patch has been previously installed. Post-install will not be run again.")
. D BMES^XPDUTL(">>> Patch DG*5.3*1093 Post-install complete.")
; Remove triggers from fields .571 and .573 in PATIENT file (#2)
D POST1
; Cleanup Indian attestation data
D POST2
D BMES^XPDUTL(">>> Patch DG*5.3*1093 Post-install complete.")
Q
;
;
PRE1 ; Update existing entry in the RELIGION file (#13)
;Change the NAME field (#.01) of the RELIGION file (#13) from
;"UNITARIAN-UNIVERSALISM" to "UNITARIAN-UNIVERSALIST". This
;change needs to occur before the DG*5.3*1093 patch is installed
;due to an new entry being added in DG1093 with the same name,
;"UNITARIAN-UNIVERSALISM".
;
D BMES^XPDUTL(" - Updating the RELIGION file (#13)...")
D MES^XPDUTL(" - Renaming UNITARIAN-UNIVERSALISM to UNITARIAN-UNIVERSALIST")
;
N DGOLD,DGNEW,DGIEN,DGDATA,DGERR,DGIEN
S DGOLD="UNITARIAN-UNIVERSALISM" ;existing name
S DGNEW="UNITARIAN-UNIVERSALIST" ;new name
S DGIEN=$O(^DIC(13,"B",DGOLD,"")) ;set DA to the IEN of the entry
;
; Update the existing entry's name from UNITARIAN-UNIVERSALISM to UNITARIAN-UNIVERSALIST
S DGDATA(.01)=DGNEW
I $$UPD^DGENDBS(13,.DGIEN,.DGDATA,.DGERR) D Q
. D BMES^XPDUTL("RELIGION NAME: "_DGOLD)
. D BMES^XPDUTL("CHANGED TO: "_DGNEW)
I $G(DGERR)'="" D
. D MES^XPDUTL("*** ERROR! ***")
. D MES^XPDUTL(" - The "_DGOLD_" entry was not updated.")
. D MES^XPDUTL(" - Error: "_DGERR)
. D MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
. D MES^XPDUTL(" for assistance.")
. D MES^XPDUTL(">>> DG*5.3*1093 Pre-install Routine Failed.")
. D MES^XPDUTL(" - Installation Terminated.")
. D MES^XPDUTL(" - Transport global removed from system.")
. S XPDABORT=1 ;variable that will abort the installation
Q
;
POST1 ; Remove x-ref on INDIAN SELF IDENTIFICATION (Field #.571) and INDIAN ATTESTATION DATE (Field #.573) of the PATIENT file #2
;
N DGERR
D BMES^XPDUTL(" - Removing 'AENR571' cross-reference on the INDIAN SELF IDENTIFICATION")
D MES^XPDUTL(" field (#.571) of the PATIENT file (#2).")
D DELIX^DDMOD(2,.571,2,,,"DGERR")
; No error, xRef deleted
I '$D(DGERR) D BMES^XPDUTL(" - Cross reference removed.")
; Error encountered, xRef not deleted.
I $G(DGERR)'="" D
. D BMES^XPDUTL(" ** ERROR encountered deleting the cross reference. **")
. D MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
. D MES^XPDUTL(" for assistance.")
S DGERR=""
D BMES^XPDUTL(" - Removing 'AENR573' cross-reference on the INDIAN ATTESTATION DATE")
D MES^XPDUTL(" field (#.573) of the PATIENT file (#2).")
D DELIX^DDMOD(2,.573,1,,,"DGERR")
; No error, xRef deleted
I $G(DGERR)="" D BMES^XPDUTL(" - Cross reference removed.")
; Error encountered, xRef not deleted.
I $G(DGERR)'="" D
. D BMES^XPDUTL(" ** ERROR encountered deleting the cross reference. **")
. D MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
. D MES^XPDUTL(" for assistance.")
Q
;
POST2 ; Remove all Indian Attestation data from patient records
D BMES^XPDUTL(" - Queuing job to remove Indian Attestation data from all Patient records.")
D BMES^XPDUTL(" All records in the PATIENT file (#2) will be scanned. If the INDIAN SELF")
D MES^XPDUTL(" IDENTIFICATION field (#.571) is NOT null, the following fields will be")
D MES^XPDUTL(" set to null in the patient record:")
D MES^XPDUTL(" - INDIAN SELF IDENTIFICATION field (#.571)")
D MES^XPDUTL(" - INDIAN START DATE field (#.572)")
D MES^XPDUTL(" - INDIAN ATTESTATION DATE field (#.573)")
D MES^XPDUTL(" - INDIAN END DATE field (#.574)")
D MES^XPDUTL(" - INDIAN SELF IDENT CHANGE DT/TM field (#.575)")
D MES^XPDUTL(" - INDIAN SELF IDENT CHANGE USER field (#.576)")
;
;queue off job
N ZTRTN,ZTDESC,ZTDTH,DGTEXT,ZTIO,ZTSK,DGTXT
S ZTRTN="QJOB^DG531093P"
S ZTDESC="DG*5.3*1093 Remove Indian Attestation data from all Patient records."
S ZTDTH=$$NOW^XLFDT
S ZTIO=""
D ^%ZTLOAD
I $G(ZTSK)'="" D
. S DGTEXT(1)=""
. S DGTEXT(2)="Indian Attestation data cleanup job queued."
. S DGTEXT(3)="The task number is "_$G(ZTSK)_"."
. S DGTEXT(4)=""
. S DGTEXT(5)="A Mailman Message containing job results will be sent to the installer."
I $G(ZTSK)="" D
. S DGTEXT(1)=""
. S DGTEXT(2)="*** Indian Attestation data cleanup job FAILED TO QUEUE. ***"
. S DGTEXT(3)=""
. S DGTEXT(4)=" - Submit a YOUR IT Services ticket with the Enterprise Service Desk"
. S DGTEXT(5)=" for assistance."
D BMES^XPDUTL(.DGTEXT)
Q
;
QJOB ; Job Entry point
; Information from the job will be placed in ^XTMP (60 day expiration) and sent in a Mailman message
K ^XTMP("DG531093P")
S ^XTMP("DG531093P",0)=$$FMADD^XLFDT(DT,60)_U_DT_U_"PATCH DG*5.3*1093 Indian Attestation data cleanup job"
; Collect stats: start/end time and the number of records scanned and cleaned up
N %,DFN,DGCNT,DGERR,DGDATA,DGDTS,DGDTE,DGY,Y,DGERRCNT
D NOW^%DTC S Y=% D DD^%DT
S DGDTS=Y
F DGY=.571:.001:.576 S DGDATA(DGY)="@"
;
S (DGCNT,DGERRCNT,DFN)=0
F S DFN=$O(^DPT(DFN)) Q:'DFN D ; loop patients
. ; Indian Attestation is null, get next
. I $$GET1^DIQ(2,DFN,.571)="" Q
. K DGERR
. ;set fields .571 through .576 to null
. I $$UPD^DGENDBS(2,.DFN,.DGDATA,.DGERR) D
. . S DGCNT=DGCNT+1 ; bump count of patients we are blanking
. . S ^XTMP("DG531093P",$J,"IA",DGCNT)=DFN ;update was successful
. ; If error occurred, record it in ^XTMP
. I $G(DGERR)'="" D
. . S DGERRCNT=DGERRCNT+1 ; bump count of errors
. . S ^XTMP("DG531093P",$J,"IA","ERRORS",DGERRCNT)=DFN_U_DGERR ;set DFN and error into XTMP
;
; job completed, perhaps with an error, capture stats and send mailman message
D NOW^%DTC S Y=% D DD^%DT
S DGDTE=Y
;
; Place job data into ^XTMP Global
S ^XTMP("DG531093P",$J,"DGSTART")=$G(DGDTS) ;job start date/time
S ^XTMP("DG531093P",$J,"DGEND")=$G(DGDTE) ;job end date/time
S ^XTMP("DG531093P",$J,"PATIENT RECORDS CLEARED")=DGCNT ; total records affected
S ^XTMP("DG531093P",$J,"ERROR TOTAL")=DGERRCNT ; total error records
;
D MESSAGE
Q
;
MESSAGE ; Send MailMan Message when process completes
N XMSUB,XMDUZ,XMY,XMTEXT,DGMSG,DGLN
S XMY(DUZ)="",XMTEXT="DGMSG("
S XMDUZ=.5,XMSUB="DG*5.3*1093 INDIAN ATTESTATION DATA CLEANUP JOB RESULTS"
;
S DGMSG($I(DGLN))="The DG*5.3*1093 process has completed."
S DGMSG($I(DGLN))=""
I DGERRCNT D
. S DGMSG($I(DGLN))="!!!! WARNING !!!!"
. S DGMSG($I(DGLN))=" - Filing Errors encountered: "_DGERRCNT
. S DGMSG($I(DGLN))=" - Submit a YOUR IT Services ticket with the Enterprise Service Desk"
. S DGMSG($I(DGLN))=" for assistance with the errors. ***"
. S DGMSG($I(DGLN))=""
S DGMSG($I(DGLN))="This process ran through the PATIENT file (#2)"
S DGMSG($I(DGLN))="and for each patient record, if a value was defined in the"
S DGMSG($I(DGLN))="INDIAN SELF IDENTIFICATION field (#.571), these fields were set to null:"
S DGMSG($I(DGLN))=" - INDIAN SELF IDENTIFICATION field (#.571)"
S DGMSG($I(DGLN))=" - INDIAN START DATE field (#.572)"
S DGMSG($I(DGLN))=" - INDIAN ATTESTATION DATE field (#.573)"
S DGMSG($I(DGLN))=" - INDIAN END DATE field (#.574)"
S DGMSG($I(DGLN))=" - INDIAN SELF IDENT CHANGE DT/TM field (#.575)"
S DGMSG($I(DGLN))=" - INDIAN SELF IDENT CHANGE USER field (#.576)"
S DGMSG($I(DGLN))=""
S DGMSG($I(DGLN))="The process statistics:"
S DGMSG($I(DGLN))="Job Start Date/Time: "_$G(DGDTS)
S DGMSG($I(DGLN))=" Job End Date/Time: "_$G(DGDTE)
S DGMSG($I(DGLN))="Total records with INDIAN ATTESTATION data removed: "_DGCNT
S DGMSG($I(DGLN))="Errors encountered: "_DGERRCNT
S DGMSG($I(DGLN))=""
S DGMSG($I(DGLN))="If a list of records that had Indian Attestation data removed"
S DGMSG($I(DGLN))="is needed, you may view global ^XTMP(""DG531093P"","_$J_",""IA"""
S DGMSG($I(DGLN))=""
S DGMSG($I(DGLN))="NOTE: The global ^XTMP(""DG531093P"") will be purged after 60 days."
; Per the MailMan Developer Guide, the variable DIFROM should be NEW'd prior to making the call to ^XMD.
N DIFROM
D ^XMD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG531093P 9497 printed Dec 13, 2024@02:35:53 Page 2
DG531093P ;ALB/ARF,JDB - PATCH DG*5.3*1093 INSTALL UTILITIES ;04/20/23 09:12am
+1 ;;5.3;Registration;**1093**;Aug 13, 1993;Build 12
+2 ;
+3 ; Reference to BMES^XPDUTL in ICR #10141
+4 ; Reference to MES^XPDUTL in ICR #10141
+5 ; Reference to $$PATCH^XPDUTL in ICR #10141
+6 ; Reference to ^XMD in ICR #10070
+7 ;
+8 ;No direct entry
+9 QUIT
+10 ;
+11 ;--------------------------------------------------------------------------
+12 ;Patch DG*5.3*1093: Environment, Pre-Install, and Post-Install entry points.
+13 ;--------------------------------------------------------------------------
+14 ;
ENV ;Main entry point for Environment check
+1 QUIT
+2 ;
PRE ;Main entry point for Pre-Install items
+1 DO BMES^XPDUTL(">>> Beginning the DG*5.3*1093 Pre-install routine...")
+2 ;Check if the patch has previously run, if so quit out PRE.
+3 IF $$PATCH^XPDUTL("DG*5.3*1093")
Begin DoDot:1
+4 DO BMES^XPDUTL("Patch has been previously installed. Pre-install will not be run again.")
+5 DO BMES^XPDUTL(">>> Patch DG*5.3*1093 Pre-install complete.")
End DoDot:1
QUIT
+6 DO PRE1
+7 DO BMES^XPDUTL(">>> Patch DG*5.3*1093 Pre-install complete.")
+8 QUIT
+9 ;
POST ;Main entry point for Post-Install items
+1 DO BMES^XPDUTL(">>> Beginning the DG*5.3*1093 Post-install routine...")
+2 ;Check if the patch has previously run, if so quit out POST
+3 IF $$PATCH^XPDUTL("DG*5.3*1093")
Begin DoDot:1
+4 DO BMES^XPDUTL("Patch has been previously installed. Post-install will not be run again.")
+5 DO BMES^XPDUTL(">>> Patch DG*5.3*1093 Post-install complete.")
End DoDot:1
QUIT
+6 ; Remove triggers from fields .571 and .573 in PATIENT file (#2)
+7 DO POST1
+8 ; Cleanup Indian attestation data
+9 DO POST2
+10 DO BMES^XPDUTL(">>> Patch DG*5.3*1093 Post-install complete.")
+11 QUIT
+12 ;
+13 ;
PRE1 ; Update existing entry in the RELIGION file (#13)
+1 ;Change the NAME field (#.01) of the RELIGION file (#13) from
+2 ;"UNITARIAN-UNIVERSALISM" to "UNITARIAN-UNIVERSALIST". This
+3 ;change needs to occur before the DG*5.3*1093 patch is installed
+4 ;due to an new entry being added in DG1093 with the same name,
+5 ;"UNITARIAN-UNIVERSALISM".
+6 ;
+7 DO BMES^XPDUTL(" - Updating the RELIGION file (#13)...")
+8 DO MES^XPDUTL(" - Renaming UNITARIAN-UNIVERSALISM to UNITARIAN-UNIVERSALIST")
+9 ;
+10 NEW DGOLD,DGNEW,DGIEN,DGDATA,DGERR,DGIEN
+11 ;existing name
SET DGOLD="UNITARIAN-UNIVERSALISM"
+12 ;new name
SET DGNEW="UNITARIAN-UNIVERSALIST"
+13 ;set DA to the IEN of the entry
SET DGIEN=$ORDER(^DIC(13,"B",DGOLD,""))
+14 ;
+15 ; Update the existing entry's name from UNITARIAN-UNIVERSALISM to UNITARIAN-UNIVERSALIST
+16 SET DGDATA(.01)=DGNEW
+17 IF $$UPD^DGENDBS(13,.DGIEN,.DGDATA,.DGERR)
Begin DoDot:1
+18 DO BMES^XPDUTL("RELIGION NAME: "_DGOLD)
+19 DO BMES^XPDUTL("CHANGED TO: "_DGNEW)
End DoDot:1
QUIT
+20 IF $GET(DGERR)'=""
Begin DoDot:1
+21 DO MES^XPDUTL("*** ERROR! ***")
+22 DO MES^XPDUTL(" - The "_DGOLD_" entry was not updated.")
+23 DO MES^XPDUTL(" - Error: "_DGERR)
+24 DO MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
+25 DO MES^XPDUTL(" for assistance.")
+26 DO MES^XPDUTL(">>> DG*5.3*1093 Pre-install Routine Failed.")
+27 DO MES^XPDUTL(" - Installation Terminated.")
+28 DO MES^XPDUTL(" - Transport global removed from system.")
+29 ;variable that will abort the installation
SET XPDABORT=1
End DoDot:1
+30 QUIT
+31 ;
POST1 ; Remove x-ref on INDIAN SELF IDENTIFICATION (Field #.571) and INDIAN ATTESTATION DATE (Field #.573) of the PATIENT file #2
+1 ;
+2 NEW DGERR
+3 DO BMES^XPDUTL(" - Removing 'AENR571' cross-reference on the INDIAN SELF IDENTIFICATION")
+4 DO MES^XPDUTL(" field (#.571) of the PATIENT file (#2).")
+5 DO DELIX^DDMOD(2,.571,2,,,"DGERR")
+6 ; No error, xRef deleted
+7 IF '$DATA(DGERR)
DO BMES^XPDUTL(" - Cross reference removed.")
+8 ; Error encountered, xRef not deleted.
+9 IF $GET(DGERR)'=""
Begin DoDot:1
+10 DO BMES^XPDUTL(" ** ERROR encountered deleting the cross reference. **")
+11 DO MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
+12 DO MES^XPDUTL(" for assistance.")
End DoDot:1
+13 SET DGERR=""
+14 DO BMES^XPDUTL(" - Removing 'AENR573' cross-reference on the INDIAN ATTESTATION DATE")
+15 DO MES^XPDUTL(" field (#.573) of the PATIENT file (#2).")
+16 DO DELIX^DDMOD(2,.573,1,,,"DGERR")
+17 ; No error, xRef deleted
+18 IF $GET(DGERR)=""
DO BMES^XPDUTL(" - Cross reference removed.")
+19 ; Error encountered, xRef not deleted.
+20 IF $GET(DGERR)'=""
Begin DoDot:1
+21 DO BMES^XPDUTL(" ** ERROR encountered deleting the cross reference. **")
+22 DO MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
+23 DO MES^XPDUTL(" for assistance.")
End DoDot:1
+24 QUIT
+25 ;
POST2 ; Remove all Indian Attestation data from patient records
+1 DO BMES^XPDUTL(" - Queuing job to remove Indian Attestation data from all Patient records.")
+2 DO BMES^XPDUTL(" All records in the PATIENT file (#2) will be scanned. If the INDIAN SELF")
+3 DO MES^XPDUTL(" IDENTIFICATION field (#.571) is NOT null, the following fields will be")
+4 DO MES^XPDUTL(" set to null in the patient record:")
+5 DO MES^XPDUTL(" - INDIAN SELF IDENTIFICATION field (#.571)")
+6 DO MES^XPDUTL(" - INDIAN START DATE field (#.572)")
+7 DO MES^XPDUTL(" - INDIAN ATTESTATION DATE field (#.573)")
+8 DO MES^XPDUTL(" - INDIAN END DATE field (#.574)")
+9 DO MES^XPDUTL(" - INDIAN SELF IDENT CHANGE DT/TM field (#.575)")
+10 DO MES^XPDUTL(" - INDIAN SELF IDENT CHANGE USER field (#.576)")
+11 ;
+12 ;queue off job
+13 NEW ZTRTN,ZTDESC,ZTDTH,DGTEXT,ZTIO,ZTSK,DGTXT
+14 SET ZTRTN="QJOB^DG531093P"
+15 SET ZTDESC="DG*5.3*1093 Remove Indian Attestation data from all Patient records."
+16 SET ZTDTH=$$NOW^XLFDT
+17 SET ZTIO=""
+18 DO ^%ZTLOAD
+19 IF $GET(ZTSK)'=""
Begin DoDot:1
+20 SET DGTEXT(1)=""
+21 SET DGTEXT(2)="Indian Attestation data cleanup job queued."
+22 SET DGTEXT(3)="The task number is "_$GET(ZTSK)_"."
+23 SET DGTEXT(4)=""
+24 SET DGTEXT(5)="A Mailman Message containing job results will be sent to the installer."
End DoDot:1
+25 IF $GET(ZTSK)=""
Begin DoDot:1
+26 SET DGTEXT(1)=""
+27 SET DGTEXT(2)="*** Indian Attestation data cleanup job FAILED TO QUEUE. ***"
+28 SET DGTEXT(3)=""
+29 SET DGTEXT(4)=" - Submit a YOUR IT Services ticket with the Enterprise Service Desk"
+30 SET DGTEXT(5)=" for assistance."
End DoDot:1
+31 DO BMES^XPDUTL(.DGTEXT)
+32 QUIT
+33 ;
QJOB ; Job Entry point
+1 ; Information from the job will be placed in ^XTMP (60 day expiration) and sent in a Mailman message
+2 KILL ^XTMP("DG531093P")
+3 SET ^XTMP("DG531093P",0)=$$FMADD^XLFDT(DT,60)_U_DT_U_"PATCH DG*5.3*1093 Indian Attestation data cleanup job"
+4 ; Collect stats: start/end time and the number of records scanned and cleaned up
+5 NEW %,DFN,DGCNT,DGERR,DGDATA,DGDTS,DGDTE,DGY,Y,DGERRCNT
+6 DO NOW^%DTC
SET Y=%
DO DD^%DT
+7 SET DGDTS=Y
+8 FOR DGY=.571:.001:.576
SET DGDATA(DGY)="@"
+9 ;
+10 SET (DGCNT,DGERRCNT,DFN)=0
+11 ; loop patients
FOR
SET DFN=$ORDER(^DPT(DFN))
if 'DFN
QUIT
Begin DoDot:1
+12 ; Indian Attestation is null, get next
+13 IF $$GET1^DIQ(2,DFN,.571)=""
QUIT
+14 KILL DGERR
+15 ;set fields .571 through .576 to null
+16 IF $$UPD^DGENDBS(2,.DFN,.DGDATA,.DGERR)
Begin DoDot:2
+17 ; bump count of patients we are blanking
SET DGCNT=DGCNT+1
+18 ;update was successful
SET ^XTMP("DG531093P",$JOB,"IA",DGCNT)=DFN
End DoDot:2
+19 ; If error occurred, record it in ^XTMP
+20 IF $GET(DGERR)'=""
Begin DoDot:2
+21 ; bump count of errors
SET DGERRCNT=DGERRCNT+1
+22 ;set DFN and error into XTMP
SET ^XTMP("DG531093P",$JOB,"IA","ERRORS",DGERRCNT)=DFN_U_DGERR
End DoDot:2
End DoDot:1
+23 ;
+24 ; job completed, perhaps with an error, capture stats and send mailman message
+25 DO NOW^%DTC
SET Y=%
DO DD^%DT
+26 SET DGDTE=Y
+27 ;
+28 ; Place job data into ^XTMP Global
+29 ;job start date/time
SET ^XTMP("DG531093P",$JOB,"DGSTART")=$GET(DGDTS)
+30 ;job end date/time
SET ^XTMP("DG531093P",$JOB,"DGEND")=$GET(DGDTE)
+31 ; total records affected
SET ^XTMP("DG531093P",$JOB,"PATIENT RECORDS CLEARED")=DGCNT
+32 ; total error records
SET ^XTMP("DG531093P",$JOB,"ERROR TOTAL")=DGERRCNT
+33 ;
+34 DO MESSAGE
+35 QUIT
+36 ;
MESSAGE ; Send MailMan Message when process completes
+1 NEW XMSUB,XMDUZ,XMY,XMTEXT,DGMSG,DGLN
+2 SET XMY(DUZ)=""
SET XMTEXT="DGMSG("
+3 SET XMDUZ=.5
SET XMSUB="DG*5.3*1093 INDIAN ATTESTATION DATA CLEANUP JOB RESULTS"
+4 ;
+5
*** ERROR ***
SET DGMSG($I(DGLN))="The DG*5.3*1093 process has completed."
+6
*** ERROR ***
SET DGMSG($I(DGLN))=""
+7 IF DGERRCNT
Begin DoDot:1
+8
*** ERROR ***
SET DGMSG($I(DGLN))="!!!! WARNING !!!!"
+9
*** ERROR ***
SET DGMSG($I(DGLN))=" - Filing Errors encountered: "_DGERRCNT
+10
*** ERROR ***
SET DGMSG($I(DGLN))=" - Submit a YOUR IT Services ticket with the Enterprise Service Desk"
+11
*** ERROR ***
SET DGMSG($I(DGLN))=" for assistance with the errors. ***"
+12
*** ERROR ***
SET DGMSG($I(DGLN))=""
End DoDot:1
+13
*** ERROR ***
SET DGMSG($I(DGLN))="This process ran through the PATIENT file (#2)"
+14
*** ERROR ***
SET DGMSG($I(DGLN))="and for each patient record, if a value was defined in the"
+15
*** ERROR ***
SET DGMSG($I(DGLN))="INDIAN SELF IDENTIFICATION field (#.571), these fields were set to null:"
+16
*** ERROR ***
SET DGMSG($I(DGLN))=" - INDIAN SELF IDENTIFICATION field (#.571)"
+17
*** ERROR ***
SET DGMSG($I(DGLN))=" - INDIAN START DATE field (#.572)"
+18
*** ERROR ***
SET DGMSG($I(DGLN))=" - INDIAN ATTESTATION DATE field (#.573)"
+19
*** ERROR ***
SET DGMSG($I(DGLN))=" - INDIAN END DATE field (#.574)"
+20
*** ERROR ***
SET DGMSG($I(DGLN))=" - INDIAN SELF IDENT CHANGE DT/TM field (#.575)"
+21
*** ERROR ***
SET DGMSG($I(DGLN))=" - INDIAN SELF IDENT CHANGE USER field (#.576)"
+22
*** ERROR ***
SET DGMSG($I(DGLN))=""
+23
*** ERROR ***
SET DGMSG($I(DGLN))="The process statistics:"
+24
*** ERROR ***
SET DGMSG($I(DGLN))="Job Start Date/Time: "_$GET(DGDTS)
+25
*** ERROR ***
SET DGMSG($I(DGLN))=" Job End Date/Time: "_$GET(DGDTE)
+26
*** ERROR ***
SET DGMSG($I(DGLN))="Total records with INDIAN ATTESTATION data removed: "_DGCNT
+27
*** ERROR ***
SET DGMSG($I(DGLN))="Errors encountered: "_DGERRCNT
+28
*** ERROR ***
SET DGMSG($I(DGLN))=""
+29
*** ERROR ***
SET DGMSG($I(DGLN))="If a list of records that had Indian Attestation data removed"
+30
*** ERROR ***
SET DGMSG($I(DGLN))="is needed, you may view global ^XTMP(""DG531093P"","_$JOB_",""IA"""
+31
*** ERROR ***
SET DGMSG($I(DGLN))=""
+32
*** ERROR ***
SET DGMSG($I(DGLN))="NOTE: The global ^XTMP(""DG531093P"") will be purged after 60 days."
+33 ; Per the MailMan Developer Guide, the variable DIFROM should be NEW'd prior to making the call to ^XMD.
+34 NEW DIFROM
+35 DO ^XMD
+36 QUIT
