Last change
on this file since 1765 was 628, checked in by George Lilly, 15 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.