PSNPO169 ;BIR/RTR-Post Init routine for patch PSN*4*169 ;10/04/08
;;4.0;NATIONAL DRUG FILE;**169**; 30 Oct 98;Build 8
;
D BMES^XPDUTL("Importing OVERRIDE DF DOSE CHK EXCLUSION data...")
D IMP
D BMES^XPDUTL("Importing OVERRIDE DF DOSE CHK EXCLUSION data complete.")
D BMES^XPDUTL("Generating Mail Message...")
D MAIL
D BMES^XPDUTL("Mail Message sent.")
Q
;
;
IMP ;Import OVVERRIDE DF DOSE CHK EXCLUSION data into VA PRODUCT File
N PSNFDD,PSNFDX,PSNFDCNT
S PSNFDCNT=0
F PSNFDD=0:0 S PSNFDD=$O(@XPDGREF@("PSNVJDD",PSNFDD)) Q:'PSNFDD D
.I $D(^PSNDF(50.68,PSNFDD,0)) S $P(^PSNDF(50.68,PSNFDD,9),"^")=@XPDGREF@("PSNVJDD",PSNFDD)
.S PSNFDCNT=PSNFDCNT+1
.I '(PSNFDCNT#5000) D BMES^XPDUTL("...still importing data...")
Q
;
;
MAIL ;Send Mail Message
N PSNFDS,XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ
K ^TMP($J,"PSNFDSXX")
S ^TMP($J,"PSNFDSXX",1,0)="The Installation of patch PSN*4.0*169 is complete."
S XMSUB="PSN*4*169 Installation Complete"
S XMDUZ="PSN*4*169 Install"
S XMTEXT="^TMP($J,""PSNFDSXX"","
F PSNFDS=0:0 S PSNFDS=$O(@XPDGREF@("PSNVJARX",PSNFDS)) Q:'PSNFDS S XMY(PSNFDS)=""
N DIFROM D ^XMD
K ^TMP($J,"PSNFDSXX")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNPO169 1194 printed Sep 23, 2025@20:00:35 Page 2
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
+2 ;
+3 DO BMES^XPDUTL("Importing OVERRIDE DF DOSE CHK EXCLUSION data...")
+4 DO IMP
+5 DO BMES^XPDUTL("Importing OVERRIDE DF DOSE CHK EXCLUSION data complete.")
+6 DO BMES^XPDUTL("Generating Mail Message...")
+7 DO MAIL
+8 DO BMES^XPDUTL("Mail Message sent.")
+9 QUIT
+10 ;
+11 ;
IMP ;Import OVVERRIDE DF DOSE CHK EXCLUSION data into VA PRODUCT File
+1 NEW PSNFDD,PSNFDX,PSNFDCNT
+2 SET PSNFDCNT=0
+3 FOR PSNFDD=0:0
SET PSNFDD=$ORDER(@XPDGREF@("PSNVJDD",PSNFDD))
if 'PSNFDD
QUIT
Begin DoDot:1
+4 IF $DATA(^PSNDF(50.68,PSNFDD,0))
SET $PIECE(^PSNDF(50.68,PSNFDD,9),"^")=@XPDGREF@("PSNVJDD",PSNFDD)
+5 SET PSNFDCNT=PSNFDCNT+1
+6 IF '(PSNFDCNT#5000)
DO BMES^XPDUTL("...still importing data...")
End DoDot:1
+7 QUIT
+8 ;
+9 ;
MAIL ;Send Mail Message
+1 NEW PSNFDS,XMTEXT,XMY,XMSUB,XMDUZ,XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ
+2 KILL ^TMP($JOB,"PSNFDSXX")
+3 SET ^TMP($JOB,"PSNFDSXX",1,0)="The Installation of patch PSN*4.0*169 is complete."
+4 SET XMSUB="PSN*4*169 Installation Complete"
+5 SET XMDUZ="PSN*4*169 Install"
+6 SET XMTEXT="^TMP($J,""PSNFDSXX"","
+7 FOR PSNFDS=0:0
SET PSNFDS=$ORDER(@XPDGREF@("PSNVJARX",PSNFDS))
if 'PSNFDS
QUIT
SET XMY(PSNFDS)=""
+8 NEW DIFROM
DO ^XMD
+9 KILL ^TMP($JOB,"PSNFDSXX")
+10 QUIT
