PSNODDI1.m

PSNODDI1 ;BIR/WRT-REPORT TO DISPLAY DRUG FILE 50 MATCHES TO NDF THAT ARE MARKED AS EXEMPTIONS FOR DDI INTERACTIONS CHECKING IN VA PRODUCT FILE ; 07/02/03 14:37

 ;;4.0; NATIONAL DRUG FILE;**70**; 30 Oct 98

 ;Reference to ^PSDRUG supported by DBIA #2192

 ;

INFO ;

 S PSNDRG=$P(^PSDRUG(D0,0),"^"),NDF=$G(^PSDRUG(D0,"ND")) I NDF S VAPN=$P($G(NDF),"^",3),PROD=$P(^PSNDF(50.68,VAPN,0),"^") I $G(^PSNDF(50.68,VAPN,8)) S DFRM=$P(^PSNDF(50.68,VAPN,0),"^",3),FORM=$P(^PS(50.606,DFRM,0),"^") D INFO1

 Q

INFO1 S CLPTR=$P($G(^PSNDF(50.68,VAPN,3)),"^"),CLCODE=$P(^PS(50.605,CLPTR,0),"^") D FORMAT

 Q

FORMAT W !,PSNDRG,?50,CLCODE,?66,FORM,!,PROD

 Q

PSNODDI1  ;BIR/WRT-REPORT TO DISPLAY DRUG FILE 50 MATCHES TO NDF THAT ARE MARKED AS EXEMPTIONS FOR DDI INTERACTIONS CHECKING IN VA PRODUCT FILE ; 07/02/03 14:37

 +1       ;;4.0; NATIONAL DRUG FILE;**70**; 30 Oct 98

 +2       ;Reference to ^PSDRUG supported by DBIA #2192

 +3       ;

INFO      ;

 +1        SET PSNDRG=$PIECE(^PSDRUG(D0,0),"^")

           SET NDF=$GET(^PSDRUG(D0,"ND"))

           IF NDF

               SET VAPN=$PIECE($GET(NDF),"^",3)

               SET PROD=$PIECE(^PSNDF(50.68,VAPN,0),"^")

               IF $GET(^PSNDF(50.68,VAPN,8))

                   SET DFRM=$PIECE(^PSNDF(50.68,VAPN,0),"^",3)

                   SET FORM=$PIECE(^PS(50.606,DFRM,0),"^")

                   DO INFO1

 +2        QUIT 

INFO1      SET CLPTR=$PIECE($GET(^PSNDF(50.68,VAPN,3)),"^")

           SET CLCODE=$PIECE(^PS(50.605,CLPTR,0),"^")

           DO FORMAT

 +1        QUIT 

FORMAT     WRITE !,PSNDRG,?50,CLCODE,?66,FORM,!,PROD

 +1        QUIT