Changeset 1518

Timestamp:

Aug 20, 2012, 10:04:00 PM (12 years ago)

Author:

Sam Habiel

Message:

latest iteration

Location:

qrda/C0Q/trunk

Files:

• kids/C0Q_1.0_4 (added)
• p/C0Q1P4.m (added)
• p/C0QQRDA.m (modified) (6 diffs)

qrda/C0Q/trunk/p/C0QQRDA.m

@@ -1 @@
-C0QQRDA ; GPL - Quality Reporting QRDA Processing ; 8/1/12 4:24pm
+C0QQRDA ; GPL - Quality Reporting QRDA Processing ; 8/2/12 12:42am
         ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28
         ;Copyright 2012 George Lilly.  Licensed under the terms of the GNU
@@ -18 +18 @@
         ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
         ;
-EN
-        N REF S REF=$NAME(^TMP("C0QQRDA",$J))
-        K @REF
-        D WORK(REF)
-        D PRINTXML(REF)
-        QUIT
-        ;
-        ; Get measure set iens from Measure Set file
-        ; TODO: Populate from a config file.
-WORK(C0QREF)
-        N C0Q1 S C0Q1=$O(^C0Q(201,"B","ED CMS REPORTING MEASURES",""))
-        N C0Q2 S C0Q2=$O(^C0Q(201,"B","STK CMS REPORTING MEASURES",""))
-        N C0Q3 S C0Q3=$O(^C0Q(201,"B","VTE CMS REPORTING MEASURES",""))
-        ;
-        ; For each measure, write it, count totals and move patients over
-        N C0QX F C0QX="C0Q1","C0Q2","C0Q3" D
-        . Q:'@C0QX
-        . D EN^DDIOL(@C0QX_": "_^C0Q(201,@C0QX,0))
-        . D EN^DDIOL("")
-        . D UPDATE^C0QUPDT(.A,@C0QX)
-        . ;
-        . ; Get QRDA code for Measure Set.
-        . N C0QMSQRDA S C0QMSQRDA=$$GET1^DIQ($$C0QMFN^C0QUPDT(),@C0QX_",","QRDA TEMPLATE ROOT")
-        . N C0QI S C0QI=0 ; Fileman IEN looper
-        . F  S C0QI=$O(^C0Q(201,@C0QX,5,C0QI)) Q:'C0QI  D  ; For each measure
-        . . N C0QMEASUREQRDA S C0QMEASUREQRDA=$$GET1^DIQ($$C0QMMFN^C0QUPDT(),C0QI_","_@C0QX_",",".01:QRDA TEMPLATE ROOT")
-        . . N C0QP S C0QP=0
-        . . F  S C0QP=$O(^C0Q(201,@C0QX,5,C0QI,3,C0QP)) Q:'C0QP  D  ; For each patient in denominator
-        . . . N C0QDFN S C0QDFN=+^(C0QP,0)
-        . . . S @C0QREF@(C0QDFN,C0QMSQRDA,C0QMEASUREQRDA)=""
-        QUIT
-        ;
-PRINTXML(C0QREF) ; Print the XML; Private EP
+EN  ; Private to this Package; Main Entry Point for this routine
+        ; This EP is interactive or silent depending on params
+        ;
+        ; Check for config errors first
+        N % S %=$$CHECKERR()
+        I % D EN^DDIOL($P(%,U,2)) QUIT
+        ;
+        ; Print Intro
+        N %
+        S %(1)="This program collects patients from the denominators of the measures"
+        S %(2)="STK, VTE, and ED and outputs modified CCR files to the kernel default"
+        S %(3)="directory (probably /tmp/)."
+        S %(4)=""
+        S %(5)="This will take some time to execute."
+        S %(6)=""
+        S %(6,"F")="!!!"
+        ;
+        D EN^DDIOL(.%)
+        ;
+        ; Ask user which measure set to run
+        N DIR,DTOUT,DUOUT,X,Y,DIRUT,DIROUT,DA ; DIR variables
+        S DIR(0)="SB^V:VTE;S:STK;E:ED"
+        S DIR("A")="Measure to calculate"
+        S DIR("A",1)="Which measure set would you like to produce QRDA documents for?"
+        S DIR("A",2)="Choose to Run [V]TE Measure Set, [S]TK Measure Set, or "
+        S DIR("A",3)="[E]D Measure Set"
+        D ^DIR
+        ;
+        I $G(DTOUT)!$G(DUOUT) QUIT  ; Did user hit '^' or time out?
+        ;
+        ; Get the Measure Set IEN which the user has seleted.
+        ; NB: field names start with VTE, STK, or ED; so I can use the output
+        ; of DIR directly.
+        ;
+        N FLD S FLD=Y(0)
+        N C0QMSIEN S C0QMSIEN=$$GET1^DIQ(1130580001.401,$$INPPARM(),FLD,"I")
+        ;
+        S:'C0QMSIEN $EC=",U1,"  ; Debug.Assert that MSIEN is numeric.
+        ;
+        ; Do the work
+        N REF S REF=$NAME(^TMP("C0QQRDA",$J)) ; Global for data collection
+        K @REF  ; Clear global
+        D WORK(REF,C0QMSIEN) ; Process Measure Set, collect data in global
+        D PRINTXML(REF,FLD) ; Generate XML; output to File. 
+        K @REF  ; Clear global
+        QUIT
+        ;
+        ;SILENTEN(RETURN) ; For future RPC calls...; needs to be reworked.
+        ; N % S %=$$CHECKERR() 
+        ; I % S RETURN(0)=% Q
+        ;
+        ; N DIQUIET S DIQUIET=1
+        ; D EN 
+        ; S RETURN(0)=0
+        ; QUIT
+        ;
+CHECKERR() ; Private Proc; Check if environment is okay.
+        ; Output: 0 -> Okay; +ve^message for error
+        N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameters IEN
+        I 'INPPARM Q 1_U_"No Inpatient Parameters found"
+        ;
+        ; Pointer fields to Measurement Set file, we grab the IENs
+        N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I")
+        N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I")
+        N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I")
+        ;
+        N TXT S TXT="" ; Error text
+        I 'C0QED S TXT=TXT_"ED,"
+        I 'C0QSTK S TXT=TXT_"STK,"
+        I 'C0QVTE S TXT=TXT_"VTE"
+        I $E(TXT,$L(TXT)=",") S TXT=$E(TXT,1,$L(TXT)-1)
+        I $L(TXT) Q 2_U_"Measure Sets missing from parameters: "_TXT
+        ;
+        QUIT 0 ; All okay
+        ;
+WORK(C0QREF,C0QMSIEN) ; Private Proc; Process Measure Sets; Collect the data.
+        ; Input/Output: C0QREF -> Global for Output passed by Name
+        ;               C0QMSIEN -> (Input): Measurement Set IEN to calculate
+        ;
+        ; Print
+        D EN^DDIOL(C0QMSIEN_": "_^C0Q(201,C0QMSIEN,0))
+        D EN^DDIOL("")
+        ;
+        ; Calculate totals and move patients over from individual measures
+        D UPDATE^C0QUPDT(.A,C0QMSIEN) ; FYI: A isn't used.
+        ;
+        ; Get QRDA code for Measure Set.
+        N C0QMSQRDA S C0QMSQRDA=$$GET1^DIQ($$C0QMFN^C0QUPDT(),C0QMSIEN_",","QRDA TEMPLATE ROOT")
+        ;
+        N C0QI S C0QI=0 ; Fileman IEN looper
+        F  S C0QI=$O(^C0Q(201,C0QMSIEN,5,C0QI)) Q:'C0QI  D  ; For each measure in Measure Set
+        . ;
+        . ; Get QRDA code using relational jump
+        . N C0QMEASUREQRDA S C0QMEASUREQRDA=$$GET1^DIQ($$C0QMMFN^C0QUPDT(),C0QI_","_C0QMSIEN_",",".01:QRDA TEMPLATE ROOT")
+        . ;
+        . ; Then collect patients in the denominator, and store in output global
+        . N C0QP S C0QP=0
+        . F  S C0QP=$O(^C0Q(201,C0QMSIEN,5,C0QI,3,C0QP)) Q:'C0QP  D  ; For each patient in denominator
+        . . N C0QDFN S C0QDFN=+^(C0QP,0)
+        . . S @C0QREF@(C0QDFN,C0QMSQRDA,C0QMEASUREQRDA)=""
+        QUIT
+        ;
+INPPARM() ; $$ Private; Get Inpatient Parameters IEN
+        ; Output: IEN of Inpatient Parameter in C0Q PARAMETER file
+        ;
+        ; Browse this tree of xrefs to get the IEN of INP type (last line here).
+        ; ^C0Q(401,"B","INPATIENT",2)=""
+        ; ^C0Q(401,"B","OUTPATIENT",1)=""
+        ; ^C0Q(401,"MU","MU12",1)=""
+        ; ^C0Q(401,"MU","MU12",2)=""
+        ; ^C0Q(401,"MUTYP","MU12","EP",1)=""
+        ; ^C0Q(401,"MUTYP","MU12","INP",2)=""
+        ;
+        N MUID S MUID="" ; Looper for MU Year ID
+        N FOUND S FOUND=0 ; Found flag to get out of loop
+        N IEN ; Output variable
+        F  S MUID=$O(^C0Q(401,"MUTYP",MUID),-1) Q:MUID=""  Q:FOUND  D  ; Loop backwards
+        . N TYP S TYP=""  ; Type ("EP" or "INP")
+        . F  S TYP=$O(^C0Q(401,"MUTYP",MUID,TYP)) Q:TYP=""  Q:FOUND  D
+        . . I TYP="INP" S IEN=$O(^(TYP,"")),FOUND=1 Q  ; If found, get IEN, quit out of loops
+        QUIT +$G(IEN)
+        ;
+PRINTXML(C0QREF,C0QMNM) ; Print the XML; Private Proc
+        ; Input: C0QREF -> Global By Name
+        ;        C0QMNM -> Measure Name -> Either VTE, STK, ED. For use in filenames.
+        ; Output: modified CCRs are saved in /tmp/
         N C0QDFN,C0QMS,C0QM S (C0QDFN,C0QMS,C0QM)="" ; DFN, Measure Set, Measure loopers
         F  S C0QDFN=$O(@C0QREF@(C0QDFN)) Q:C0QDFN=""  D  ; For each patient
-        . W !!,$C(27),"[1;37;42m","Prosessing DFN ",C0QDFN,$C(27),"[0m",!  ; Print in Green.
-        . ;
+        . ;
+        . N GREEN S GREEN=$C(27)_"[1;37;42m"
+        . N RESET S RESET=$C(27)_"[0m"
+        . D EN^DDIOL(GREEN_"Prosessing DFN "_C0QDFN_RESET,"","!!!")
+        . D EN^DDIOL("","","!")
         . ;
         . ; CCR Generatation is next; protected against crashes.
@@ -61 +157 @@
         . N OLDTRAP S OLDTRAP=$ET
         . ; ET: Rollback to this level, write the error in red , clear it, then quit
+        . N ETTEXT S ETTEXT=$C(27)_"[1;37;41m"_$$EC^%ZOSV_$C(27)_RESET
         . N $ES,$ET
-        . S $ET="Q:($ES)  W $C(27),""[1;37;41m"",$ZS,$C(27),""[0m"",! S $EC="""""
+        . S $ET="W ETTEXT D ^%ZTER G ROLLDOWN^C0QQRDA"
         . D CCRRPC^C0CCCR(.C0QCCRXML,C0QDFN) ; Run CCR RPC.
         . S $ET=OLDTRAP
@@ -81 +178 @@
         . ;
         . ;
-        . ; Insert XML under the root of the document XPATH
+        . ; Insert Quality XML under the root of the CCR document
         . D INSERT^C0CXPATH($NA(C0QCCRXML),$NA(C0QXML),"//ContinuityOfCareRecord")
         . ;
@@ -90 +187 @@
         . ; 
         . ; Write out to a file.
-        . N FN S FN="QRDA_CCR_DFN"_$$RJ^XLFSTR(C0QDFN,10,"0")_".XML" ; File Name
-        . K C0QCCRXML(0) ; remove zero node
+        . N FN S FN=C0QMNM_"_QRDA_CCR_DFN"_$$RJ^XLFSTR(C0QDFN,10,"0")_".XML" ; File Name
+        . K C0QCCRXML(0) ; remove zero node; API doesn't support it.
         . D EN^DDIOL($$OUTPUT^C0CXPATH($NA(C0QCCRXML(1)),FN,DEFDIR))
         QUIT
@@ -114 +211 @@
 L2 S L=L-1 D WS Q  ; Decrement and Write space
 WS X "F I=1:1:L W "" """ Q  ; Write Space
+ ; This is for rolling down the stack to the $ES level
+ROLLDOWN S $ET="Q:$ES  S $EC=""""",$EC=",U99," QUIT