source: WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSNVER.m@ 701

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1PSNVER ;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
4DONE 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
5EXPLN 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
6START 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.",!
12VERIFY D CHK^PSNVFY
13 Q
14KILL D KILL^PSNVFY K PSNDRG
15 Q
Note: See TracBrowser for help on using the repository browser.