Untitled

if($measure->MeasureType() eq 'ATHENA') {
			my $programkey = $measure->ProgramKey();
			my $enrolled = 0;
			my %sharedp4psubmissiondatavalues = (
				PROGRAMKEY => $programkey,
			);
			for my $criteria (
				sort {
					$a->Priority() <=> $b->Priority()
					} @{ $measure->Criteria() }
				) {
					if($criteria->Type() eq 'TASKCOMPLETION') {
						my $enrolled = $enrolledp4pmeasuresubscriptionids{ $criteria->P4PMeasureSubscriptionID } ? 1: 0;
						for my $enrollmentkey (qw(
							ENROLLED
							SHOWONRECEIPT
						)) {
							if (
								$enrollmentkey eq 'SHOWONRECEIPT'
								&& $class->ShowReceiptAtCriteriaLevel()
							) {
								# Skip if SHOWONRECEIPT is stored at criteria level.
								next;
							}

							push(
								@enrollmentupdates,
								{
									%sharedp4psubmissiondatavalues,
									KEY => $enrollmentkey,
									VALUE => $enrolled,
								},
							);
						}
					}
				}
		}