Changeset 344 for ccr


Ignore:
Timestamp:
Jan 25, 2009, 3:53:20 PM (16 years ago)
Author:
George Lilly
Message:

fixed bug in FIELDS, added $G for DD fields without .01

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CRNF.m

    r343 r344  
    3333 . F  S C0CFI=$O(^DD(C0CFJ,C0CFI)) Q:+C0CFI=0  D  ; EVERY FIELD
    3434 . . ;W "2: "_C0CFJ," ",C0CFI,!
    35  . . S C0CFN=$P(^DD(C0CFJ,C0CFI,0),"^",1) ;PULL FIELD NAME FROM ^DD
     35 . . S C0CFN=$P($G(^DD(C0CFJ,C0CFI,0)),"^",1) ;PULL FIELD NAME FROM ^DD
    3636 . . ;W "N: ",C0CFN,!
    3737 . . ;I C0CFN="STR" W C0CFN," ",C0CFJ,!
Note: See TracChangeset for help on using the changeset viewer.