source:
WorldVistAEHR/tag/Release_6_08/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSPRETR.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
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.