Changeset 783 for ccr/trunk/p/C0CENC.m

Timestamp:

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

Author:

George Lilly

Message:

encounters

File:

• ccr/trunk/p/C0CENC.m (modified) (3 diffs)

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