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

PSNPO169.m

Go to the documentation of this file.
  1. PSNPO169 ;BIR/RTR-Post Init routine for patch PSN*4*169 ;10/04/08
  1. ;;4.0;NATIONAL DRUG FILE;**169**; 30 Oct 98;Build 8
  1. ;
  1. D BMES^XPDUTL("Importing OVERRIDE DF DOSE CHK EXCLUSION data...")
  1. D IMP
  1. D BMES^XPDUTL("Importing OVERRIDE DF DOSE CHK EXCLUSION data complete.")
  1. D BMES^XPDUTL("Generating Mail Message...")
  1. D MAIL
  1. D BMES^XPDUTL("Mail Message sent.")
  1. Q
  1. ;
  1. ;
  1. IMP ;Import OVVERRIDE DF DOSE CHK EXCLUSION data into VA PRODUCT File
  1. N PSNFDD,PSNFDX,PSNFDCNT
  1. S PSNFDCNT=0
  1. F PSNFDD=0:0 S PSNFDD=$O(@XPDGREF@("PSNVJDD",PSNFDD)) Q:'PSNFDD D
  1. .I $D(^PSNDF(50.68,PSNFDD,0)) S $P(^PSNDF(50.68,PSNFDD,9),"^")=@XPDGREF@("PSNVJDD",PSNFDD)
  1. .S PSNFDCNT=PSNFDCNT+1
  1. .I '(PSNFDCNT#5000) D BMES^XPDUTL("...still importing data...")
  1. Q
  1. ;
  1. ;
  1. MAIL ;Send Mail Message
  1. N PSNFDS,XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ
  1. K ^TMP($J,"PSNFDSXX")
  1. S ^TMP($J,"PSNFDSXX",1,0)="The Installation of patch PSN*4.0*169 is complete."
  1. S XMSUB="PSN*4*169 Installation Complete"
  1. S XMDUZ="PSN*4*169 Install"
  1. S XMTEXT="^TMP($J,""PSNFDSXX"","
  1. F PSNFDS=0:0 S PSNFDS=$O(@XPDGREF@("PSNVJARX",PSNFDS)) Q:'PSNFDS S XMY(PSNFDS)=""
  1. N DIFROM D ^XMD
  1. K ^TMP($J,"PSNFDSXX")
  1. Q