Changeset 1204 for ccr/trunk/p/C0CNHIN.m

Timestamp:

Jun 23, 2011, 3:01:41 PM (13 years ago)

Author:

George Lilly

Message:

updates for MU Certification

File:

• ccr/trunk/p/C0CNHIN.m (modified) (4 diffs)

ccr/trunk/p/C0CNHIN.m

@@ -19 +19 @@
  ;
  Q
-EN(ZRTN,ZDFN) ; GENERATE AN NHIN ARRAY FOR A PATIENT
+EN(ZRTN,ZDFN,ZPART,KEEP) ; GENERATE AN NHIN ARRAY FOR A PATIENT
  ;
  K GARY,GNARY,GIDX,C0CDOCID
@@ -26 +26 @@
  K ^TMP("MXMLDOM",$J) ; CLEAN UP DOM
  K ^TMP("MXMLERR",$J) ; CLEAN UP MXML ERRORS
- D GET^NHINV(.GN,ZDFN) ; CALL NHINV ROUTINES TO PULL XML
+ D GET^NHINV(.GN,ZDFN,ZPART) ; CALL NHINV ROUTINES TO PULL XML
  S GN=$P(GN,")",1)_")" ; CUT OFF THE REST OF LINE PROTOCOL
  S C0CDOCID=$$PARSE(GN,"NHINARRAY") ; PARSE WITH MXML
  D DOMO^C0CDOM(C0CDOCID,"/","ZRTN","GIDX","GARY",,"/results/") ; BLD ARRAYS
+ I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1
+ ;D PROCESS("ZRTN",GN,"/result/",$G(KEEP))
+ Q
+ ;
+PQRI(ZOUT,KEEP) ; RETURN THE NHIN ARRAY FOR THE PQRI XML TEMPLATE
+ ;
+ N ZG
+ S ZG=$NA(^TMP("PQRIXML",$J))
+ K @ZG
+ D GETXML^C0CMXP(ZG,"PQRIXML") ; GET THE XML FROM C0C MISC XML
+ N C0CDOCID
+ S C0CDOCID=$$PARSE^C0CDOM(ZG,"PQRIXML") ; PARSE THE XML
+ D DOMO^C0CDOM(C0CDOCID,"/","ZOUT","GIDX","GARY",,"//submission") ; BLD ARRAYS
+ I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1
+ Q
+ ;
+PQRI2(ZRTN) ; RETURN THE NHIN ARRAY FOR PQRI ONE MEASURE
+ ;
+ ;N GG
+ D GETXML^C0CMXP("GG","PQRI ONE MEASURE")
+ D PROCESS(ZRTN,"GG","root",1)
+ Q
+ ;
+PROCESS(ZRSLT,ZXML,ZREDUCE,KEEP) ; PARSE AND RUN DOMO ON XML
+ ; ZRTN IS PASSED BY REFERENCE
+ ; ZXML IS PASSED BY NAME
+ ; IF KEEP IS 1, GARY AND GIDX ARE NOT KILLED
+ ;
+ N GN
+ S GN=$NA(^TMP("C0CPROCESS",$J))
+ K @GN
+ M @GN=@ZXML
+ S C0CDOCID=$$PARSE(GN,"NHINARRAY") ; PARSE WITH MXML
+ K @GN
+ D DOMO^C0CDOM(C0CDOCID,"/","ZRSLT","GIDX","GARY",,$G(ZREDUCE)) ; BLD ARRAYS
+ I '$G(KEEP) K GIDX,GARY ; GET RID OF THE ARRAYS UNLESS KEEP=1
  Q
  ;
@@ -59 +95 @@
  Q
  ;
+MED ; TRY IT WITH A CCR MED SECTION
+ ;
+ S GN=$NA(^GPL("MED"))
+ K ^TMP("MXMLDOM",$J)
+ K ^TMP("MXMLERR",$J)
+ S C0CDOCID=$$PARSE(GN,"MED")
+ D DOMO^C0CDOM(C0CDOCID,"/","GNARY","GIDX","GARY",,"//Medications/")
+ ;K ^TMP("MXMLDOM",$J) ;CLEAN UP... IT'S BIG
+ Q
+ ;
 CCD ; TRY IT WITH A CCD
  ;
@@ -74 +120 @@
  K GARY,GIDX,C0CDOCID
  S GN=$NA(^GPL("NHIN"))
+ ;S GN=$NA(^GPL("DOMI"))
+ S C0CDOCID=$$PARSE(GN,"GPLTEST")
+ D DOMO^C0CDOM(C0CDOCID,"/","GNARY","GIDX","GARY",,"/results/")
+ K ^GPL("GNARY")
+ M ^GPL("GNARY")=GNARY
+ Q
+ ;
+TEST2 ; PUT GNARY THROUGH DOMI AND STORE XML IN ^GPL("DOMI")
+ ;
+ S GN=$NA(^GPL("GNARY"))
+ S C0CDOCID=$$DOMI^C0CDOM(GN,,"results")
+ D OUTXML^C0CDOM("G",C0CDOCID)
+ K ^GPL("DOMI")
+ M ^GPL("DOMI")=G
+ Q
+ ;
+TEST3 ; TEST NHINV OUTPUT IN ^GPL("NIHIN") 
+ ; PARSED WITH MXML
+ ; RUN THROUGH XPATH
+ K GARY,GIDX,C0CDOCID
+ ;S GN=$NA(^GPL("NHIN"))
+ S GN=$NA(^GPL("DOMI"))
  S C0CDOCID=$$PARSE(GN,"GPLTEST")
  D DOMO^C0CDOM(C0CDOCID,"/","GNARY","GIDX","GARY",,"/results/")