BAR17IT.m

BAR17IT ; IHS/SD/LSL - INPUT TRANFORM FILE 90052.06, FIELD 17 3/12/02 2:40:05 PM ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**5**;JUN 22, 2008

 ;

 ; IHS/SD/SDR - 03/12/02 - V1.6 Patch 2 - NOIS XXX-0202-200181

 ;     Routine created.

 ;     Input transform for field 17 of file 90052.06

 ;

 ; *********************************************************************

 ;I $L(X)>25 K X Q

 I $L(X)>40 K X Q  ;BAR*1.8*5 IHS/SD/TPF 4/17/2008 FOUND TOO SHORT DURING TESTING

 I $L(X)<1 K X Q

 S X=$$LWC^BARUTL(X)

 ;

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

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

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

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

 ;

 I ^%ZOSF("OS")["Windows NT" D

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

 Q

BAR17IT   ; IHS/SD/LSL - INPUT TRANFORM FILE 90052.06, FIELD 17 3/12/02 2:40:05 PM ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**5**;JUN 22, 2008

 +2       ;

 +3       ; IHS/SD/SDR - 03/12/02 - V1.6 Patch 2 - NOIS XXX-0202-200181

 +4       ;     Routine created.

 +5       ;     Input transform for field 17 of file 90052.06

 +6       ;

 +7       ; *********************************************************************

 +8       ;I $L(X)>25 K X Q

 +9       ;BAR*1.8*5 IHS/SD/TPF 4/17/2008 FOUND TOO SHORT DURING TESTING

           IF $LENGTH(X)>40

               KILL X

               QUIT 

 +10       IF $LENGTH(X)<1

               KILL X

               QUIT 

 +11       SET X=$$LWC^BARUTL(X)

 +12      ;

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

               Begin DoDot:1

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

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

                       SET X="/"_X

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

                       SET X=X_"/"

               End DoDot:1

 +17      ;

 +18       IF ^%ZOSF("OS")["Windows NT"

               Begin DoDot:1

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

               End DoDot:1

 +20       QUIT