Changeset 783 for ccr/trunk

Timestamp:

May 23, 2010, 10:07:57 PM (15 years ago)

Author:

George Lilly

Message:

encounters

Location:

ccr/trunk/p

Files:

• C0CCCR.m (modified) (1 diff)
• C0CENC.m (modified) (3 diffs)
• C0CPROC.m (modified) (1 diff)

ccr/trunk/p/C0CCCR.m

@@ -131 +131 @@
  D EXTRACT^C0CACTOR("ACTT",ACTGLO,"ACTT2")
  D INSINNER^C0CXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
+ K ACTT,ACTT2
+ D QUERY^C0CXPATH(TGLOBAL,"//ContinuityOfCareRecord/Comments","CMTT")
+ D EXTRACT^C0CCMT("CMTT",DFN,"CMTT2")
+ D INSINNER^C0CXPATH(CCRGLO,"CMTT2","//ContinuityOfCareRecord/Comments")
+ K CMTT,CMTT2
  N TRIMI,J,DONE S DONE=0
  F TRIMI=0:0 D  Q:DONE  ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE

ccr/trunk/p/C0CENC.m

@@ -22 +22 @@
  Q
  ;
-SETVARS ; INITIAL TEMPORARY VARIABLES
- S C0CENC=$NA(^TMP("C0CENC",$J,DFN))
- S C0CPRC=$NA(^TMP("C0CPRC",$J,DFN))
- S C0CNTE=$NA(^TMP("C0CNTE",$J,DFN))
- Q
- ;
 EXTRACT(ENCXML,DFN,ENCOUT) ; EXTRACT ENCOUNTERS INTO  XML TEMPLATE
  ; ENCXML AND ENCOUT ARE PASSED BY NAME SO GLOBALS CAN BE USED
  ;
- D SETVARS ;
+ D SETVARS^C0CPROC ; SET UP VARIABLES FOR PROCEDUCRES, ENCOUNTERS, AND NOTES
  I '$D(@C0CENC) D TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; GET VARS IF NOT THERE
  D MAP(ENCXML,C0CENC,ENCOUT) ;MAP RESULTS FOR ENCOUNTERS
@@ -45 +39 @@
  ;
  ;K VISIT,LST,NOTE
- I '$D(C0CPRC) D SETVARS ; INITIALIZE WORK AREAS IF NOT ALREADY THERE
+ I '$D(C0CPRC) D SETVARS^C0CPROC ; INITIALIZE WORK AREAS IF NOT ALREADY THERE
  I '$D(VISIT) D ENTRY^C0CCPT(DFN,,,1) ; RETURNS VISIT LOCAL VARIABLE
  ; NEED TO ADD START AND END DATES FROM PARAMETERS
@@ -99 +93 @@
  . . S @C0CNTE@(ZI,"COMMENTOBJECTID")="NOTE_"_ZI
  . . S @C0CNTE@(ZI,"CMTDATETIME")=ZDATE ; DATE OF THE NOTE
+ . . S @C0CNTE@(ZI,"ACTORSOURCEID")=ZPRV ; SOURCE OF THE NOTE
  . . S ZRNF("ENCCOMMENTID")="NOTE_"_ZI ; POINT TO THE NOTE FROM THE ENCOUNTER
  . D RNF1TO2^C0CRNF(C0CENC,"ZRNF") ; ADD THIS ROW TO THE ARRAY

ccr/trunk/p/C0CPROC.m

@@ -22 +22 @@
  Q
  ;
+SETVARS ; SET UP VARIABLES FOR PROCEDURES, ENCOUNTERS, AND NOTES
+ S C0CENC=$NA(^TMP("C0CCCR",$J,"C0CENC",DFN))
+ S C0CPRC=$NA(^TMP("C0CCCR",$J,"C0CPRC",DFN))
+ S C0CNTE=$NA(^TMP("C0CCCR",$J,"C0CNTE",DFN))
+ Q
+ ;
 EXTRACT(PROCXML,DFN,PROCOUT) ; EXTRACT PROCEDURES INTO  XML TEMPLATE
  ; PROCXML AND PROCOUT ARE PASSED BY NAME SO GLOBALS CAN BE USED
  ;
- S C0CENC=$NA(^TMP("C0CENC",$J,DFN))
- S C0CPRC=$NA(^TMP("C0CPRC",$J,DFN))
- S C0CNTE=$NA(^TMP("C0CNTE",$J,DFN))
+ D SETVARS ; SET UP VARIABLES
  I '$D(@C0CPRC) D TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; GET VARS IF NOT THERE
  D MAP(PROCXML,C0CPRC,PROCOUT) ;MAP RESULTS FOR PROCEDURES