Changeset 1495 for qrda/C0Q/trunk/p/C0Q1P2.m

Timestamp:

Jul 26, 2012, 2:11:15 PM (12 years ago)

Author:

Sam Habiel

Message:

Updated KIDS builds and routine to include Adult BMI Measure all done now (NQF 0421)

File:

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

qrda/C0Q/trunk/p/C0Q1P2.m

@@ -1 @@
-C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 1 ; 7/20/12 10:52am
+C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 1 ; 7/26/12 11:15am
  ;;1.0;QUALITY MEASURES;*1*;July 13, 2112;
- ; Licensed under package license. See Documentation
+ ; Licensed under package license. See Documentation for license and
+ ; usage conditions.
  ;
- ; PEPs: PRE, TRAN, POST
+ ; PEPs: PRE, POST
  ;
 PRE ; Unified Pre; PEP
  D PREREM
- QUIT
-TRAN ; Unified Tran; PEP
  QUIT
 POST ; Unified Post; PEP
@@ -91 +90 @@
         I MODE S ARRAY(LN,2)="07/20/2012@09:48:30"
         S LN=LN+1
-        Q
+        ;
+        ;
+        ; NQF 0421-core-adult-weight
+        ; NB: B/c of the presence of patient lists, measures sent as part of
+        ; an extract.
+        S ARRAY(LN,1)="MU NQF0421 ADULT BMI SMH"
+        I MODE S ARRAY(LN,2)="07/26/2012@11:00:17"
+        S LN=LN+1
+        ;
+        QUIT
+        ;
         ;
         ;===============================================================
@@ -148 +157 @@
         Q
         ;
-CRPL(PLNAME,C0QERR) ; Private ; $$ ; Create Patient List
- ; Input: PLNAME: By Value: Patient List Name
- ;        C0QERR: By Ref:   Error Array
- ; Output: IEN of Patient List, or -1 for error
- N C0QFDA,C0QIENS ; FDA, return IEN
- S C0QFDA(810.5,"?+1,",.01)=PLNAME ; Patient List Name
- S C0QFDA(810.5,"?+1,",.07)="`"_DUZ    ; Creator
- S C0QFDA(810.5,"?+1,",.08)="PUB"  ; Type: Public
- S C0QFDA(810.5,"?+1,",100)="L"    ; Class: Local
- D UPDATE^DIE("E",$NA(C0QFDA),$NA(C0QIENS),$NA(C0QERR)) ; External Flag
- I $G(C0QIENS(1)) QUIT C0QIENS(1)
- E  QUIT -1