Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
318 bytes
|
Rev | Line | |
---|
[613] | 1 | PSSPRETR ;BIR/WRT-Pre-transport routine ; 09/02/97 8:48
|
---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97
|
---|
| 3 | ; PRE-TRANSPORT ROUTINE
|
---|
| 4 | N ROOT,DA,I,X,LINE,TOT
|
---|
| 5 | BUILDIT S ROOT=$NA(@XPDGREF@("DATA")),DA=0,I=1,LINE="",TOT=0
|
---|
| 6 | F S DA=$O(^PS(51.2,DA)) Q:'DA S X=^(DA,0) I $P(X,"^",2)]"" S @ROOT@(I)=$P(X,"^",1)_"^"_$P(X,"^",2),I=I+1
|
---|
| 7 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.