source: WorldVistAEHR/trunk/r/DRUG_ACCOUNTABILITY-PSA/PSAP47.m@ 724

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

initial load of WorldVistAEHR

File size: 422 bytes
Line 
1PSAP47 ;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.