SRSPUT2.m

SRSPUT2 ;B'HAM ISC/MAM - SPECIALTY UTILIZATION (CONT) ; 22 MAY 1990  9:55 AM

 ;;3.0; Surgery ;;24 Jun 93

 S Y=SRSD D D^DIQ S SRSDT=Y,Y=SRED D D^DIQ S SREDT=Y

 S X=$P(SRSDT," ") D MON S SRSDT=X_" "_$P(SRSDT," ",2,5)

 S X=$P(SREDT," ") D MON S SREDT=X_" "_$P(SREDT," ",2,5)

 S SRUTL=^TMP("SR",$J),CASES=$P(SRUTL,"^")

 S SROPT=$P(SRUTL,"^",2),SRPOSS=$P(SRUTL,"^",3)

 S SRPERC=$S(SRPOSS:SROPT/SRPOSS*100,1:"-") S:SRPERC SRPERC=SRPERC+.5\1*1,SRPERC=SRPERC_"%"

 S HOUR=SROPT\60,MIN=SROPT#60 S HOUR=$S(HOUR>1:HOUR_" hrs",HOUR=1:HOUR_" hr",1:"") S MIN=$S(MIN>1:MIN_" mins",MIN=1:MIN_" min",1:"")

 D TIMES S SROPTIME=TIME

 S SROT=$P(SRUTL,"^",4),HOUR=SROT\60,MIN=SROT#60 S HOUR=$S(HOUR>1:HOUR_" hrs",HOUR=1:HOUR_" hr",1:"") S MIN=$S(MIN>1:MIN_" mins",MIN=1:MIN_" min",1:"")

 D TIMES S SROT=TIME

 W !!,"TOTAL UTILIZATION FOR",!,"ALL SURGICAL SPECIALTIES",?28,SRPERC,?54,CASES,?72,SROPTIME,?104,SROT,!! F LINE=1:1:132 W "="

 Q

TIMES ; put hrs and mins in readable format

 I +HOUR,'+MIN S TIME="   "_HOUR Q

 I +HOUR S TIME=HOUR_" and "_MIN Q

 I +MIN S TIME=MIN

 S TIME="     0"

 Q

MON S X=$S(X["JAN":"January",X["FEB":"February",X["MAR":"March",X["APR":"April",X["MAY":"May",X["JUN":"June",X["JUL":"July",X["AUG":"August",X["SEP":"September",X["OCT":"October",X["NOV":"November",1:"December")

 Q

SRSPUT2   ;B'HAM ISC/MAM - SPECIALTY UTILIZATION (CONT) ; 22 MAY 1990  9:55 AM

 +1       ;;3.0; Surgery ;;24 Jun 93

 +2        SET Y=SRSD

           DO D^DIQ

           SET SRSDT=Y

           SET Y=SRED

           DO D^DIQ

           SET SREDT=Y

 +3        SET X=$PIECE(SRSDT," ")

           DO MON

           SET SRSDT=X_" "_$PIECE(SRSDT," ",2,5)

 +4        SET X=$PIECE(SREDT," ")

           DO MON

           SET SREDT=X_" "_$PIECE(SREDT," ",2,5)

 +5        SET SRUTL=^TMP("SR",$JOB)

           SET CASES=$PIECE(SRUTL,"^")

 +6        SET SROPT=$PIECE(SRUTL,"^",2)

           SET SRPOSS=$PIECE(SRUTL,"^",3)

 +7        SET SRPERC=$SELECT(SRPOSS:SROPT/SRPOSS*100,1:"-")

           IF SRPERC

               SET SRPERC=SRPERC+.5\1*1

               SET SRPERC=SRPERC_"%"

 +8        SET HOUR=SROPT\60

           SET MIN=SROPT#60

           SET HOUR=$SELECT(HOUR>1:HOUR_" hrs",HOUR=1:HOUR_" hr",1:"")

           SET MIN=$SELECT(MIN>1:MIN_" mins",MIN=1:MIN_" min",1:"")

 +9        DO TIMES

           SET SROPTIME=TIME

 +10       SET SROT=$PIECE(SRUTL,"^",4)

           SET HOUR=SROT\60

           SET MIN=SROT#60

           SET HOUR=$SELECT(HOUR>1:HOUR_" hrs",HOUR=1:HOUR_" hr",1:"")

           SET MIN=$SELECT(MIN>1:MIN_" mins",MIN=1:MIN_" min",1:"")

 +11       DO TIMES

           SET SROT=TIME

 +12       WRITE !!,"TOTAL UTILIZATION FOR",!,"ALL SURGICAL SPECIALTIES",?28,SRPERC,?54,CASES,?72,SROPTIME,?104,SROT,!!

           FOR LINE=1:1:132

               WRITE "="

 +13       QUIT 

TIMES     ; put hrs and mins in readable format

 +1        IF +HOUR

               IF '+MIN

                   SET TIME="   "_HOUR

                   QUIT 

 +2        IF +HOUR

               SET TIME=HOUR_" and "_MIN

               QUIT 

 +3        IF +MIN

               SET TIME=MIN

 +4        SET TIME="     0"

 +5        QUIT 

MON        SET X=$SELECT(X["JAN":"January",X["FEB":"February",X["MAR":"March",X["APR":"April",X["MAY":"May",X["JUN":"June",X["JUL":"July",X["AUG":"August",X["SEP":"September",X["OCT":"October",X["NOV":"November",1:"December")

 +1        QUIT