source: WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSNEXMP1.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 443 bytes
RevLine 
[613]1PSNEXMP1 ;BIR/WRT-REPORT TO DISPLAY EXEMPTIONS FOR DDI INTERACTIONS CHECKING IN VA PRODUCT FILE ; 07/14/03 10:19
2 ;;4.0; NATIONAL DRUG FILE;**70**; 30 Oct 98
3BRANCH ;
4 I '$D(^PSNDF(50.68,D0,7)),$G(^PSNDF(50.68,D0,8)) S NODE=^PSNDF(50.68,D0,0) D WRIT
5 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
6 Q
7WRIT W $P(^PSNDF(50.68,D0,0),"^")
8 Q
9GETDF ; S DF=$P(^PS(50.606,DFORM,0),"^")
10 Q
Note: See TracBrowser for help on using the repository browser.