source:
WorldVistAEHR/trunk/r/DRUG_ACCOUNTABILITY-PSA/PSAP47.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 422 bytes | |
| Line | |
|---|---|
| 1 | PSAP47 ;BHM/DB/PDW - CORRECT DATA IN XTMP("PSAPV" ;9/30/04 |
| 2 | ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**47**; 10/24/97 |
| 3 | Q:'$D(^XTMP("PSAPV")) |
| 4 | S X=0 F S X=$O(^XTMP("PSAPV",X)) Q:+X'>0 S Y=+X D |
| 5 | . F Q:'$D(^XTMP("PSAPNEW",Y)) S Y=Y+1 |
| 6 | . M ^XTMP("PSAPNEW",Y)=^XTMP("PSAPV",X) ;W !,X,?30," => ",Y |
| 7 | S ^XTMP("PSAPNEW",0)=^XTMP("PSAPV",0) |
| 8 | K ^XTMP("PSAPV") |
| 9 | M ^XTMP("PSAPV")=^XTMP("PSAPNEW") |
| 10 | K ^XTMP("PSAPNEW"),X,Y |
| 11 | Q |
Note:
See TracBrowser
for help on using the repository browser.
