source: FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSPRETR.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 318 bytes
Line 
1PSSPRETR ;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
5BUILDIT 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.