| 1 | PSNVER ;BIR/WRT-Allows user to verify one or several drug matches ; 10/18/98 13:03
|
|---|
| 2 | ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98
|
|---|
| 3 | S PSNFL=0 D EXPLN F PSNMM=1:1 D START S:'$D(PSNFL) PSNFL=0 Q:PSNFL
|
|---|
| 4 | DONE W !!,"Remember, these matches, after verified, must then be merged using the",!,"option ""Merge National Drug File Data Into Local File"".",! K PSNMM,PSNFL,X,Y,PSNB,PSNDEA,PSNINACT D KILL Q
|
|---|
| 5 | EXPLN W !!,"Enter name of drug from your local drug file and if the",!,"drug has been matched, you will be asked to verify the match.",!,"Press return at the ""Select DRUG GENERIC NAME: "" prompt to exit.",! Q
|
|---|
| 6 | START D KILL S DIC="^PSDRUG(",DIC(0)="QEA" D ^DIC K DIC I Y<0 S PSNFL=1 Q
|
|---|
| 7 | S (PSNB,PSNDRG)=+Y,PSNLOC=$P(Y,"^",2)
|
|---|
| 8 | I '$D(^PSNTRAN(+Y,0)) W !,"This entry has not been matched to verify.",! Q
|
|---|
| 9 | I $D(^PSNTRAN(+Y,0)),$P(^PSNTRAN(+Y,0),"^",2)']"" W !,"This entry has not been matched to verify.",! Q
|
|---|
| 10 | I $D(^PSNTRAN(+Y,0)),$P(^PSNTRAN(+Y,0),"^",9)="Y" W !,"This entry has already been verified.",! Q
|
|---|
| 11 | I $D(^PSDRUG(PSNB,"I")),$P(^PSDRUG(PSNB,"I"),"^")<DT W !!,"This drug is ""Inactive"". Please try again.",!
|
|---|
| 12 | VERIFY D CHK^PSNVFY
|
|---|
| 13 | Q
|
|---|
| 14 | KILL D KILL^PSNVFY K PSNDRG
|
|---|
| 15 | Q
|
|---|
