Skip to main content

EnsLib.InteropTools.HL7.Cloverleaf.Parser

class EnsLib.InteropTools.HL7.Cloverleaf.Parser extends EnsLib.InteropTools.HL7.Common

Property Inventory

Method Inventory

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)
{ OP COMMENT } { COMMENT {if the transaction has an account number => 9, it's an Epic transaction. Change MSH-4, MSH-6, and PID-3.4 to EHIM} }
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)
{OPIF}{REM1}{ERR0}{COND{0(0).FT1(0).#2(0).[0]eq@null}}{THENBODY{{{OPCOPY}{ERR0}{PRE{setxlateOutVals[stringrange$xlateInVals1518]}}{IN{{0(0).MSH(0).#10(0).[0]}}}{OUT@seqnum}}{{OPCOPY}{ERR0}{IN{{0(0).FT1(0).#3(0).[0]}@seqnum}}{OUT{{1(0).0(0).FT1(0).#2(0).[0]}}}{COPYSEP{}}}}}{ELSEBODY{{{OPCOPY}{ERR0}{IN0(0).FT1(0).#2(0)}{OUT1(0).0(0).FT1(0).#2(0)}}}}
method CodeWalkopiterate(pNode As %XML.Node, ByRef pCode)
{OPITERATE}{BASIS1(0).0(0).0(0).PID(0).#3}{VAR%f1}{TYPEfield}{BODY{{{OPCOMMENT}{COMMENT{12/14/15readingMRNtodetermineiftestorproducitonmessagethisisfortheCernersystem,setting@prefixtofirstcharacteroftheMRN.IF1=PRODanyothercharacter-TEST}}}{{OPIF}{ERR0}{COND{1(0).0(0).0(0).PID(0).#3(%f1).[3]eq=VCMRN}}{THENBODY{{{OPCOPY}{ERR0}{PRE{#echoMRN=$xlateInValssetxlateOutVals[stringrange$xlateInVals00]#echoout$xlateOutVals}}{IN{{1(0).0(0).0(0).PID(0).#3(%f1).[0]}}}{OUT@prefix}}}}{ELSEBODY{}}}}}
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 GetConditionals(pNode As %XML.Node, pData) as %String
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
lassign$xlateInValslname
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

Inherited Methods

Subclasses

FeedbackOpens in a new tab