ASU0TFMI.m

ASU0TFMI ; IHS/ITSC/LMH -INPUT TRANSFORM .01 KEYFIELD ; 

 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 ; 

 ;This routine is the File Man Input transform for all SAMS transaction

 ;files.

 N Z

 S X=$G(X)

 Q:X?1N.N.1".".1N.N.1"."1N.N

 Q:X?1N.N.1".".1N.N

 S Z=X,X=$P(X,"BY"),%DT="XPTS"

 D ^%DT

 I Y<0 S X="" G EXIT

 S X=Y

 S Z(0)="."_$P(X,".",2)

 S Z(0)=Z(0)+.0000001

 S $P(X,".",2)=$E(Z(0),2,7)

 S $P(X,".",3)=$J

 S:Z["J#" X=X_"."_$P(Z,"J#",2)

EXIT ;

 Q

HST ;EP;HISTORY

 Q

ASU0TFMI  ; IHS/ITSC/LMH -INPUT TRANSFORM .01 KEYFIELD ; 

 +1       ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 +2       ; 

 +3       ;This routine is the File Man Input transform for all SAMS transaction

 +4       ;files.

 +5        NEW Z

 +6        SET X=$GET(X)

 +7        IF X?1N.N.1".".1N.N.1"."1N.N

               QUIT 

 +8        IF X?1N.N.1".".1N.N

               QUIT 

 +9        SET Z=X

           SET X=$PIECE(X,"BY")

           SET %DT="XPTS"

 +10       DO ^%DT

 +11       IF Y<0

               SET X=""

               GOTO EXIT

 +12       SET X=Y

 +13       SET Z(0)="."_$PIECE(X,".",2)

 +14       SET Z(0)=Z(0)+.0000001

 +15       SET $PIECE(X,".",2)=$EXTRACT(Z(0),2,7)

 +16       SET $PIECE(X,".",3)=$JOB

 +17       IF Z["J#"

               SET X=X_"."_$PIECE(Z,"J#",2)

EXIT      ;

 +1        QUIT 

HST       ;EP;HISTORY

 +1        QUIT