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