Changeset 1335 for qrda/C0Q/trunk/p/C0QHF.m

Timestamp:

Jan 4, 2012, 4:37:42 PM (13 years ago)

Author:

George Lilly

Message:

latest C0Q changes with parameters

File:

• qrda/C0Q/trunk/p/C0QHF.m (modified) (3 diffs)

qrda/C0Q/trunk/p/C0QHF.m

@@ -1 +1 @@
 C0QHF   ; GPL - Health Factor Utility Routines ;9/02/11  17:05
-        ;;0.1;C0Q;nopatch;noreleasedate;Build 19
+        ;;0.1;C0Q;nopatch;noreleasedate;Build 23
         ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
         ;General Public License See attached copy of the License.
@@ -37 +37 @@
         N ZI,ZJ,ZR
         S ZI=$O(^AUTTHF("B",C0QHF,"")) ; HEALTH FACTOR IEN
+        I ZI="" D  Q 0 ;
+        . W !,"BAD HEALTH FACTOR: ",C0QHF
         I $D(^AUPNVHF("AA",DFN,ZI)) S ZR=1
         E  S ZR=0
         Q ZR
+        ;
+HFIEN(ZHF)      ; EXTRINSIC RETURNS THE IEN OF THE HEALTHFACTOR
+        N ZI
+        S ZI=$O(^AUTTHF("B",ZHF,"")) ; HEALTH FACTOR IEN
+        Q ZI
+        ;
+VHFIEN(DFN,ZHF) ; EXTRINSIC RETURNS THE LAST IEN OF THIS HEALTH FACTOR
+        ; FOR THE PATIENT
+        N ZG,ZJ,ZK
+        S ZG=$$HFIEN(ZHF)
+        I ZG="" Q  ; OPPS HEALTH FACTOR NOT FOUND
+        S ZJ=$O(^AUPNVHF("AA",DFN,ZG,""),-1) ;DATE
+        S ZK=$O(^AUPNVHF("AA",DFN,ZG,ZJ,"")) ;IEN
+        Q ZK
         ;
 HFCAT(RTN,DFN,C0QHFCAT) ; C0QFHCAT IS A HEALTH FACTOR CATEGORY
@@ -47 +63 @@
         N ZI
         S ZI=$O(^AUTTHF("B",C0QHFCAT,"")) ; HEALTH FACTOR CATEGORY IEN
-        N C0QN,C0QO
+        N C0QN,C0QO,C0QR
         S C0QO=$NA(^AUPNVHF("AA",DFN)) ; ALL THE PATIENT'S HEALTH FACTORS
         S C0QN=$NA(^AUTTHF("AC",ZI)) ; ALL HEALTH FACTORS IN THIS CATEGORY