ABM47IT.m

ABM47IT ; IHS/ASDST/DMJ - INPUT TRANSFORM FILE 9002274.5, FIELD .47 ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 I $L(X)>25 K X Q

 I $L(X)<1 K X Q

 S X=$$LWC^ABMERUTL(X)

 I ^%ZOSF("OS")["MSM-UNIX" D

 .S X=$TR(X,"\","/")

 .S:$E(X)'="/" X="/"_X

 .S:$E(X,$L(X))'="/" X=X_"/"

 Q

ABM47IT   ; IHS/ASDST/DMJ - INPUT TRANSFORM FILE 9002274.5, FIELD .47 ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2        IF $LENGTH(X)>25

               KILL X

               QUIT 

 +3        IF $LENGTH(X)<1

               KILL X

               QUIT 

 +4        SET X=$$LWC^ABMERUTL(X)

 +5        IF ^%ZOSF("OS")["MSM-UNIX"

               Begin DoDot:1

 +6                SET X=$TRANSLATE(X,"\","/")

 +7                IF $EXTRACT(X)'="/"

                       SET X="/"_X

 +8                IF $EXTRACT(X,$LENGTH(X))'="/"

                       SET X=X_"/"

               End DoDot:1

 +9        QUIT