Routine: MAG7UD

Information

MAG7UD ;WOIFO/MLH - Imaging - HL7 - utilities - dates ; 11/15/2006 08:35

Source file <MAG7UD.m>

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Imaging	1	MAGDHLS

Name	Comments	DBIA/ICR reference
STRIP0(XDATELOC)	; FUNCTION - strip zeros off HL7 dates ; input: XDATELOC variable containing any 8-digit HL7 date with or w/o TZ offset (+/-ZZZZ) ; function return: always 0 (success) ;

Name	Field # of Occurrence
MAGDATE	STRIP0+4~, STRIP0+9, STRIP0+10, STRIP0+12, STRIP0+13, STRIP0+14, STRIP0+15
OFSGN	STRIP0+5~, STRIP0+10*, STRIP0+11, STRIP0+12, STRIP0+15
TZ	STRIP0+6~, STRIP0+12*, STRIP0+15
XDATELOC	STRIP0~, STRIP0+9, STRIP0+15