PSNEXMP1.m

PSNEXMP1 ;BIR/WRT-REPORT TO DISPLAY EXEMPTIONS FOR DDI INTERACTIONS CHECKING IN VA PRODUCT FILE ; 07/14/03 10:19

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

BRANCH ;

 I '$D(^PSNDF(50.68,D0,7)),$G(^PSNDF(50.68,D0,8)) S NODE=^PSNDF(50.68,D0,0) D WRIT

 I $D(^PSNDF(50.68,D0,7)) S ACT=$P(^PSNDF(50.68,D0,7),"^",3) I 'ACT!(ACT>DT) I $G(^PSNDF(50.68,D0,8)) D WRIT

 Q

WRIT W $P(^PSNDF(50.68,D0,0),"^")

 Q

GETDF ; S DF=$P(^PS(50.606,DFORM,0),"^")

 Q

PSNEXMP1  ;BIR/WRT-REPORT TO DISPLAY EXEMPTIONS FOR DDI INTERACTIONS CHECKING IN VA PRODUCT FILE ; 07/14/03 10:19

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

BRANCH    ;

 +1        IF '$DATA(^PSNDF(50.68,D0,7))

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

                   SET NODE=^PSNDF(50.68,D0,0)

                   DO WRIT

 +2        IF $DATA(^PSNDF(50.68,D0,7))

               SET ACT=$PIECE(^PSNDF(50.68,D0,7),"^",3)

               IF 'ACT!(ACT>DT)

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

                       DO WRIT

 +3        QUIT 

WRIT       WRITE $PIECE(^PSNDF(50.68,D0,0),"^")

 +1        QUIT 

GETDF     ; S DF=$P(^PS(50.606,DFORM,0),"^")

 +1        QUIT