Examples with Function org.hl7.fhir.r4b.model.ExpressionNode.Function used on opensource projects

Example 31 with Function

use of org.hl7.fhir.r4b.model.ExpressionNode.Function in project org.hl7.fhir.core by hapifhir.

the class FHIRPathEngine method executeType.

private TypeDetails executeType(ExecutionTypeContext context, TypeDetails focus, ExpressionNode exp, boolean atEntry) throws PathEngineException, DefinitionException {
    TypeDetails result = new TypeDetails(null);
    switch(exp.getKind()) {
        case Name:
            if (atEntry && exp.getName().equals("$this")) {
                result.update(context.getThisItem());
            } else if (atEntry && exp.getName().equals("$total")) {
                result.update(anything(CollectionStatus.UNORDERED));
            } else if (atEntry && exp.getName().equals("$index")) {
                result.addType(TypeDetails.FP_Integer);
            } else if (atEntry && focus == null) {
                result.update(executeContextType(context, exp.getName(), exp));
            } else {
                for (String s : focus.getTypes()) {
                    result.update(executeType(s, exp, atEntry));
                }
                if (result.hasNoTypes()) {
                    throw makeException(exp, I18nConstants.FHIRPATH_UNKNOWN_NAME, exp.getName(), focus.describe());
                }
            }
            break;
        case Function:
            result.update(evaluateFunctionType(context, focus, exp));
            break;
        case Unary:
            result.addType(TypeDetails.FP_Integer);
            result.addType(TypeDetails.FP_Decimal);
            result.addType(TypeDetails.FP_Quantity);
            break;
        case Constant:
            result.update(resolveConstantType(context, exp.getConstant(), exp));
            break;
        case Group:
            result.update(executeType(context, focus, exp.getGroup(), atEntry));
    }
    exp.setTypes(result);
    if (exp.getInner() != null) {
        result = executeType(context, result, exp.getInner(), false);
    }
    if (exp.isProximal() && exp.getOperation() != null) {
        ExpressionNode next = exp.getOpNext();
        ExpressionNode last = exp;
        while (next != null) {
            TypeDetails work;
            if (last.getOperation() == Operation.Is || last.getOperation() == Operation.As) {
                work = executeTypeName(context, focus, next, atEntry);
            } else {
                work = executeType(context, focus, next, atEntry);
            }
            result = operateTypes(result, last.getOperation(), work, last);
            last = next;
            next = next.getOpNext();
        }
        exp.setOpTypes(result);
    }
    return result;
}

Example 32 with Function

use of org.hl7.fhir.r4b.model.ExpressionNode.Function in project org.hl7.fhir.core by hapifhir.

the class XhtmlParser method parseLiteral.

private void parseLiteral(StringBuilder s) throws IOException, FHIRFormatError {
    // UInt16 w;
    readChar();
    String c = readUntil(";&'\"><");
    if (c.isEmpty())
        throw new FHIRFormatError("Invalid literal declaration following text: " + s);
    else if (c.charAt(0) == '#') {
        if (isInteger(c.substring(1), 10))
            s.append((char) Integer.parseInt(c.substring(1)));
        else if (c.charAt(1) == 'x' && isInteger(c.substring(2), 16))
            s.append((char) Integer.parseInt(c.substring(2), 16));
    } else if (entities.containsKey(c)) {
        s.append(entities.get(c));
    // what's going on here?
    // the contents that follow already existed, and then I added the routine to populate the entities
    // which was generated from other code. The code that follows is probably redundant, but I haven't
    // cross checked it. some is welcome to do so... (GG 8-Nov 2021)
    } else if (c.equals("apos"))
        s.append('\'');
    else if (c.equals("quot"))
        s.append('"');
    else if (c.equals("nbsp"))
        s.append(XhtmlNode.NBSP);
    else if (c.equals("amp"))
        s.append('&');
    else if (c.equals("lsquo"))
        // right single quotation, U+2019 ISOnum
        s.append((char) 8216);
    else if (c.equals("rsquo"))
        // right single quotation, U+2019 ISOnum
        s.append((char) 8217);
    else if (c.equals("gt"))
        s.append('>');
    else if (c.equals("lt"))
        s.append('<');
    else if (c.equals("copy"))
        s.append((char) 169);
    else if (c.equals("reg"))
        s.append((char) 174);
    else if (c.equals("sect"))
        s.append((char) 0xA7);
    else if (c.equals("fnof"))
        // latin small f with hook = function = florin, U+0192 ISOtech -->
        s.append((char) 402);
    else if (c.equals("Alpha"))
        // greek capital letter alpha, U+0391
        s.append((char) 913);
    else if (c.equals("Beta"))
        // greek capital letter beta, U+0392
        s.append((char) 914);
    else if (c.equals("Gamma"))
        // greek capital letter gamma, U+0393 ISOgrk3
        s.append((char) 915);
    else if (c.equals("Delta"))
        // greek capital letter delta, U+0394 ISOgrk3
        s.append((char) 916);
    else if (c.equals("Epsilon"))
        // greek capital letter epsilon, U+0395
        s.append((char) 917);
    else if (c.equals("Zeta"))
        // greek capital letter zeta, U+0396
        s.append((char) 918);
    else if (c.equals("Eta"))
        // greek capital letter eta, U+0397
        s.append((char) 919);
    else if (c.equals("Theta"))
        // greek capital letter theta, U+0398 ISOgrk3
        s.append((char) 920);
    else if (c.equals("Iota"))
        // greek capital letter iota, U+0399
        s.append((char) 921);
    else if (c.equals("Kappa"))
        // greek capital letter kappa, U+039A
        s.append((char) 922);
    else if (c.equals("Lambda"))
        // greek capital letter lambda, U+039B ISOgrk3
        s.append((char) 923);
    else if (c.equals("Mu"))
        // greek capital letter mu, U+039C
        s.append((char) 924);
    else if (c.equals("Nu"))
        // greek capital letter nu, U+039D
        s.append((char) 925);
    else if (c.equals("Xi"))
        // greek capital letter xi, U+039E ISOgrk3
        s.append((char) 926);
    else if (c.equals("Omicron"))
        // greek capital letter omicron, U+039F
        s.append((char) 927);
    else if (c.equals("Pi"))
        // greek capital letter pi, U+03A0 ISOgrk3
        s.append((char) 928);
    else if (c.equals("Rho"))
        // greek capital letter rho, U+03A1
        s.append((char) 929);
    else if (c.equals("Sigma"))
        // greek capital letter sigma, U+03A3 ISOgrk3
        s.append((char) 931);
    else if (c.equals("Tau"))
        // greek capital letter tau, U+03A4
        s.append((char) 932);
    else if (c.equals("Upsilon"))
        // greek capital letter upsilon, U+03A5 ISOgrk3
        s.append((char) 933);
    else if (c.equals("Phi"))
        // greek capital letter phi, U+03A6 ISOgrk3
        s.append((char) 934);
    else if (c.equals("Chi"))
        // greek capital letter chi, U+03A7
        s.append((char) 935);
    else if (c.equals("Psi"))
        // greek capital letter psi, U+03A8 ISOgrk3
        s.append((char) 936);
    else if (c.equals("Omega"))
        // greek capital letter omega, U+03A9 ISOgrk3
        s.append((char) 937);
    else if (c.equals("alpha"))
        // greek small letter alpha, U+03B1 ISOgrk3
        s.append((char) 945);
    else if (c.equals("beta"))
        // greek small letter beta, U+03B2 ISOgrk3
        s.append((char) 946);
    else if (c.equals("gamma"))
        // greek small letter gamma, U+03B3 ISOgrk3
        s.append((char) 947);
    else if (c.equals("delta"))
        // greek small letter delta, U+03B4 ISOgrk3
        s.append((char) 948);
    else if (c.equals("epsilon"))
        // greek small letter epsilon, U+03B5 ISOgrk3
        s.append((char) 949);
    else if (c.equals("zeta"))
        // greek small letter zeta, U+03B6 ISOgrk3
        s.append((char) 950);
    else if (c.equals("eta"))
        // greek small letter eta, U+03B7 ISOgrk3
        s.append((char) 951);
    else if (c.equals("theta"))
        // greek small letter theta, U+03B8 ISOgrk3
        s.append((char) 952);
    else if (c.equals("iota"))
        // greek small letter iota, U+03B9 ISOgrk3
        s.append((char) 953);
    else if (c.equals("kappa"))
        // greek small letter kappa, U+03BA ISOgrk3
        s.append((char) 954);
    else if (c.equals("lambda"))
        // greek small letter lambda, U+03BB ISOgrk3
        s.append((char) 955);
    else if (c.equals("mu"))
        // greek small letter mu, U+03BC ISOgrk3
        s.append((char) 956);
    else if (c.equals("nu"))
        // greek small letter nu, U+03BD ISOgrk3
        s.append((char) 957);
    else if (c.equals("xi"))
        // greek small letter xi, U+03BE ISOgrk3
        s.append((char) 958);
    else if (c.equals("omicron"))
        // greek small letter omicron, U+03BF NEW
        s.append((char) 959);
    else if (c.equals("pi"))
        // greek small letter pi, U+03C0 ISOgrk3
        s.append((char) 960);
    else if (c.equals("rho"))
        // greek small letter rho, U+03C1 ISOgrk3
        s.append((char) 961);
    else if (c.equals("sigmaf"))
        // greek small letter final sigma, U+03C2 ISOgrk3
        s.append((char) 962);
    else if (c.equals("sigma"))
        // greek small letter sigma, U+03C3 ISOgrk3
        s.append((char) 963);
    else if (c.equals("tau"))
        // greek small letter tau, U+03C4 ISOgrk3
        s.append((char) 964);
    else if (c.equals("upsilon"))
        // greek small letter upsilon, U+03C5 ISOgrk3
        s.append((char) 965);
    else if (c.equals("phi"))
        // greek small letter phi, U+03C6 ISOgrk3
        s.append((char) 966);
    else if (c.equals("chi"))
        // greek small letter chi, U+03C7 ISOgrk3
        s.append((char) 967);
    else if (c.equals("psi"))
        // greek small letter psi, U+03C8 ISOgrk3
        s.append((char) 968);
    else if (c.equals("omega"))
        // greek small letter omega, U+03C9 ISOgrk3
        s.append((char) 969);
    else if (c.equals("thetasym"))
        // greek small letter theta symbol, U+03D1 NEW
        s.append((char) 977);
    else if (c.equals("upsih"))
        // greek upsilon with hook symbol, U+03D2 NEW
        s.append((char) 978);
    else if (c.equals("piv"))
        // greek pi symbol, U+03D6 ISOgrk3
        s.append((char) 982);
    else if (c.equals("bull"))
        // bullet = black small circle, U+2022 ISOpub
        s.append((char) 8226);
    else if (c.equals("hellip"))
        // horizontal ellipsis = three dot leader, U+2026 ISOpub
        s.append((char) 8230);
    else if (c.equals("prime"))
        // prime = minutes = feet, U+2032 ISOtech
        s.append((char) 8242);
    else if (c.equals("Prime"))
        // double prime = seconds = inches, U+2033 ISOtech
        s.append((char) 8243);
    else if (c.equals("oline"))
        // overline = spacing overscore, U+203E NEW
        s.append((char) 8254);
    else if (c.equals("frasl"))
        // fraction slash, U+2044 NEW
        s.append((char) 8260);
    else if (c.equals("weierp"))
        // script capital P = power set = Weierstrass p, U+2118 ISOamso
        s.append((char) 8472);
    else if (c.equals("image"))
        // blackletter capital I = imaginary part, U+2111 ISOamso
        s.append((char) 8465);
    else if (c.equals("real"))
        // blackletter capital R = real part symbol, U+211C ISOamso
        s.append((char) 8476);
    else if (c.equals("trade"))
        // trade mark sign, U+2122 ISOnum
        s.append((char) 8482);
    else if (c.equals("alefsym"))
        // alef symbol = first transfinite cardinal, U+2135 NEW
        s.append((char) 8501);
    else if (c.equals("larr"))
        // leftwards arrow, U+2190 ISOnum
        s.append((char) 8592);
    else if (c.equals("uarr"))
        // upwards arrow, U+2191 ISOnum
        s.append((char) 8593);
    else if (c.equals("rarr"))
        // rightwards arrow, U+2192 ISOnum
        s.append((char) 8594);
    else if (c.equals("darr"))
        // downwards arrow, U+2193 ISOnum
        s.append((char) 8595);
    else if (c.equals("harr"))
        // left right arrow, U+2194 ISOamsa
        s.append((char) 8596);
    else if (c.equals("crarr"))
        // downwards arrow with corner leftwards = carriage return, U+21B5 NEW
        s.append((char) 8629);
    else if (c.equals("lArr"))
        // leftwards double arrow, U+21D0 ISOtech
        s.append((char) 8656);
    else if (c.equals("uArr"))
        // upwards double arrow, U+21D1 ISOamsa
        s.append((char) 8657);
    else if (c.equals("rArr"))
        // rightwards double arrow, U+21D2 ISOtech
        s.append((char) 8658);
    else if (c.equals("dArr"))
        // downwards double arrow, U+21D3 ISOamsa
        s.append((char) 8659);
    else if (c.equals("hArr"))
        // left right double arrow, U+21D4 ISOamsa
        s.append((char) 8660);
    else if (c.equals("forall"))
        // for all, U+2200 ISOtech
        s.append((char) 8704);
    else if (c.equals("part"))
        // partial differential, U+2202 ISOtech
        s.append((char) 8706);
    else if (c.equals("exist"))
        // there exists, U+2203 ISOtech
        s.append((char) 8707);
    else if (c.equals("empty"))
        // empty set = null set = diameter, U+2205 ISOamso
        s.append((char) 8709);
    else if (c.equals("nabla"))
        // nabla = backward difference, U+2207 ISOtech
        s.append((char) 8711);
    else if (c.equals("isin"))
        // element of, U+2208 ISOtech
        s.append((char) 8712);
    else if (c.equals("notin"))
        // not an element of, U+2209 ISOtech
        s.append((char) 8713);
    else if (c.equals("ni"))
        // contains as member, U+220B ISOtech
        s.append((char) 8715);
    else if (c.equals("prod"))
        // n-ary product = product sign, U+220F ISOamsb
        s.append((char) 8719);
    else if (c.equals("sum"))
        // n-ary sumation, U+2211 ISOamsb
        s.append((char) 8721);
    else if (c.equals("minus"))
        // minus sign, U+2212 ISOtech
        s.append((char) 8722);
    else if (c.equals("lowast"))
        // asterisk operator, U+2217 ISOtech
        s.append((char) 8727);
    else if (c.equals("radic"))
        // square root = radical sign, U+221A ISOtech
        s.append((char) 8730);
    else if (c.equals("prop"))
        // proportional to, U+221D ISOtech
        s.append((char) 8733);
    else if (c.equals("infin"))
        // infinity, U+221E ISOtech -->
        s.append((char) 8734);
    else if (c.equals("ang"))
        // angle, U+2220 ISOamso
        s.append((char) 8736);
    else if (c.equals("and"))
        // logical and = wedge, U+2227 ISOtech
        s.append((char) 8743);
    else if (c.equals("or"))
        // logical or = vee, U+2228 ISOtech
        s.append((char) 8744);
    else if (c.equals("cap"))
        // intersection = cap, U+2229 ISOtech
        s.append((char) 8745);
    else if (c.equals("cup"))
        // union = cup, U+222A ISOtech
        s.append((char) 8746);
    else if (c.equals("int"))
        // integral, U+222B ISOtech
        s.append((char) 8747);
    else if (c.equals("there4"))
        // therefore, U+2234 ISOtech
        s.append((char) 8756);
    else if (c.equals("sim"))
        // tilde operator = varies with = similar t U+223C ISOtech
        s.append((char) 8764);
    else if (c.equals("cong"))
        // approximately equal to, U+2245 ISOtec
        s.append((char) 8773);
    else if (c.equals("asymp"))
        // almost equal to = asymptotic to, U+2248 ISOamsr
        s.append((char) 8776);
    else if (c.equals("ne"))
        // not equal to, U+2260 ISOtech
        s.append((char) 8800);
    else if (c.equals("equiv"))
        // identical to, U+2261 ISOtech
        s.append((char) 8801);
    else if (c.equals("le"))
        // less-than or equal to, U+2264 ISOtech
        s.append((char) 8804);
    else if (c.equals("ge"))
        // greater-than or equal to, U+2265 ISOtech
        s.append((char) 8805);
    else if (c.equals("sub"))
        // subset of, U+2282 ISOtech
        s.append((char) 8834);
    else if (c.equals("sup"))
        // superset of, U+2283 ISOtech
        s.append((char) 8835);
    else if (c.equals("nsub"))
        // not a subset of, U+2284 ISOamsn
        s.append((char) 8836);
    else if (c.equals("sube"))
        // subset of or equal to, U+2286 ISOtech
        s.append((char) 8838);
    else if (c.equals("supe"))
        // superset of or equal to, U+2287 ISOtech
        s.append((char) 8839);
    else if (c.equals("oplus"))
        // circled plus = direct sum, U+2295 ISOamsb
        s.append((char) 8853);
    else if (c.equals("otimes"))
        // circled times = vector product, U+2297 ISOamsb -->
        s.append((char) 8855);
    else if (c.equals("perp"))
        // up tack = orthogonal to = perpendicular, U+22A5 ISOtech
        s.append((char) 8869);
    else if (c.equals("sdot"))
        // dot operator, U+22C5 ISOamsb
        s.append((char) 8901);
    else if (c.equals("lceil"))
        // left ceiling = apl upstile, U+2308 ISOamsc
        s.append((char) 8968);
    else if (c.equals("rceil"))
        // right ceiling, U+2309 ISOamsc
        s.append((char) 8969);
    else if (c.equals("lfloor"))
        // left floor = apl downstile, U+230A ISOamsc
        s.append((char) 8970);
    else if (c.equals("rfloor"))
        // right floor, U+230B ISOamsc
        s.append((char) 8971);
    else if (c.equals("lang"))
        // left-pointing angle bracket = bra, U+2329 ISOtech
        s.append((char) 9001);
    else if (c.equals("rang"))
        // right-pointing angle bracket = ket, U+232A ISOtech
        s.append((char) 9002);
    else if (c.equals("loz"))
        // lozenge, U+25CA ISOpub
        s.append((char) 9674);
    else if (c.equals("spades"))
        // black spade suit, U+2660 ISOpub
        s.append((char) 9824);
    else if (c.equals("clubs"))
        // black club suit = shamrock, U+2663 ISOpub
        s.append((char) 9827);
    else if (c.equals("hearts"))
        // black heart suit = valentine, U+2665 ISOpub
        s.append((char) 9829);
    else if (c.equals("diams"))
        // black diamond suit, U+2666 ISOpub --
        s.append((char) 9830);
    else if (c.equals("ndash"))
        s.append((char) 8211);
    else if (c.equals("mdash"))
        s.append((char) 8212);
    else if (c.equals("ldquo"))
        s.append((char) 8221);
    else if (c.equals("rdquo"))
        s.append((char) 201D);
    else if (c.equals("frac14"))
        s.append((char) 188);
    else if (!mustBeWellFormed) {
        // we guess that this is an accidentally unescaped &
        s.append("&" + c);
    } else {
        throw new FHIRFormatError("unable to parse character reference '" + c + "'' (last text = '" + lastText + "'" + descLoc());
    }
}

Example 33 with Function

use of org.hl7.fhir.r4b.model.ExpressionNode.Function in project pathling by aehrc.

the class ReverseResolveFunction method invoke.

@Nonnull
@Override
public FhirPath invoke(@Nonnull final NamedFunctionInput input) {
    checkUserInput(input.getInput() instanceof ResourcePath, "Input to " + NAME + " function must be a resource: " + input.getInput().getExpression());
    final ResourcePath inputPath = (ResourcePath) input.getInput();
    final String expression = NamedFunction.expressionFromInput(input, NAME);
    checkUserInput(input.getArguments().size() == 1, "reverseResolve function accepts a single argument: " + expression);
    final FhirPath argument = input.getArguments().get(0);
    checkUserInput(argument instanceof ReferencePath, "Argument to reverseResolve function must be a Reference: " + argument.getExpression());
    final ReferencePath referencePath = (ReferencePath) argument;
    // Check that the input type is one of the possible types specified by the argument.
    final Set<ResourceType> argumentTypes = ((ReferencePath) argument).getResourceTypes();
    final ResourceType inputType = inputPath.getResourceType();
    checkUserInput(argumentTypes.contains(inputType), "Reference in argument to reverseResolve does not support input resource type: " + expression);
    // Do a left outer join from the input to the argument dataset using the reference field in the
    // argument.
    final Column joinCondition = referencePath.getResourceEquality(inputPath);
    final Dataset<Row> dataset = join(referencePath.getDataset(), inputPath.getDataset(), joinCondition, JoinType.RIGHT_OUTER);
    // Check the argument for information about the current resource that it originated from - if it
    // is not present, reverse reference resolution will not be possible.
    final NonLiteralPath nonLiteralArgument = (NonLiteralPath) argument;
    checkUserInput(nonLiteralArgument.getCurrentResource().isPresent(), "Argument to reverseResolve must be an element that is navigable from a " + "target resource type: " + expression);
    final ResourcePath currentResource = nonLiteralArgument.getCurrentResource().get();
    final Optional<Column> thisColumn = inputPath.getThisColumn();
    // TODO: Consider removing in the future once we separate ordering from element ID.
    // Create an synthetic element ID column for reverse resolved resources.
    final Column currentResourceValue = currentResource.getValueColumn();
    final WindowSpec windowSpec = Window.partitionBy(inputPath.getIdColumn(), inputPath.getOrderingColumn()).orderBy(currentResourceValue);
    // row_number() is 1-based, and we use 0-based indexes - thus (minus(1)).
    final Column currentResourceIndex = when(currentResourceValue.isNull(), lit(null)).otherwise(row_number().over(windowSpec).minus(lit(1)));
    // We need to add the synthetic EID column to the parser context so that it can be used within
    // joins in certain situations, e.g. extract.
    final Column syntheticEid = inputPath.expandEid(currentResourceIndex);
    final DatasetWithColumn datasetWithEid = QueryHelpers.createColumn(dataset, syntheticEid);
    input.getContext().getNodeIdColumns().putIfAbsent(expression, datasetWithEid.getColumn());
    final ResourcePath result = currentResource.copy(expression, datasetWithEid.getDataset(), inputPath.getIdColumn(), Optional.of(syntheticEid), currentResource.getValueColumn(), false, thisColumn);
    result.setCurrentResource(currentResource);
    return result;
}

Example 34 with Function

use of org.hl7.fhir.r4b.model.ExpressionNode.Function in project bunsen by cerner.

the class ConceptMaps method getConceptMap.

/**
 * Returns the concept map with the given uri and version, or null if there is no such map.
 *
 * @param uri the uri of the map to return
 * @param version the version of the map to return
 * @return the specified concept map.
 */
public ConceptMap getConceptMap(String uri, String version) {
    // Load the concept maps, which may contain zero items
    // if the map does not exist.
    // Typecast necessary to placate the Java compiler calling this Scala function.
    ConceptMap[] maps = (ConceptMap[]) this.conceptMaps.filter(functions.col("url").equalTo(lit(uri)).and(functions.col("version").equalTo(lit(version)))).head(1);
    if (maps.length == 0) {
        return null;
    } else {
        ConceptMap map = maps[0];
        Dataset<Mapping> filteredMappings = getMappings(uri, version);
        addToConceptMap(map, filteredMappings);
        return map;
    }
}

Example 35 with Function

use of org.hl7.fhir.r4b.model.ExpressionNode.Function in project bunsen by cerner.

the class ValueSets method getValueSet.

/**
 * Returns the value set with the given uri and version, or null if there is no such value set.
 *
 * @param uri the uri of the value set to return
 * @param version the version of the value set to return
 * @return the specified value set.
 */
public ValueSet getValueSet(String uri, String version) {
    // Load the value sets, which may contain zero items if the value set does not exist
    // Typecast necessary to placate the Java compiler calling this Scala function
    ValueSet[] valueSets = (ValueSet[]) this.valueSets.filter(col("url").equalTo(lit(uri)).and(col("version").equalTo(lit(version)))).head(1);
    if (valueSets.length == 0) {
        return null;
    } else {
        ValueSet valueSet = valueSets[0];
        Dataset<Value> filteredValues = getValues(uri, version);
        addToValueSet(valueSet, filteredValues);
        return valueSet;
    }
}