EnsLib.InteropTools.HL7.Cloverleaf.Parser
class EnsLib.InteropTools.HL7.Cloverleaf.Parser extends EnsLib.InteropTools.HL7.Common
Property Inventory
Method Inventory
- AddTableToCopy()
- CodeWalkNode()
- CodeWalkopadd()
- CodeWalkopbulkcopy()
- CodeWalkopcall()
- CodeWalkopcomment()
- CodeWalkopcontinue()
- CodeWalkopcopy()
- CodeWalkopdatecopyopt()
- CodeWalkopdiv()
- CodeWalkopif()
- CodeWalkopiterate()
- CodeWalkopmul()
- CodeWalkoppathcopy()
- CodeWalkopsend()
- CodeWalkopsub()
- CodeWalkopsuppress()
- CodeWalkoptable()
- CodeWalkpblock()
- CodeWalkprologue()
- CommonPreFunctions()
- EvaluateValue()
- GetConditionValues()
- GetConditionals()
- GetConditions()
- GetNodeData()
- GetPREPOST()
- GetString()
- GetVariable()
- Math()
- OPCopySet()
- ParseString()
- ParseTCL()
- Simplify()
- SimplifyIN()
- SimplifyOut()
- StoreMath()
- StripBraces()
- TCLComment()
- TCLGetVariable()
- TCLGetVariableProcessing()
- TCLbracketed()
- TCLcallechocommand()
- TCLcalllassigncommand()
- TCLcallothercommand()
- TCLcallregsubcommand()
- TCLcallsetcommand()
- TCLexpr()
- TCLlength()
- TCLlindex()
- TCLrange()
- TCLregsub()
- TCLstring()
- TCLtolower()
- TCLtoupper()
- TCLtrim()
- TCLtrimleft()
- TCLtrimright()
- TCLvar()
- TCLvarvalue()
- UnknownNode()
- instrTerm()
- preblockValues()
Parameters
parameter TCLLOGECHO = 1;
Properties
property TCLMD5 as %String;
Property methods: TCLMD5DisplayToLogical(), TCLMD5Get(), TCLMD5IsValid(), TCLMD5LogicalToDisplay(), TCLMD5LogicalToOdbc(), TCLMD5Normalize(), TCLMD5Set()
property TCLVariables as %String [ MultiDimensional ];
Property methods: TCLVariablesDisplayToLogical(), TCLVariablesGet(), TCLVariablesIsValid(), TCLVariablesLogicalToDisplay(), TCLVariablesLogicalToOdbc(), TCLVariablesNormalize(), TCLVariablesSet()
Methods
method AddTableToCopy(pVariables, pCodeSet)
method CodeWalkNode(pNode As %XML.Node, pLevel=0, pSet=1, pCommandLine="", pDebug=1, pFileName)
method CodeWalkopadd(pNode As %XML.Node, ByRef pCode)
Math function add
method CodeWalkopbulkcopy(pNode As %XML.Node, ByRef pCode)
method CodeWalkopcall(pNode As %XML.Node, ByRef pCode)
method CodeWalkopcomment(pNode As %XML.Node, ByRef pCode)
method CodeWalkopcontinue(pNode As %XML.Node, ByRef pCode)
method CodeWalkopcopy(pNode As %XML.Node, ByRef pCode, pNodeData="{OPCOPY}")
method CodeWalkopdatecopyopt(pNode As %XML.Node, ByRef pCode)
method CodeWalkopdiv(pNode As %XML.Node, ByRef pCode)
Math function multiply
method CodeWalkopif(pNode As %XML.Node, ByRef pCode)
method CodeWalkopiterate(pNode As %XML.Node, ByRef pCode)
method CodeWalkopmul(pNode As %XML.Node, ByRef pCode)
Math function multiply
method CodeWalkoppathcopy(pNode As %XML.Node, ByRef pCode)
method CodeWalkopsend(pNode As %XML.Node, ByRef pCode)
method CodeWalkopsub(pNode As %XML.Node, ByRef pCode)
Math function subtract
method CodeWalkopsuppress(pNode As %XML.Node, ByRef pCode)
method CodeWalkoptable(pNode As %XML.Node, ByRef pCode)
/
method CodeWalkpblock(pNode As %XML.Node, ByRef pCode)
method CodeWalkprologue(pNode As %XML.Node, pLevel=0, pSet=1, pCommandLine="", pDebug=1, pFileName)
method CommonPreFunctions(pNode, pMethodCode, pFunction, ByRef pCode, ByRef pVariables, Output pProcessed, Output pParsedTCL)
Override
pNode - the XML node object working on
pMethodCode - object representing method with items processed so far
pFunction full function expression where some are function parameter the function is used for the method but the full value is passed in for parameters pFunction=$lb("set xlateOutVals [lindex $xlateInVals 0]")
pCode - this Code item being inserted
pVariables - array containing nodes "IN","OUT","PRE","POST","ERR","DFLT"
pProcessed - set to 1 when successfully parsed
method EvaluateValue(pValue, pSourceTarget)
method GetConditionValues(pNode As %XML.Node, ByRef pData)
method GetConditions(pNode As %XML.Node, pCodeIf As EnsLib.InteropTools.CodeBuilder.CodeIf)
method GetNodeData(pParsedTCL, ByRef pNodes, pNextSibling=1, pAllowEmpty=0) as %String
classmethod GetPREPOST(pText, pType)
classmethod GetString(pType, pString="", pCode As EnsLib.InteropTools.CodeBuilder.CodeItem, pSeparator="")
turn their string into ours
{{0(0).PID(0).#5(0).[1]} {= } {0(0).PID(0).#5(0).[2]}}
==> source.{{0(0).PID(0).#5(0).[1]} _ " " _ source.{0(0).PID(0).#5(0).[2]}
{{~0(0).MSH(0).#4(0).[0]}}
==> target.{0(0).MSH(0).#4(0).[0]}
method GetVariable(pType, pArray="", pCode As EnsLib.InteropTools.CodeBuilder.CodeItem, pSeparator="")
method Math(pNode As %XML.Node, ByRef pCode, pText="")
method OPCopySet(pNode As %XML.Node, ByRef pDTLCode, ByRef pVariables)
classmethod ParseString(pArray="")
method ParseTCL(pText, pXML) as %Status
method Simplify(pNode, ByRef pData, pStrip="", pSourceTarget="")
method SimplifyIN(ByRef pVariables, pDTLCode, pNode)
method SimplifyOut(pNode, ByRef pData, pStrip="")
method StoreMath(pNode As %XML.Node, ByRef pCode, pPRE="", ByRef pInValues, ByRef pOutValues, pOperator, pPOST="")
method StripBraces(ByRef pArray)
method TCLComment(pParsedTCL, Output pProcessed)
method TCLGetVariable(pParsedTCL, ByRef pThisExpr, pNextSibling=1) as %String
method TCLGetVariableProcessing(pVariable)
method TCLbracketed(ByRef pParsedTCL, pThisExpr)
method TCLcallechocommand(ByRef pParsedTCL) as %Status
method TCLcalllassigncommand(ByRef pParsedTCL) as %Status
method TCLcallothercommand(ByRef pParsedTCL) as %Status
method TCLcallregsubcommand(ByRef pParsedTCL) as %Status
regsub -all {[^0-9]} $xlateInVals "" $xlateOutVals
regsub-all{[^0-9]} $xlateInVals "" xlateOutVals
**** Not Currently Implemented **** ending line ..TCLVariables("pProcessed")=0
method TCLcallsetcommand(ByRef pParsedTCL) as %Status
method TCLexpr(pParsedTCL, pThisExpr="") as %String
could be expr/term/bracketed or expr/term/var
method TCLlength(ByRef pParsedTCL, pThisExpr)
method TCLlindex(ByRef pParsedTCL, pThisExpr)
method TCLrange(ByRef pParsedTCL, pThisExpr)
method TCLregsub(ByRef pParsedTCL, pThisExpr)
method TCLstring(ByRef pParsedTCL, pThisExpr)
method TCLtolower(ByRef pParsedTCL, pThisExpr)
method TCLtoupper(ByRef pParsedTCL, pThisExpr)
method TCLtrim(ByRef pParsedTCL, pThisExpr, pTrimWhere="<>")
method TCLtrimleft(ByRef pParsedTCL, pThisExpr)
method TCLtrimright(ByRef pParsedTCL, pThisExpr)
method TCLvar(ByRef pParsedTCL, pThisExpr)
method TCLvarvalue(ByRef pParsedTCL, pThisExpr)
method UnknownNode(pNode As %XML.Node, ByRef pCode)
method instrTerm(pNode)
method preblockValues(pNode, ByRef pData, pStrip="", pSingleValue=0) as %String
Build an array of values found in the preblockbody
Inherited Members
Inherited Properties
- Annotate
- Bail
- Code
- Debug
- Filename
- FixNote
- InputParameters
- NoteVariable
- Report
- SelectedTranslation
- VariableReplacement
Inherited Methods
- %AddToSaveSet()
- %ClassIsLatestVersion()
- %ClassName()
- %ConstructClone()
- %DispatchClassMethod()
- %DispatchGetModified()
- %DispatchGetProperty()
- %DispatchMethod()
- %DispatchSetModified()
- %DispatchSetMultidimProperty()
- %DispatchSetProperty()
- %Extends()
- %GetParameter()
- %IsA()
- %IsModified()
- %New()
- %NormalizeObject()
- %ObjectModified()
- %OriginalNamespace()
- %PackageName()
- %RemoveFromSaveSet()
- %SerializeObject()
- %SetModified()
- %ValidateObject()
- AddAnnotation()
- BuildClass()
- CodeOutput()
- CodeWalk()
- CodeWalkChildren()
- CompileJava()
- Count()
- DTLClassname()
- DereferenceVariables()
- Files()
- FixNote()
- GetClassName()
- NodeAsText()
- NoteVariable()
- ParseInputParameters()
- ProcessReplaceCollection()
- Replace()
- ReplaceVarsCodeCOS()
- ReplaceVarsCodeCase()
- ReplaceVarsCodeCaseDefault()
- ReplaceVarsCodeForEach()
- ReplaceVarsCodeIf()
- ReplaceVarsCodeSet()
- ReplaceVarsCodeSwitch()
- ReportItem()
- ScriptToXML()
- UpdateCode()
- imCodeWalk()