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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNODDI1 645 printed Oct 16, 2024@18:25:08 Page 2
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
