Changeset 351 for ccr/trunk/p/C0CRNF.m

Timestamp:

Feb 3, 2009, 10:29:44 AM (15 years ago)

Author:

George Lilly

Message:

progress on IMMUNIZATIONS

File:

• ccr/trunk/p/C0CRNF.m (modified) (2 diffs)

ccr/trunk/p/C0CRNF.m

@@ -345 +345 @@
  ; IF ZTAB IS NULL, IT DEFAULTS TO C0CA
  I '$D(ZTAB) S ZTAB="C0CA"
- Q $P(@ZTAB@(ZFN),"^",3)
+ Q $P($G(@ZTAB@(ZFN)),"^",3)
  ;
 ZVALUEI(ZFN,ZTAB) ;EXTRINSIC TO RETURN INTERNAL VALUE FOR FIELD NAME PASSED
@@ -351 +351 @@
  ; IF ZTAB IS NULL, IT DEFAULTS TO C0CA
  I '$D(ZTAB) S ZTAB="C0CA"
- Q $P(@ZTAB@(ZFN,"I"),"^",3)
- ;
+ Q $P($G(@ZTAB@(ZFN,"I")),"^",3)
+ ;