- 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 Feb 18, 2025@23:50:51 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