APCDMEAS.m

APCDMEAS ; IHS/CMI/LAB - CONVERT TO METRIC ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

TX ;

 S APCDTXM=$E(APCDMNE("NAME"))

 D @APCDTXM

 K APCDTXM

 Q

 ;

C ;

 S APCDTV=+(APCDTV/.393701)

 S APCDTV=APCDTV+.05

 S APCDTV=$P(APCDTV,".")_"."_$E($P(APCDTV,".",2))

 Q

G ;

 S APCDTV=+(APCDTV/.0022046226)

 S APCDTV=$P(APCDTV,".")_"."_$E($P(APCDTV,".",2))

 Q

K ;

 S APCDTV=+(APCDTV/2.2046226)

 S APCDTV=$P(APCDTV,".")_"."_$E($P(APCDTV,".",2))

 Q

APCDMEAS  ; IHS/CMI/LAB - CONVERT TO METRIC ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

TX        ;

 +1        SET APCDTXM=$EXTRACT(APCDMNE("NAME"))

 +2        DO @APCDTXM

 +3        KILL APCDTXM

 +4        QUIT 

 +5       ;

C         ;

 +1        SET APCDTV=+(APCDTV/.393701)

 +2        SET APCDTV=APCDTV+.05

 +3        SET APCDTV=$PIECE(APCDTV,".")_"."_$EXTRACT($PIECE(APCDTV,".",2))

 +4        QUIT 

G         ;

 +1        SET APCDTV=+(APCDTV/.0022046226)

 +2        SET APCDTV=$PIECE(APCDTV,".")_"."_$EXTRACT($PIECE(APCDTV,".",2))

 +3        QUIT 

K         ;

 +1        SET APCDTV=+(APCDTV/2.2046226)

 +2        SET APCDTV=$PIECE(APCDTV,".")_"."_$EXTRACT($PIECE(APCDTV,".",2))

 +3        QUIT