source: WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSNCLS.m@ 1464

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

initial load of WorldVistAEHR

File size: 869 bytes
Line 
1PSNCLS ;BIR/WRT-VA Drug Class Report ;01/12/98 5:18 PM
2 ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98
3 W !!,"This report will display the VA Drug Classification code and class name.",!
4 R "Would you also like to see the class descriptions? N// ",ANS:DTIME S:'$T ANS="^" G:ANS["^" DONE S:ANS']"" ANS="N" I $D(ANS),ANS["?" D CLS^PSNHELP1 K ANS G PSNCLS
5 I ANS?.E1C.E K ANS G PSNCLS
6 I ANS["^" G DONE
7SORT S DIC="^PS(50.605,",L=0,BY="@CODE,@TYPE",FR="?,",TO="?,",DHD="VA DRUG CLASSIFICATION CODES",FLDS="[PSNPRINT]" D EN1^DIP
8DONE K ANS,NOD Q
9PRINT W !,$S($P(^PS(50.605,D0,0),"^",4)=0:$P(^(0),"^"),$P(^PS(50.605,D0,0),"^",4)=1:" "_$P(^(0),"^"),$P(^PS(50.605,D0,0),"^",4)=2:" "_$P(^(0),"^"),1:$P(^PS(50.605,D0,0),"^")),?14,$P(^(0),"^",2)
10 I $D(ANS),"Yy"[$E(ANS),$D(^PS(50.605,D0,1,0)) F NOD=0:0 S NOD=$O(^PS(50.605,D0,1,NOD)) Q:'NOD W !,$P(^PS(50.605,D0,1,NOD,0),"^",1)
11 Q
Note: See TracBrowser for help on using the repository browser.