AMQQATR4.m

AMQQATR4 ; IHS/CMI/THL - PIECE OF AMQQATR1 TO MEET PORT STANDARDS ;

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

 ;-----

EN ; - EP - FROM RUN+8^AMQQATR1

BP N A,B,C,E,X,Y,Z,T

 I '$D(AMQQHIDE) W !,"Computing Search Efficiency Rating...."

 S X=$P(%,";",4)

 S Z=$P(X,"~")

 S A=$P(Z,":")

 S B=$P(Z,":",2)

 S C=$P(Z,":",3)

 S E=$P(Z,":",4)

 S T="I +R"_A_B

 I C'="" S T=T_",+R"_C_E

 S T=T_$P(X,"~",3)_"($P(R,""/"",2)"

 S Z=$P(X,"~",2)

 S A=$P(Z,":")

 S B=$P(Z,":",2)

 S C=$P(Z,":",3)

 S E=$P(Z,":",4)

 S T=T_A_B

 I C'="" S T=T_"&$P(R,""/"",2)"_C_E

 S AMQQRTXT=T_")"

 S AMQQY=$P(^AMQQ(1,+AMQQQ,0),U,10)_";"_$P(^(0),U,11)_";"_$P(^(0),U,12)

 Q

 ;

AMQQATR4  ; IHS/CMI/THL - PIECE OF AMQQATR1 TO MEET PORT STANDARDS ;

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

 +2       ;-----

EN        ; - EP - FROM RUN+8^AMQQATR1

BP         NEW A,B,C,E,X,Y,Z,T

 +1        IF '$DATA(AMQQHIDE)

               WRITE !,"Computing Search Efficiency Rating...."

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

 +3        SET Z=$PIECE(X,"~")

 +4        SET A=$PIECE(Z,":")

 +5        SET B=$PIECE(Z,":",2)

 +6        SET C=$PIECE(Z,":",3)

 +7        SET E=$PIECE(Z,":",4)

 +8        SET T="I +R"_A_B

 +9        IF C'=""

               SET T=T_",+R"_C_E

 +10       SET T=T_$PIECE(X,"~",3)_"($P(R,""/"",2)"

 +11       SET Z=$PIECE(X,"~",2)

 +12       SET A=$PIECE(Z,":")

 +13       SET B=$PIECE(Z,":",2)

 +14       SET C=$PIECE(Z,":",3)

 +15       SET E=$PIECE(Z,":",4)

 +16       SET T=T_A_B

 +17       IF C'=""

               SET T=T_"&$P(R,""/"",2)"_C_E

 +18       SET AMQQRTXT=T_")"

 +19       SET AMQQY=$PIECE(^AMQQ(1,+AMQQQ,0),U,10)_";"_$PIECE(^(0),U,11)_";"_$PIECE(^(0),U,12)

 +20       QUIT 

 +21      ;