From a701e535cde149db2b2b85487b95b6f3844ef2ca Mon Sep 17 00:00:00 2001
From: george <george>
Date: Sun, 27 Dec 2009 04:50:03 +0000
Subject: [PATCH] support for eRx

---
 p/C0CMXP.m | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/p/C0CMXP.m b/p/C0CMXP.m
index 73a84bc..d963650 100644
--- a/p/C0CMXP.m
+++ b/p/C0CMXP.m
@@ -78,6 +78,16 @@ GETXML(OUTXML,TEMPID,FARY) ;GET THE XML FROM TEMPLATE TEMPID
  . W "ERROR RETRIEVING TEMPLATE",!
  Q
  ;
+GETTEMP(OUTXML,TEMPID,FARY) ;GET THE TEMPLATE XML FROM TEMPLATE TEMPID
+ ;
+ I '$D(FARY) D  ;
+ . S FARY="FARY" ; FILE ARRAY
+ . D INITXPF("FARY") ;IF FILE ARRAY NOT PASSED, INITIALIZE
+ D SETXPF(FARY) ;SET FILE VARIABLES
+ I $$GET1^DIQ(C0CXPF,TEMPID_",",C0CXTFLD,,OUTXML)'=OUTXML D  Q  ;
+ . W "ERROR RETRIEVING TEMPLATE",!
+ Q
+ ;
 COMPILE(INTID,UFARY) ; COMPILES AN XML TEMPLATE AND GENERATES XPATH BINDINGS
  ; UFARY IF SPECIFIED WILL REDIRECT THE XML FILE TO USE
  ; INTID IS THE IEN OF THE RECORD TO USE IN THE XML FILE