|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
318 bytes
|
| Line | |
|---|
| 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.
