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

DG53672D.m

Go to the documentation of this file.
  1. DG53672D ;ALB/ERC - PATCH INSTALL UTILITIES FOR DG 672 ; 9/21/05 4:32pm
  1. ;;5.3;Registration;**672**; Aug 13, 1993
  1. ;convert values from Patient file, field .362 (Disability Retirement
  1. ;from the Military) and 1010.158 (Disability Discharge on 1010EZ)
  1. ;to two new fields, Military Disability Retirement (.3602) and
  1. ;Discharge Due to Disability? (.3603)
  1. ;
  1. ;for field .362 values converted to .3602
  1. ; 0 (NO) not converted
  1. ; 1 (YES, RECEIVING MILITARY RETIREMENT) converted to 1(yes)
  1. ; 2 (YES, RECEIVING MILITARY RETIREMENT IN LIEU OF VA COMPENSATION)
  1. ; converted to 1(yes)
  1. ; 3 (UNKNOWN) not converted
  1. ;for field 1010.158 to .3603
  1. ; 0 (NO) to 0
  1. ; 1 (YES) to 1
  1. ;
  1. ;this routine is called from DG53672C
  1. ;
  1. EN(DFN) ;entry from DG53672C
  1. N DGD,DGFDA,DGDIS,DGERR,DGLOD,DGRAND
  1. D GETS^DIQ(2,DFN_",",".362;1010.158","I","DGD","DGERR")
  1. S DGDIS=$G(DGD(2,DFN_",",.362,"I"))
  1. S DGLOD=$G(DGD(2,DFN_",",1010.158,"I"))
  1. I $G(DGLOD)]"" D
  1. . D LOD
  1. . S ^XTMP("DG53672C","DG53672D",1010.158,"CNT")=$G(^XTMP("DG53672C","DG53672D",1010.158,"CNT"))+1
  1. I $G(DGDIS)=1!($G(DGDIS)=2) D
  1. . D DIS
  1. . S ^XTMP("DG53672C","DG53672D",.362,"CNT")=$G(^XTMP("DG53672C","DG53672D",.362,"CNT"))+1
  1. FILE ;
  1. D FILE^DIE("K","DGFDA","DGERR")
  1. I $G(DGERR)']"" D
  1. .I $G(DGDIS)]"" D
  1. . . S ^XTMP("DG53672C","DG53672D","DATA",.362,DGDIS)=$G(^XTMP("DG53672C","DG53672D","DATA",".362",DGDIS))+1
  1. . I $G(DGLOD)]"" D
  1. . . S ^XTMP("DG53672C","DG53672D","DATA",1010.158,DGLOD)=$G(^XTMP("DG53672C","DG53672D","DATA","1010.158",DGLOD))+1
  1. Q
  1. ;
  1. DIS ;convert Disability Retirement to new fields
  1. S DGFDA(2,DFN_",",.3602)=1
  1. I $G(DGFDA(2,DFN_",",.3603))']"" S DGFDA(2,DFN_",",.3603)=1
  1. Q
  1. ;
  1. LOD ;Discharge Due to Disability is populated
  1. S DGFDA(2,DFN_",",.3603)=DGLOD
  1. Q
  1. ;
  1. SNDMSG ; Send Mailman bulletin when process completes
  1. N SITE,STATN,SITENM,XMDUZ,XMSUB,XMY,XMTEXT,MSG
  1. S SITE=$$SITE^VASITE,STATN=$P($G(SITE),U,3),SITENM=$P($G(SITE),U,2)
  1. S:$$GET1^DIQ(869.3,"1,",.03,"I")'="P" STATN=STATN_" [TEST]"
  1. S XMDUZ="DISABILITY RETIREMENT DATA CONVERSION",XMSUB=XMDUZ_" - "_STATN
  1. S SITE=$$SITE^VASITE,STATN=$P($G(SITE),U,3),SITENM=$P($G(SITE),U,2)
  1. S:$$GET1^DIQ(869.3,"1,",.03,"I")'="P" STATN=STATN_" [TEST]"
  1. S XMDUZ="DISABILITY RETIREMENT DATA CONVERSION",XMSUB=XMDUZ_" - "_STATN
  1. S XMY(DUZ)=""
  1. S XMY("CURTIN,EDNA@MNTVMM.FO-ALBANY")=""
  1. S XMTEXT="MSG("
  1. S MSG(1)="The Disability Retirement Data Conversion has completed successfully."
  1. S MSG(2)="Fields .362 (DISABILITY RET. FROM MILITARY?) and 1010.158 (DISABILITY"
  1. S MSG(3)="DISCHARGE ON 1010EZ), both in the Patient file, have been converted"
  1. S MSG(4)="to fields .3602 (MILITARY DISABILITY RETIREMENT) and .3603 (DISCHARGE DUE"
  1. S MSG(5)="TO DISABILITY), according to the following algorithm:"
  1. S MSG(6)=" value of 'Yes' in 1010.158 is now 'Yes' in field .3603"
  1. S MSG(7)=" value of 'No' in 1010.158 is now 'No' in field .3603"
  1. S MSG(8)=""
  1. S MSG(9)=" value of 1 or 2 in .362 is now 'Yes' in .3602 and .3603"
  1. S MSG(10)=" value of 0 or 3 in .362 was not converted"
  1. S MSG(12)=""
  1. S MSG(13)="Task: "_$G(^XTMP("DG53672C",0,"TASK"))
  1. S MSG(14)="Site Station Number: "_STATN
  1. S MSG(15)="Site Name: "_SITENM
  1. S MSG(16)=""
  1. S MSG(17)="Process started : "_$$FMTE^XLFDT($P($G(^XTMP("DG53672C",0)),U,2))
  1. S MSG(18)="Process completed : "_$$FMTE^XLFDT($P($G(^XTMP("DG53672C",0)),"^",4))
  1. S MSG(19)=""
  1. S MSG(20)="Total Patients processed : "_+$G(^XTMP("DG53672C","TCNT"))
  1. S MSG(21)="Total with 'Yes' in 1010.158: "_+$G(^XTMP("DG53672C","DG53672D","DATA","1010.158",1))
  1. S MSG(22)="Total with 'No' in 1010.158: "_+$G(^XTMP("DG53672C","DG53672D","DATA","1010.158",0))
  1. S MSG(23)="Total with 1 in .362: "_+$G(^XTMP("DG53672C","DG53672D","DATA",".362",1))
  1. S MSG(24)="Total with 2 in .362: "_+$G(^XTMP("DG53672C","DG53672D","DATA",".362",2))
  1. D ^XMD
  1. Q