Changeset 1495 for qrda/C0Q/trunk/p


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • qrda/C0Q/trunk/p/C0Q1P2.m

    r1492 r1495  
    1 C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 1 ; 7/20/12 10:52am
     1C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 1 ; 7/26/12 11:15am
    22 ;;1.0;QUALITY MEASURES;*1*;July 13, 2112;
    3  ; Licensed under package license. See Documentation
     3 ; Licensed under package license. See Documentation for license and
     4 ; usage conditions.
    45 ;
    5  ; PEPs: PRE, TRAN, POST
     6 ; PEPs: PRE, POST
    67 ;
    78PRE ; Unified Pre; PEP
    89 D PREREM
    9  QUIT
    10 TRAN ; Unified Tran; PEP
    1110 QUIT
    1211POST ; Unified Post; PEP
     
    9190        I MODE S ARRAY(LN,2)="07/20/2012@09:48:30"
    9291        S LN=LN+1
    93         Q
     92        ;
     93        ;
     94        ; NQF 0421-core-adult-weight
     95        ; NB: B/c of the presence of patient lists, measures sent as part of
     96        ; an extract.
     97        S ARRAY(LN,1)="MU NQF0421 ADULT BMI SMH"
     98        I MODE S ARRAY(LN,2)="07/26/2012@11:00:17"
     99        S LN=LN+1
     100        ;
     101        QUIT
     102        ;
    94103        ;
    95104        ;===============================================================
     
    148157        Q
    149158        ;
    150 CRPL(PLNAME,C0QERR) ; Private ; $$ ; Create Patient List
    151  ; Input: PLNAME: By Value: Patient List Name
    152  ;        C0QERR: By Ref:   Error Array
    153  ; Output: IEN of Patient List, or -1 for error
    154  N C0QFDA,C0QIENS ; FDA, return IEN
    155  S C0QFDA(810.5,"?+1,",.01)=PLNAME ; Patient List Name
    156  S C0QFDA(810.5,"?+1,",.07)="`"_DUZ    ; Creator
    157  S C0QFDA(810.5,"?+1,",.08)="PUB"  ; Type: Public
    158  S C0QFDA(810.5,"?+1,",100)="L"    ; Class: Local
    159  D UPDATE^DIE("E",$NA(C0QFDA),$NA(C0QIENS),$NA(C0QERR)) ; External Flag
    160  I $G(C0QIENS(1)) QUIT C0QIENS(1)
    161  E  QUIT -1
Note: See TracChangeset for help on using the changeset viewer.