IF PTC_WM_LIFECYCLE_STATE:D == "In Work"
STATE_MESSAGE:D = "NOT FOR PRODUCTION USE"
DRW_REV:D = PTC_WM_VERSION:D
ENDIF
IF PTC_WM_LIFECYCLE_STATE:D == "Prototype"
STATE_MESSAGE:D = "PROTOTYPE USE ONLY"
DRW_REV:D = PTC_WM_REVISION:D
ENDIF
IF PTC_WM_LIFECYCLE_STATE:D == "Production Change"
STATE_MESSAGE:D = "UNDERGOING CHANGE - NOT FOR PRODUCTION USE"
DRW_REV:D = PTC_WM_VERSION:D
ENDIF
IF PTC_WM_LIFECYCLE_STATE:D == "Preproduction"
STATE_MESSAGE:D = "PRE-PRODUCITON USE ONLY"
DRW_REV:D = PTC_WM_REVISION:D
ENDIF
IF PTC_WM_LIFECYCLE_STATE:D == "Released"
STATE_MESSAGE:D = "RELEASED FOR PRODUCTION USE"
DRW_REV:D = PTC_WM_REVISION:D
ENDIF
IF PTC_WM_LIFECYCLE_STATE:D == "Under Review"
STATE_MESSAGE:D = "UNDER REVIEW - NOT FOR PRODUCTION USE"
DRW_REV:D = PTC_WM_VERSION:D
ENDIF
IF PTC_WM_LIFECYCLE_STATE:D == "Obsolete"
STATE_MESSAGE:D = "OBSOLETE"
DRW_REV:D = PTC_WM_REVISION:D
ENDIF
IF PTC_WM_LIFECYCLE_STATE:D == "Locked"
STATE_MESSAGE:D = "LOCKED"
DRW_REV:D = PTC_WM_VERSION:D
ENDIF

CB_NL1:D = search(PTC_WM_CREATED_BY:D," ")+1
CB_NL2:D = search(PTC_WM_CREATED_BY:D,"(")-1
CB_NL3:D = CB_NL2:D - CB_NL1:D
CB_FIRST_INITIAL:D = extract(PTC_WM_CREATED_BY:D,1,1)
CB_LAST_NAME:D = extract(PTC_WM_CREATED_BY:D,CB_NL1:D,CB_NL3:D)
CREATED_BY:D = CB_FIRST_INITIAL:D+"."+CB_LAST_NAME:D


MB_NL1:D = search(PTC_WM_MODIFIED_BY:D," ")+1
MB_NL2:D = search(PTC_WM_MODIFIED_BY:D,"(")-1
MB_NL3:D = MB_NL2:D - MB_NL1:D
MB_FIRST_INITIAL:D = extract(PTC_WM_MODIFIED_BY:D,1,1)
MB_LAST_NAME:D = extract(PTC_WM_MODIFIED_BY:D,MB_NL1:D,MB_NL3:D)
MODIFIED_BY:D = MB_FIRST_INITIAL:D+"."+MB_LAST_NAME:D