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

Timestamp:

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

Author:

George Lilly

Message:

encounters

File:

• ccr/trunk/p/C0CPROC.m (modified) (1 diff)

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