|
Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
634 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | 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
|
|---|
| 2 | ;;4.0; NATIONAL DRUG FILE;**70**; 30 Oct 98
|
|---|
| 3 | ;Reference to ^PSDRUG supported by DBIA #2192
|
|---|
| 4 | ;
|
|---|
| 5 | INFO ;
|
|---|
| 6 | 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
|
|---|
| 7 | Q
|
|---|
| 8 | INFO1 S CLPTR=$P($G(^PSNDF(50.68,VAPN,3)),"^"),CLCODE=$P(^PS(50.605,CLPTR,0),"^") D FORMAT
|
|---|
| 9 | Q
|
|---|
| 10 | FORMAT W !,PSNDRG,?50,CLCODE,?66,FORM,!,PROD
|
|---|
| 11 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
