PSNPO169.m

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 ---PSNPO169   1194     printed  Apr 09, 2024@21:20:57                                                                                                                                                                                                    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