(B)0[m[1;4mCREATE[m[1m qwq> [1;4mFUNCTION[m[1m qqqwq> <external-routine-name> qqqqqqqqqk [m [1m mq> [1;4mPROCEDURE[m[1m qqj x [m [1m lqqqqqqqqqqqqqqqqqqqqqqqqqqqq<qqqqqqqqqqqqqqqqqqqqqqqqqqqqqj [m [1m mqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqwqqqqqqqqqqqqqqqqqqqqqqqk [m [1m mq> [1;4mSTORED[m[1m [1;4mNAME[m[1m IS <identifier> qj x [m [1m lqqqqqqqqqqqqqqqqqqqqqqqqqqqq<qqqqqqqqqqqqqqqqqqqqqqqqqqqqqj [m [1m mq> ( qwqqqqqqqqqqqqqqqqqqqqqqqwq> ) qqqqqqqqqqqqqqqqqqqqqqk [m [1m mwq> parameter-list qqwqj x [m [1m mqqqqqqqq , <qqqqqqqqj x [m [1m lqqqqqqqqqqqqqqqqqqqqqqqqqqqq<qqqqqqqqqqqqqqqqqqqqqqqqqqqqqj [m [1m mqwqqqqqqqqqqqqqqqqqqqwqq> qqwqqqqqqqqqqqqqqqqqqwq> ; qq> qk [m [1m mq> returns-clause qj mq> [1;4mLANGUAGE[m[1m [1;4mSQL[m[1m qqj x [m [1m x [m [1m lqqqqqqqqqqqqqqqqqqqqqqqqqqqq<qqqqqqqqqqqqqqqqqqqqqqqqqqqqqj [m [1m mqqqq> external-body-clause qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq> [m (B)0[m[1mparameter-list = [m [1m [m [1mqwqqqqqqqqqqwqwqqqqqqqqqqqqqqqqqqqwqwq> data-type qqqqqwqqqqqqqqqqk [m [1m tq> [1;4mIN[m[1m qqqqu m> <parameter-name> j mq> <domain-name> qj [m [1mx [m [1m tq> [1;4mOUT[m[1m qqqu [m [1mx[m [1m mq> [1;4mINOUT[m[1m qj [m [1mx[m [1mlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj[m [1mmqwqqqqqqqqqqqqqqqqqqqqqqqqqqqwqqwqqqqqqqqqqqqqqqqqqqqqwqqqqqqqqqqk [m [1m mq> [1;4mDEFAULT[m[1m value-expr qqqqqj[m [1mmq> mechanism-clause qj x [m [1m lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq<qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj [m [1m mwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq>[m [1m mq> [1;4mCOMMENT[m[1m [1;4mIS[m[1m qwq> 'string' qqqwqj [m [1m mqqqqqq / <qqqqqj [m (B)0[m[1mmechanism-clause = [m [1m [m [1mqqqq> [1;4mBY[m[1m qqwq> [1;4mDESCRIPTOR[m[1m qwqqq> [m [1m tq> [1;4mLENGTH[m[1m qqqqqu [m [1m tq> [1;4mREFERENCE[m[1m qqu [m [1m mq> [1;4mVALUE[m[1m qqqqqqj [m [1m [m (B)0[m[1mexternal-body-clause = [m [1m [m [1mqq> [1;4mEXTERNAL[m[1m qqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqwqqqqqqqqqqqqqk [m [1m mq> [1;4mNAME[m[1m <external-body-name> qj [m [1m x [m [1mlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq[m [1m<qqqqqqqqqqqqqqqqqqqqqqj [m [1mmwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqwq> [1;4mLANGUAGE[m[1m language-name[m [1mqqk [m [1m mq> external-location-clause qj [m [1m x [m [1mlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq<qqqqqqqqqqqqqqqqqqqqqqqqj [m [1mmwq> [1;4mPARAMETER[m[1m [1;4mSTYLE[m[1m [1;4mGENERAL[m[1m qwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk [m [1m mq> [1;4mGENERAL[m[1m [1;4mPARAMETER[m[1m [1;4mSTYLE[m[1m qj [m [1m x [m [1mlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq<qqqqqqqqqqqqqqqqqqqqqqqj [m [1mmwqqqqqqqqqqqqqqqqqqqqqqqqqqqqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq> [m [1mmq> external-body-clause-2 qqj[m (B)0[m[1mexternal-body-clause-2 =[m [1mqqqwqqwq> [1;4mCOMMENT[m[1m [1;4mIS[m[1m qwq> '<string> ' qwqqqqwqqwqq>[m [1m x x mqqqqqq / <qqqqqqj x x [m [1m x tq> bind-site-clause qqqqqqqqqqqqqqqqqu x [m [1m x tq> bind-scope-clause qqqqqqqqqqqqqqqqu x [m [1m x tq> notify-clause qqqqqqqqqqqqqqqqqqqqu x [m [1mx[m [1mtq>[m [1;4mCALLED[m [1;4mON[m [1;4mNULL[m [1;4mINPUT[m[1m qqqqqqqqqqqqqu[m [1mx[m [1mx[m [1mtq>[m [1;4mRETURNS[m [1;4mNULL[m [1;4mON[m [1;4mNULL[m [1;4mINPUT[m[1m qqqqqqqu[m [1mx[m [1mx[m [1mtq>[m [1;4mUSAGE[m[1m IS qwq>[m [1;4mLOCAL[m [1mqqqwqqqqqqqqqqu[m [1mx[m [1mx[m [1mx [m [1mmq>[m [1;4mGLOBAL[m[1m qqj[m [1mx[m [1mx[m [1m x mqwqqqqqqqqwqqwqqqqqqqqqqqqqqqqqqqwqqqj x [m [1m x mq> [1;4mNOT[m[1m qj tq> [1;4mVARIANT[m[1m qqqqqqqqu x [m [1m x mq> [1;4mDETERMINISTIC[m[1m qqj x [m [1m mqqqqqqqqqqqqqqqqqqqqqq <qqqqqqqqqqqqqqqqqqqj [m (B)0[m[1mexternal-location-clause = [m [1m [m [1mqqqwqq> [1;4mDEFAULT[m[1m [1;4mLOCATION[m[1m qqqqqqqqqqqqwqqqqqqqqqqqqqqqqqqqqqqqqqk[m [1m mqq> [1;4mLOCATION[m[1m '<image-location>' qj x[m [1m lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq<qqqqqqqqqqqqqqqqqqqqqqqqqqqqqj[m [1m mqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqq>qqqqqqqqqqqqqqqqqqqqqqqqqqwqq>[m [1m mqq> [1;4mWITH[m[1m qqwq> [1;4mALL[m[1m qqqqqwqq> [1;4mLOGICAL_NAME[m[1m [1;4mTRANSLATION[m[1m qqj [m [1m mq> [1;4mSYSTEM[m[1m qqj [m (B)0[m[1mlanguage-name = [m [1m [m [1mqqwq> [1;4mADA[m[1m qqqqqwqq> [m [1m tq> [1;4mC[m[1m qqqqqqqu [m [1m tq> [1;4mCOBOL[m[1m qqqu [m [1m tq> [1;4mFORTRAN[m[1m qu [m [1m tq> [1;4mPASCAL[m[1m qqu [m [1m mq> [1;4mGENERAL[m[1m qj [m [1m [m (B)0[m[1mbind-site-clause = [m [1m [m [1mqq> [1;4mBIND[m[1m [1;4mON[m[1m qqwqq> [1;4mCLIENT[m[1m qqwqq> [1;4mSITE[m[1m qqq> [m [1m mqq> [1;4mSERVER[m[1m qqj [m (B)0[m[1mbind-scope-clause = [m [1m [m [1mqqq> [1;4mBIND[m[1m [1;4mSCOPE[m[1m qqwq> [1;4mCONNECT[m[1m qqqqqqwqq> [m [1m mq> [1;4mTRANSACTION[m[1m qqj [m [1m [m (B)0[m[1mnotify-clause = [m [1m [m [1mq> [1;4mNOTIFY[m[1m notify-entry-name qq> [1;4mON[m[1m qwqwq> [1;4mBIND[m[1m qqqqqqqqqwqwq> [m [1m x tq> [1;4mCONNECT[m[1m qqqqqqu x [m [1m x mq> [1;4mTRANSACTION[m[1m qqj x [m [1m mqqqqqqqqq , <qqqqqqqqj [m