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

Timestamp:

Jan 25, 2009, 3:29:07 PM (15 years ago)

Author:

George Lilly

Message:

improvements to Problems and Alerts, added dates, type

File:

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

ccr/trunk/p/C0CRNF.m

@@ -51 +51 @@
  S C0CREF=GIEN_"," ; OPEN ROOT REFERENCE INTO FILE
  D CLEAN^DILF ; MAKE SURE WE ARE CLEANED UP
- D GETS^DIQ(GFILE,C0CREF,"**","","C0CTMP")
+ D GETS^DIQ(GFILE,C0CREF,"**","I","C0CTMP")
  D FIELDS(GRTN,GFILE) ;GET ALL THE FIELD NAMES FOR THE FILE
  S @GRTN@(0)=GFILE_"^RNF1^"_GIEN_"^"_DT_"^"_$J ; STRUCTURE SIGNATURE
@@ -105 +105 @@
  D CLEAN^DILF ; MAKE SURE WE ARE CLEANED UP
  K C0CTMP
- D GETS^DIQ(GFILE,C0CREF,"**","","C0CTMP")
+ D GETS^DIQ(GFILE,C0CREF,"**","IE","C0CTMP")
  D FIELDS(GRTN,GFILE) ;GET ALL THE FIELD NAMES FOR THE FILE
  S @GRTN@(0)=GFILE_"^RNF1^"_GIEN_"^"_DT_"^"_$J_"^"_DUZ ; STRUCTURE SIGNATURE
@@ -114 +114 @@
  . . ;W C0CJ," ",C0CI,!
  . . S C0CNAME=$P(^DD(C0CJ,C0CI,0),"^",1) ;PULL THE FIELD NAME
- . . S C0CVALUE=C0CTMP(C0CJ,C0CREF,C0CI) ;
+ . . S C0CVALUE=C0CTMP(C0CJ,C0CREF,C0CI,"E") ;
  . . I C0CVALUE["C0CTMP" D  ; WP FIELD
  . . . N ZT,ZWP S ZWP=0 ;ITERATOR
@@ -124 +124 @@
  . . . . S C0CVALUE=C0CVALUE_ZT ;
  . . S $P(@GRTN@(C0CNAME),"^",3)=C0CVALUE ;RETURN VALUE IN P3
+ . . S $P(@GRTN@(C0CNAME,"I"),"^",3)=$G(C0CTMP(C0CJ,C0CREF,C0CI,"I"))
  I C0CNN D  ; IF ONLY NON-NULL VALUES ARE TO BE RETURNED
  . S C0CI=""
@@ -280 +281 @@
  Q $P(@ZTAB@(ZFN),"^",3)
  ;
+ZVALUEI(ZFN,ZTAB) ;EXTRINSIC TO RETURN VALUE FOR FIELD NAME PASSED
+ ; BY VALUE IN ZFN. FILE NUMBER IS PIECE 3 OF @ZTAB@(ZFN)
+ ; IF ZTAB IS NULL, IT DEFAULTS TO C0CA
+ I '$D(ZTAB) S ZTAB="C0CA"
+ Q $P(@ZTAB@(ZFN,"I"),"^",3)
+ ;