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