| [613] | 1 | PSNCLS ;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
|
|---|
| 7 | SORT S DIC="^PS(50.605,",L=0,BY="@CODE,@TYPE",FR="?,",TO="?,",DHD="VA DRUG CLASSIFICATION CODES",FLDS="[PSNPRINT]" D EN1^DIP
|
|---|
| 8 | DONE K ANS,NOD Q
|
|---|
| 9 | PRINT 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
|
|---|
