Index: ccr/branches/ohum/p/C0CPXRM.m
===================================================================
--- ccr/branches/ohum/p/C0CPXRM.m	(revision 1329)
+++ ccr/branches/ohum/p/C0CPXRM.m	(revision 1330)
@@ -1,74 +1,73 @@
-C0CPXRM ; 
-;;;
-DOIT ;
- S G="PXRMXSEPCLINIC3110302.224804" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.223957" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.223738" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.223516" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.222158" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.213944" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.212219" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.211506" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.002714" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.001841" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110302.000846" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110115.141918" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110115.132312" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110115.131653" ZWR ^XTMP(G,*)
- S G="PXRMXSEPCLINIC3110115.131008" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT988 3110224.210456" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT986 3110224.210456" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT932 3110224.210456" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT932 3110224.210455" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT8015 3110301.215142" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT8015 3110301.215141" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT5265 3110309.124047" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT5265 3110309.124046" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT4742 3101129.221201" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT4742 3101129.215741" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT4710 3101129.215701" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT3297 3101127.123134" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT32495 3110224.194246" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT32493 3110224.194246" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT32354 3110224.194246" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT32354 3110224.194245" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT31106 3110224.175105" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT31090 3110224.175105" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT30339 3110224.175105" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT30339 3110224.175103" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT2761 3110115.174109" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT2761 3110115.174108" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT27327 3110227.013658" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT27327 3110227.013657" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT27327 3110227.013523" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT27327 3110227.013522" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT27253 3110227.012747" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT27253 3110227.012746" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT2559 3110115.170835" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT25549 3110228.231135" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT25549 3110228.231134" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT2205 3101129.215343" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT21092 3110114.195621" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT21092 3110114.193803" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT19640 3110226.032943" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT19640 3110226.032941" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT19353 3101212.162833" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT18780 3110221.215603" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT18156 3101212.152654" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT17800 3110315.202432" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT1650 3110220.192925" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT16110 3110313.224636" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT16004 3110317.151215" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT16004 3110317.150834" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT14955 3110315.165018" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT14816 3110315.164839" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT14816 3110315.164512" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT12415 3110315.135514" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT11797 3110315.131141" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT11573 3110315.131811" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT10728 3110114.025022" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT10578 3110114.021524" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT10243 3110114.020338" ZWR ^XTMP(G,*)
- S G="PXRM PXK EVENT10105 3101204.230554" ZWR ^XTMP(G,*)
- Q
- ;
+C0CPXRM	; 
+DOIT	;
+	S G="PXRMXSEPCLINIC3110302.224804" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.223957" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.223738" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.223516" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.222158" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.213944" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.212219" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.211506" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.002714" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.001841" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110302.000846" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110115.141918" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110115.132312" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110115.131653" ZWR ^XTMP(G,*)
+	S G="PXRMXSEPCLINIC3110115.131008" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT988 3110224.210456" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT986 3110224.210456" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT932 3110224.210456" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT932 3110224.210455" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT8015 3110301.215142" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT8015 3110301.215141" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT5265 3110309.124047" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT5265 3110309.124046" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT4742 3101129.221201" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT4742 3101129.215741" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT4710 3101129.215701" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT3297 3101127.123134" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT32495 3110224.194246" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT32493 3110224.194246" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT32354 3110224.194246" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT32354 3110224.194245" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT31106 3110224.175105" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT31090 3110224.175105" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT30339 3110224.175105" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT30339 3110224.175103" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT2761 3110115.174109" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT2761 3110115.174108" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT27327 3110227.013658" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT27327 3110227.013657" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT27327 3110227.013523" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT27327 3110227.013522" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT27253 3110227.012747" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT27253 3110227.012746" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT2559 3110115.170835" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT25549 3110228.231135" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT25549 3110228.231134" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT2205 3101129.215343" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT21092 3110114.195621" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT21092 3110114.193803" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT19640 3110226.032943" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT19640 3110226.032941" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT19353 3101212.162833" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT18780 3110221.215603" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT18156 3101212.152654" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT17800 3110315.202432" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT1650 3110220.192925" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT16110 3110313.224636" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT16004 3110317.151215" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT16004 3110317.150834" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT14955 3110315.165018" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT14816 3110315.164839" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT14816 3110315.164512" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT12415 3110315.135514" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT11797 3110315.131141" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT11573 3110315.131811" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT10728 3110114.025022" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT10578 3110114.021524" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT10243 3110114.020338" ZWR ^XTMP(G,*)
+	S G="PXRM PXK EVENT10105 3101204.230554" ZWR ^XTMP(G,*)
+	Q
+	;
