Changeset 396 for ccr/trunk/p/C0CRPMS.m

Timestamp:

Mar 15, 2009, 8:14:48 PM (15 years ago)

Author:

Sam Habiel

Message:

Changed CCRUTIL to C0CUTIL

File:

• ccr/trunk/p/C0CRPMS.m (modified) (3 diffs)

ccr/trunk/p/C0CRPMS.m

@@ -37 +37 @@
  F  S G=$O(^AUPNVSIT("AA",C0CDFN,G)) Q:(G="")!(GN>C0CCNT)  D  ;
  . S GN=GN+1
- . W $$FMDTOUTC^CCRUTIL(9999999-G),! 
+ . W $$FMDTOUTC^C0CUTIL(9999999-G),! 
  Q
  ;
@@ -48 +48 @@
  F  S C0CG=$$NEXTV(C0CDFN,C0CG) Q:(C0CG="")!(GN'<C0CCNT)  D  ;
  . S GN=GN+1
- . W $$FMDTOUTC^CCRUTIL(C0CG),!
+ . W $$FMDTOUTC^C0CUTIL(C0CG),!
  Q
  ;
@@ -77 +77 @@
  N C0CG S C0CG=""
  F  S C0CG=$$NEXTV(C0CDFN,C0CG) Q:C0CG=""  D  ; LOOP BACKWARD THROUGH VISITS
- . W C0CG,"    ",$$FMDTOUTC^CCRUTIL(C0CG),!
+ . W C0CG,"    ",$$FMDTOUTC^C0CUTIL(C0CG),!
  . S APCDVLDT=C0CG
  . D ^APCDVLK