ASU0TFMO.m

ASU0TFMO ; IHS/ITSC/LMH -OUTPUT TRANSFORM .01 KEYFIELD ; 

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

 ; 

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

 ;files.

 N Z

 S Z=$S($P(Y,".",3):$P(Y,".",3),1:1),Y=$P(Y,".")_"."_$P(Y,".",2),%DT="S"

 D DD^%DT S Z(0)=$G(^VA(200,Z,0)),Y=Y_" BY "_$S(Z(0)]"":$P(Z(0),U),1:Z)

 Q

HST ;EP;HISTORY

 Q

ASU0TFMO  ; IHS/ITSC/LMH -OUTPUT TRANSFORM .01 KEYFIELD ; 

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

 +2       ; 

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

 +4       ;files.

 +5        NEW Z

 +6        SET Z=$SELECT($PIECE(Y,".",3):$PIECE(Y,".",3),1:1)

           SET Y=$PIECE(Y,".")_"."_$PIECE(Y,".",2)

           SET %DT="S"

 +7        DO DD^%DT

           SET Z(0)=$GET(^VA(200,Z,0))

           SET Y=Y_" BY "_$SELECT(Z(0)]"":$PIECE(Z(0),U),1:Z)

 +8        QUIT 

HST       ;EP;HISTORY

 +1        QUIT