Changeset 526
- Timestamp:
- May 30, 2009, 6:30:44 PM (16 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CCCR.m
r525 r526 134 134 . I DEBUG W "TRIMMED",J,! 135 135 . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE 136 M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL137 I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT", CCRGRTN(0))=""136 S CCRGRTN=$NA(^TMP("C0CCCR",$J,DFN,CCRPART)) ; RTN GLOBAL OF PART OR ALL 137 I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",@CCRGRTN@(0))="" 138 138 Q 139 139 ;
Note:
See TracChangeset
for help on using the changeset viewer.