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

DG53P733.m

Go to the documentation of this file.
  1. DG53P733 ;ALB/AMA,GTS - PATCH DG*5.3*733 POST-INSTALL ROUTINE
  1. ;;5.3;Registration;**733**;Aug 13, 1993;Build 15
  1. ;
  1. EN ;
  1. N ZTDTH,ZTIO,ZTDESC,ZTRTN,ZTSAVE,ZTSK
  1. S ZTDTH=$H
  1. S ZTIO=""
  1. S ZTDESC="DG*5.3*733 Post-Install message"
  1. S ZTRTN="CLEANUP^DG53P733"
  1. S ZTSAVE("DUZ")=""
  1. S ZTSAVE("JVAL")=$J
  1. D ^%ZTLOAD
  1. I $G(ZTSK) DO
  1. . D BMES^XPDUTL("POST-INSTALL CLEANUP MESSAGE QUEUED TO SEND")
  1. . D BMES^XPDUTL("Means Test database cleanup has been completed. Check your VA Mailman")
  1. . D MES^XPDUTL("mailbox for the ""DG*5.3*733 External value cleanup"" message.")
  1. . D BMES^XPDUTL("Only if you do not receive the e-mail, check the following global:")
  1. . D MES^XPDUTL(" ^XTMP(""DG"","_$J_",""PATCH 733 CLEANUP BULLETIN"")")
  1. I '$G(ZTSK) D BMES^XPDUTL("PROBLEM: POST-INSTALL CLEANUP MESSAGE NOT SENT")
  1. Q
  1. CLEANUP ;
  1. N JVAL,DGMMLNE,DFN,FIRST,RECCNT
  1. S JVAL=$J
  1. ;*Create bulletin head to identify cleanup records
  1. K ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN")
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",1)="This message indicates the patients in the PATIENT file (2)"
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",2)="that have had the COMBAT INDICATED ON 1010EZ field (1010.157)"
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",3)="populated to the correct YES, NO or NULL value."
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",4)=" "
  1. ;
  1. S DGMMLNE=4
  1. ;
  1. ;*Set up message text
  1. S DGMMLNE=DGMMLNE+1
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",DGMMLNE)="Checking COMBAT INDICATED ON 1010EZ field (1010.157) in PATIENT file (2)..."
  1. S DGMMLNE=DGMMLNE+1
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",DGMMLNE)=" "
  1. ;
  1. ;Execute COMBAT INDICATED ON 1010EZ field conversion
  1. S FIRST=1,RECCNT=0
  1. S DFN=0 F S DFN=$O(^DPT(DFN)) Q:'DFN D
  1. . Q:'$D(^DPT(DFN,.52))
  1. . N NODE52,NODE1010 S NODE52=$G(^DPT(DFN,.52)),NODE1010=$G(^DPT(DFN,1010.15))
  1. . I ($P(NODE52,U,11)=""),($P(NODE1010,U,7)'="") D Q
  1. . . S $P(^DPT(DFN,1010.15),U,7)=""
  1. . . D ADDLINE("NULL")
  1. . I ($P(NODE52,U,11)="N"),($P(NODE1010,U,7)'=0) D Q
  1. . . S $P(^DPT(DFN,1010.15),U,7)=0
  1. . . D ADDLINE("NO")
  1. . I ($P(NODE52,U,11)="Y"),($P(NODE52,U,14)'>2981111),($P(NODE1010,U,7)'=0) D Q
  1. . . S $P(^DPT(DFN,1010.15),U,7)=0
  1. . . D ADDLINE("NO")
  1. . I ($P(NODE52,U,11)="Y"),($P(NODE52,U,14)>2981111),($P(NODE1010,U,7)'=1) D Q
  1. . . S $P(^DPT(DFN,1010.15),U,7)=1
  1. . . D ADDLINE("YES")
  1. ;
  1. S DGMMLNE=DGMMLNE+1
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",DGMMLNE)=" "
  1. S DGMMLNE=DGMMLNE+1
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",DGMMLNE)="There were "_RECCNT_" records corrected."
  1. S DGMMLNE=DGMMLNE+1
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",DGMMLNE)=" "
  1. ;
  1. ;* Queue message to be sent
  1. D SENDMESS
  1. Q
  1. ADDLINE(MSG) ;
  1. I FIRST D FIRST S FIRST=0
  1. S DGMMLNE=DGMMLNE+1,RECCNT=RECCNT+1
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",DGMMLNE)=" IEN: "_DFN_" COMBAT INDICATED ON 1010EZ changed to: "_MSG
  1. Q
  1. FIRST ;
  1. S DGMMLNE=DGMMLNE+1
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",DGMMLNE)="The COMBAT INDICATED ON 1010EZ field (#1010.157) for the following Patient"
  1. S DGMMLNE=DGMMLNE+1
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",DGMMLNE)="file (#2) IENs were modified:"
  1. S DGMMLNE=DGMMLNE+1
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",DGMMLNE)=" "
  1. Q
  1. SENDMESS ;
  1. N XMSUB,XMDUZ,XMTEXT,XMY,XMMG
  1. S XMSUB="DG*5.3*733 COMBAT INDICATED ON 1010EZ cleanup"
  1. S XMDUZ="DG*5.3*733 Install Cleanup"
  1. S XMTEXT="^XTMP(""DG"",JVAL,""PATCH 733 CLEANUP BULLETIN"","
  1. S XMY(DUZ)=""
  1. S XMY(.5)=""
  1. D ^XMD
  1. S DGMMLNE=$P($$FMADD^XLFDT($$NOW^XLFDT,,,5),".")
  1. S ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN",0)=DGMMLNE
  1. I '$D(XMMG) K ^XTMP("DG",JVAL,"PATCH 733 CLEANUP BULLETIN")
  1. Q