AMQQATR3.m

AMQQATR3 ; IHS/CMI/THL - NON NUMERIC LAB VALUE TRANSLATION FOR SER ;

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

 ;-----

LTRZ ; ENTRY POINT FROM AMQQATR1

 N %

 S AMQQLTR="S %=$E(R),R=$S(""Nn""[%:0,""Tt""[%:1,%=+%:(%+1),1:"""")"

 S AMQQLTB1=$P(X,":")

 S %=$E($P(X,":",2))

 S AMQQLTR1=$S("Nn"[%:0,"Tt"[%:.5,%=+%:%,1:"")

 S %=$P(X,":",3)

 I %'="" S AMQQLTB2=%,%=$E($P(X,":",4)),AMQQLTR2=$S("Nn"[%:0,"Tt"[5:.5,%=+%:%,1:"") Q

 S AMQQLTB2="<"

 S AMQQLTR2=999999999

 Q

 ;

LTRT ; ENTRY POINT FROM AMQQATR1

 N %

 S AMQQLTR="S R=$S(R="""":"""",""Nn""[$E(R):0,R["":"":$P(R,"":"",2),1:"""")"

 S AMQQLTB1=$P(X,":")

 S AMQQLTR1=+$E($P(X,":",2))

 S %=$P(X,":",3)

 I %'="" S AMQQLTB2=%,AMQQLTR2=+% Q

 S AMQQLTB2="<"

 S AMQQLTR2=999999999

 Q

 ;

LTRQ ; ENTRY POINT FROM AMQQATR1

 S AMQQLTR="S R=$E(R)"

 S AMQQLTB1="="

 S AMQQLTR1=""""_$E($P(X,":",2))_""""

 S AMQQLTB2="'="

 S AMQQLTR2=9

 Q

 ;

LTRS ; CALLED AMQQATR1

 S AMQQLTR="S R=$E(R)"

 S AMQQLTB1=$P(X,":")

 S AMQQLTR1=""""_$P(X,":",2)_""""

 S AMQQLTB2="'"_AMQQLTB1

 S AMQQLTR2=0

 Q

 ;

AMQQATR3  ; IHS/CMI/THL - NON NUMERIC LAB VALUE TRANSLATION FOR SER ;

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

 +2       ;-----

LTRZ      ; ENTRY POINT FROM AMQQATR1

 +1        NEW %

 +2        SET AMQQLTR="S %=$E(R),R=$S(""Nn""[%:0,""Tt""[%:1,%=+%:(%+1),1:"""")"

 +3        SET AMQQLTB1=$PIECE(X,":")

 +4        SET %=$EXTRACT($PIECE(X,":",2))

 +5        SET AMQQLTR1=$SELECT("Nn"[%:0,"Tt"[%:.5,%=+%:%,1:"")

 +6        SET %=$PIECE(X,":",3)

 +7        IF %'=""

               SET AMQQLTB2=%

               SET %=$EXTRACT($PIECE(X,":",4))

               SET AMQQLTR2=$SELECT("Nn"[%:0,"Tt"[5:.5,%=+%:%,1:"")

               QUIT 

 +8        SET AMQQLTB2="<"

 +9        SET AMQQLTR2=999999999

 +10       QUIT 

 +11      ;

LTRT      ; ENTRY POINT FROM AMQQATR1

 +1        NEW %

 +2        SET AMQQLTR="S R=$S(R="""":"""",""Nn""[$E(R):0,R["":"":$P(R,"":"",2),1:"""")"

 +3        SET AMQQLTB1=$PIECE(X,":")

 +4        SET AMQQLTR1=+$EXTRACT($PIECE(X,":",2))

 +5        SET %=$PIECE(X,":",3)

 +6        IF %'=""

               SET AMQQLTB2=%

               SET AMQQLTR2=+%

               QUIT 

 +7        SET AMQQLTB2="<"

 +8        SET AMQQLTR2=999999999

 +9        QUIT 

 +10      ;

LTRQ      ; ENTRY POINT FROM AMQQATR1

 +1        SET AMQQLTR="S R=$E(R)"

 +2        SET AMQQLTB1="="

 +3        SET AMQQLTR1=""""_$EXTRACT($PIECE(X,":",2))_""""

 +4        SET AMQQLTB2="'="

 +5        SET AMQQLTR2=9

 +6        QUIT 

 +7       ;

LTRS      ; CALLED AMQQATR1

 +1        SET AMQQLTR="S R=$E(R)"

 +2        SET AMQQLTB1=$PIECE(X,":")

 +3        SET AMQQLTR1=""""_$PIECE(X,":",2)_""""

 +4        SET AMQQLTB2="'"_AMQQLTB1

 +5        SET AMQQLTR2=0

 +6        QUIT 

 +7       ;