8 lines
318 B
Mathematica
8 lines
318 B
Mathematica
PSSPRETR ;BIR/WRT-Pre-transport routine ; 09/02/97 8:48
|
|
;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97
|
|
; PRE-TRANSPORT ROUTINE
|
|
N ROOT,DA,I,X,LINE,TOT
|
|
BUILDIT S ROOT=$NA(@XPDGREF@("DATA")),DA=0,I=1,LINE="",TOT=0
|
|
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
|
|
Q
|