Changeset 652 for ccr


Ignore:
Timestamp:
Dec 26, 2009, 11:50:03 PM (15 years ago)
Author:
George Lilly
Message:

support for eRx

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CMXP.m

    r651 r652  
    7676 D SETXPF(FARY) ;SET FILE VARIABLES
    7777 I $$GET1^DIQ(C0CXPF,TEMPID_",",C0CXFLD,,OUTXML)'=OUTXML D  Q  ;
     78 . W "ERROR RETRIEVING TEMPLATE",!
     79 Q
     80 ;
     81GETTEMP(OUTXML,TEMPID,FARY) ;GET THE TEMPLATE XML FROM TEMPLATE TEMPID
     82 ;
     83 I '$D(FARY) D  ;
     84 . S FARY="FARY" ; FILE ARRAY
     85 . D INITXPF("FARY") ;IF FILE ARRAY NOT PASSED, INITIALIZE
     86 D SETXPF(FARY) ;SET FILE VARIABLES
     87 I $$GET1^DIQ(C0CXPF,TEMPID_",",C0CXTFLD,,OUTXML)'=OUTXML D  Q  ;
    7888 . W "ERROR RETRIEVING TEMPLATE",!
    7989 Q
Note: See TracChangeset for help on using the changeset viewer.