diff --git a/library/L3_Templates.ttcn b/library/L3_Templates.ttcn
index a2b872c..3203b0e 100644
--- a/library/L3_Templates.ttcn
+++ b/library/L3_Templates.ttcn
@@ -19,6 +19,9 @@
 import from MobileL3_GMM_SM_Types all;
 //import from MobileL3_SMS_Types all;
 
+/* TS 24.007 Table 11.3 TI Flag */
+const BIT1 c_TIF_ORIG := '0'B;
+const BIT1 c_TIF_REPL := '1'B;
 
 type enumerated CmServiceType {
 	CM_TYPE_MO_CALL		('0001'B),
@@ -704,7 +707,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '0'B,
+			tiFlag := c_TIF_ORIG,
 			tIExtension := omit
 		}
 	}
@@ -776,7 +779,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '0'B,
+			tiFlag := c_TIF_ORIG,
 			tIExtension := omit
 		}
 	},
@@ -818,7 +821,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '0'B,
+			tiFlag := c_TIF_ORIG,
 			tIExtension := omit
 		}
 	},
@@ -890,7 +893,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '1'B,
+			tiFlag := c_TIF_REPL,
 			tIExtension := omit
 		}
 	},
@@ -912,7 +915,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '1'B,
+			tiFlag := c_TIF_REPL,
 			tIExtension := omit
 		}
 	},
@@ -934,7 +937,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '1'B,
+			tiFlag := c_TIF_REPL,
 			tIExtension := omit
 		}
 	},
@@ -958,7 +961,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '1'B,
+			tiFlag := c_TIF_REPL,
 			tIExtension := omit
 		}
 	},
@@ -982,7 +985,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '0'B,
+			tiFlag := c_TIF_ORIG,
 			tIExtension := omit
 		}
 	},
@@ -1001,7 +1004,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '0'B,
+			tiFlag := c_TIF_ORIG,
 			tIExtension := omit
 		}
 	},
@@ -1202,7 +1205,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '1'B, /* response from destination */
+			tiFlag := c_TIF_REPL, /* response from destination */
 			tIExtension := omit
 		}
 	},
@@ -1231,7 +1234,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := int2bit(tid, 3),
-			tiFlag := '0'B, /* from originator */
+			tiFlag := c_TIF_ORIG, /* from originator */
 			tIExtension := omit
 		}
 	},
@@ -1887,7 +1890,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := tid,
-			tiFlag := '0'B,
+			tiFlag := c_TIF_ORIG,
 			tIExtension := omit
 		}
 	},
@@ -1920,7 +1923,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := tid,
-			tiFlag := '1'B,
+			tiFlag := c_TIF_REPL,
 			tIExtension := omit
 		}
 	},
@@ -1945,7 +1948,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := tid,
-			tiFlag := '1'B,
+			tiFlag := c_TIF_REPL,
 			tIExtension := omit
 		}
 	},
@@ -1979,7 +1982,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := tid,
-			tiFlag := '0'B,
+			tiFlag := c_TIF_ORIG,
 			tIExtension := omit
 		}
 	},
@@ -2012,7 +2015,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := tid,
-			tiFlag := '1'B,
+			tiFlag := c_TIF_REPL,
 			tIExtension := omit
 		}
 	},
@@ -2046,7 +2049,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := tid,
-			tiFlag := '1'B,
+			tiFlag := c_TIF_REPL,
 			tIExtension := omit
 		}
 	},
@@ -2079,7 +2082,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := tid,
-			tiFlag := '1'B,
+			tiFlag := c_TIF_REPL,
 			tIExtension := omit
 		}
 	},
@@ -2101,7 +2104,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := tid,
-			tiFlag := '0'B,
+			tiFlag := c_TIF_ORIG, 
 			tIExtension := omit
 		}
 	},
@@ -2123,7 +2126,7 @@
 	tiOrSkip := {
 		transactionId := {
 			tio := tid,
-			tiFlag := '0'B,
+			tiFlag := c_TIF_ORIG,
 			tIExtension := omit
 		}
 	},