Changeset 652 for ccr/trunk/p

Timestamp:

Dec 26, 2009, 11:50:03 PM (15 years ago)

Author:

George Lilly

Message:

support for eRx

File:

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

ccr/trunk/p/C0CMXP.m

@@ -76 +76 @@
  D SETXPF(FARY) ;SET FILE VARIABLES
  I $$GET1^DIQ(C0CXPF,TEMPID_",",C0CXFLD,,OUTXML)'=OUTXML D  Q  ;
+ . 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