Sorry to hear you're out of work, hopefully you can pick up another CA Service Desk Manager job soon!
The function make_from_template_site is alongside make_copy in the tmplcopy_site.spl file. I'll paste the contents of both functions here, they seem to be pretty similar. Any assistance is appreciated!
// $Header: tmplcopy_site.spl ASPEN.3 2012/03/14 15:40:59 valre03 Exp $
// Dummy function, just so RCS Id is embedded in compiled spell file...
string tmplcopy_site_RCSID() { return "@(#)$Id: tmplcopy_site.spl ASPEN.3 2012/03/14 15:40:59 valre03 Exp $"; }
// Set interpreter option that all variables must be explicitly declared
#define SYNTAX STRICT
////////////////////////////////////////////////////////////////////////
// Method: cr::make_from_template_site()
//
// Description: Exit point for make from template processing
//
// Input
// template argv[0]
// new cr argv[1]
// new alg argv[2]
// gl argv[3]
//
// Return
// none
////////////////////////////////////////////////////////////////////////
cr::make_from_template_site(...) {
object tmpl, new, alg, gl;
tmpl=argv[0];
new=argv[1];
alg=argv[2];
gl=argv[3];
//logf(SIGNIFICANT, "cr::make_from_template_site template %s new %s alg %s gl %s",
// tmpl.ref_num, new.ref_num, alg.persistent_id, gl);
return;
}
////////////////////////////////////////////////////////////////////////
// Method: cr::copy_cr_site()
//
// Description: Exit point for copy processing
//
// Input
// old cr argv[0]
// new cr argv[1]
// new alg argv[2]
// gl argv[3]
//
// Return
// none
////////////////////////////////////////////////////////////////////////
cr::copy_cr_site(...) {
object old, new, alg, gl;
old=argv[0];
new=argv[1];
alg=argv[2];
gl=argv[3];
z_lrel_copy(old, new, "zlrel_cr_nr", "cr", "nr");
z_lrel_copy(old, new, "zlrel_cr_loc", "cr", "loc");
//logf(SIGNIFICANT, "cr::copy_cr_site old %s new %s alg %s gl %s",
// old.ref_num, new.ref_num, alg.persistent_id, gl);
return;
}