|
Last change
on this file since 1036 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
634 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PSN168P ;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.
