Index: ccr/trunk/p/C0CRNF.m
===================================================================
--- ccr/trunk/p/C0CRNF.m	(revision 343)
+++ ccr/trunk/p/C0CRNF.m	(revision 344)
@@ -33,5 +33,5 @@
  . F  S C0CFI=$O(^DD(C0CFJ,C0CFI)) Q:+C0CFI=0  D  ; EVERY FIELD
  . . ;W "2: "_C0CFJ," ",C0CFI,!
- . . S C0CFN=$P(^DD(C0CFJ,C0CFI,0),"^",1) ;PULL FIELD NAME FROM ^DD
+ . . S C0CFN=$P($G(^DD(C0CFJ,C0CFI,0)),"^",1) ;PULL FIELD NAME FROM ^DD
  . . ;W "N: ",C0CFN,!
  . . ;I C0CFN="STR" W C0CFN," ",C0CFJ,!