Changeset 347 for ccr/trunk/p/GPLCCR.m

Timestamp:

Jan 30, 2009, 1:07:28 PM (15 years ago)

Author:

George Lilly

Message:

update to support parameters .. XPAT^{GPLCCR(1,"LABSTART:T^LABLIMIT:T-5000")}

File:

• ccr/trunk/p/GPLCCR.m (modified) (5 diffs)

ccr/trunk/p/GPLCCR.m

@@ -25 +25 @@
  I Y<1 Q  ; EXIT
  S DFN=$P(Y,U,1) ; SET THE PATIENT
- D XPAT(DFN,"","") ; EXPORT TO A FILE
- Q
- ;
-XPAT(DFN,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
+ D XPAT(DFN) ; EXPORT TO A FILE
+ Q
+ ;
+XPAT(DFN,XPARMS,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
  ; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("GPLCCR","ODIR")
  ; FN IS FILE NAME, DEFAULTS IF NULL
@@ -36 +36 @@
  I '$D(FN) S UFN=""
  E  S UFN=FN
- D CCRRPC(.CCRGLO,DFN,"CCR","","","")
+ I '$D(XPARMS) S XPARMS=""
+ D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR")
  S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
  S ONAM=UFN
- I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_12.xml"
+ I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_14.xml"
  S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
  I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
@@ -61 +62 @@
  Q
  ;
-CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)  ;RPC ENTRY POINT FOR CCR OUTPUT
+CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART)  ;RPC ENTRY POINT FOR CCR OUTPUT
  ; CCRGRTN IS RETURN ARRAY PASSED BY NAME
  ; DFN IS PATIENT IEN
  ; CCRPART IS "CCR" FOR ENTIRE CCR, OR SECTION NAME FOR A PART
  ;   OF THE CCR BODY.. PARTS INCLUDE "PROBLEMS" "VITALS" ETC
- ; TIME1 IS STARTING TIME TO INCLUDE - NULL MEANS ALL
- ; TIME2 IS ENDING TIME TO INCLUDE TIME IS FILEMAN TIME
- ; - NULL MEANS NOW
- ; HDRARY IS THE HEADER ARRAY DEFINING THE "FROM" AND
- ;    "TO" VARIABLES
- ;    IF NULL WILL DEFAULT TO "FROM" DUZ AND "TO" DFN
+ ; CCRPARMS ARE PARAMETERS THAT AFFECT THE EXTRACTION
+ ; IN THE FORM "PARM1:VALUE1^PARM2:VALUE2"
+ ; EXAMPLE: "LABLIMIT:T-60" TO LIMIT LAB EXTRACTION TO THE LAST 60 DAYS
+ ; SEE C0CPARMS FOR A COMPLETE LIST OF SUPPORTED PARAMETERS
  I '$D(DEBUG) S DEBUG=0
  S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
+ D SET^C0CPARMS(XPARMS) ;SET PARAMETERS WITH XPARMS AS OVERRIDES
  I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
  I '$D(TESTALERT) S TESTALERT=1 ; FLAG FOR TESTING ALERTS SECTION
@@ -92 +92 @@
  I DEBUG F I=1:1:@CCRGLO@(0) W @CCRGLO@(I),!
  ;
- D HDRMAP(CCRGLO,DFN,HDRARY) ; MAP HEADER VARIABLES
+ D HDRMAP(CCRGLO,DFN) ; MAP HEADER VARIABLES
  ;
  K ^TMP("GPLCCR",$J,"CCRSTEP") ; KILL GLOBAL PRIOR TO ADDING TO IT
@@ -138 +138 @@
  Q
  ;
-HDRMAP(CXML,DFN,IHDR) ; MAP HEADER VARIABLES: FROM, TO ECT
+HDRMAP(CXML,DFN) ; MAP HEADER VARIABLES: FROM, TO ECT
  N VMAP S VMAP=$NA(^TMP("GPLCCR",$J,DFN,"HEADER"))
  ; K @VMAP