source: WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSN168P.m@ 789

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

initial load of WorldVistAEHR

File size: 634 bytes
Line 
1PSN168P ;BIR/DMA-REMOVE AMASTERVUID CROSS REFERENCES ; 29 Feb 2008 1:10 PM
2 ;;4.0; NATIONAL DRUG FILE;**168**; 30 Oct 98;Build 8
3 ;
4 N FILE,SPEC,X,Y
5 S SPEC("{pending directive #}")="2005-044"
6 F FILE=50.416,50.6,50.605,50.68 S X="^DIC("_FILE_",""%D"")" F S X=$Q(@X) Q:X'["%D" S Y=@X I Y["{" S Y=$$REPLACE^XLFSTR(Y,.SPEC),@X=Y
7 F FILE=50.416,50.605,50.6,50.68 D DELIX^DDMOD(FILE,99.98,1)
8 F FILE=50.416,50.605 S X="^PS("_FILE_","_"""AMASTERVUID"")" F S X=$Q(@X) Q:X'["AMASTERVUID" I $QL(X)'=5 K @X
9 F FILE=50.6,50.68 S X="^PSNDF("_FILE_","_"""AMASTERVUID"")" F S X=$Q(@X) Q:X'["AMASTERVUID" I $QL(X)'=5 K @X
10 K FILE,SPEC,X,Y Q
Note: See TracBrowser for help on using the repository browser.