SRSCAN1.m

SRSCAN1 ;B'HAM ISC/MAM - CANCEL SCHEDULED OPERATION; 06/24/88  11:20

 ;;3.0; Surgery ;;24 Jun 93

 S S(0)=^SRF(SRTN,0),S(31)=^SRF(SRTN,31),SRSDOC=$P(^SRF(SRTN,.1),"^",4),SRSDATE=$E($P(S(0),"^",9),1,7),SRSOR=$P(S(0),"^",2)

 S SRSST=$P(S(31),"^",4),SRSET=$P(S(31),"^",5)

 K SRSEDT S SRSDT1=SRSST,SRSDT2=SRSET,MM=$E(SRSET,1,7),XX=$P(SRSST,1,7) I MM>XX S SRSET1=SRSET,SRSEDT=MM

 I '$D(SRSEDT) S SRSEDT=SRSDATE

 S Y=SRSST D D^DIQ S SRFIND=$F(Y,":"),SRSST=$S(SRFIND:$E(Y,SRFIND-3,SRFIND+1),1:"00:00") S Y=SRSET D D^DIQ S SRFIND=$F(Y,":"),SRSET=$S(SRFIND:$E(Y,SRFIND-3,SRFIND+1),1:"")

 W !!,"Reservation for "_$S(SRSOR="":"",'$D(^SRS(SRSOR,0)):"",$D(^SC($P(^(0),"^"),0)):$P(^(0),"^"),1:"")

 W !,"Scheduled Start Time: "_$E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)_" "_SRSST,!,"Scheduled End Time:   "_$E(SRSEDT,4,5)_"-"_$E(SRSEDT,6,7)_"-"_$E(SRSEDT,2,3)_" "_SRSET

 S SRSST=$P(SRSST,":")_"."_$P(SRSST,":",2),SRSET=$P(SRSET,":")_"."_$P(SRSET,":",2)

MM S DFN=$P(^SRF(SRTN,0),"^") D DEM^VADPT S SRNM=VADM(1) W !,"Patient:   "_SRNM

 K SROPS,MM,MMM S SROPER=$P(^SRF(SRTN,"OP"),"^") S:$L(SROPER)<60 SROPS(1)=SROPER I $L(SROPER)>59 S SROPER=SROPER_"  " F M=1:1 D LOOP Q:MMM=""

 I SRSDOC S USER=$S($D(^VA(200,SRSDOC,0)):$P(^(0),"^"),1:"")

 I SRSDOC="" S USER="NOT ENTERED"

 W !,"Physician: "_USER

 W !,"Procedure: "_SROPS(1) I $D(SROPS(2)) W !,?11,SROPS(2) I $D(SROPS(3)) W !,?11,SROPS(3) I $D(SROPS(4)) W !,?11,SROPS(4)

 Q

LOOP ; break procedure if greater than 60 characters

 S SROPS(M)="" F LOOP=1:1 S MM=$P(SROPER," "),MMM=$P(SROPER," ",2,200) Q:MMM=""  Q:$L(SROPS(M))+$L(MM)'<60  S SROPS(M)=SROPS(M)_MM_" ",SROPER=MMM

 Q

SRSCAN1   ;B'HAM ISC/MAM - CANCEL SCHEDULED OPERATION; 06/24/88  11:20

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

 +2        SET S(0)=^SRF(SRTN,0)

           SET S(31)=^SRF(SRTN,31)

           SET SRSDOC=$PIECE(^SRF(SRTN,.1),"^",4)

           SET SRSDATE=$EXTRACT($PIECE(S(0),"^",9),1,7)

           SET SRSOR=$PIECE(S(0),"^",2)

 +3        SET SRSST=$PIECE(S(31),"^",4)

           SET SRSET=$PIECE(S(31),"^",5)

 +4        KILL SRSEDT

           SET SRSDT1=SRSST

           SET SRSDT2=SRSET

           SET MM=$EXTRACT(SRSET,1,7)

           SET XX=$PIECE(SRSST,1,7)

           IF MM>XX

               SET SRSET1=SRSET

               SET SRSEDT=MM

 +5        IF '$DATA(SRSEDT)

               SET SRSEDT=SRSDATE

 +6        SET Y=SRSST

           DO D^DIQ

           SET SRFIND=$FIND(Y,":")

           SET SRSST=$SELECT(SRFIND:$EXTRACT(Y,SRFIND-3,SRFIND+1),1:"00:00")

           SET Y=SRSET

           DO D^DIQ

           SET SRFIND=$FIND(Y,":")

           SET SRSET=$SELECT(SRFIND:$EXTRACT(Y,SRFIND-3,SRFIND+1),1:"")

 +7        WRITE !!,"Reservation for "_$SELECT(SRSOR="":"",'$DATA(^SRS(SRSOR,0)):"",$DATA(^SC($PIECE(^(0),"^"),0)):$PIECE(^(0),"^"),1:"")

 +8        WRITE !,"Scheduled Start Time: "_$EXTRACT(SRSDATE,4,5)_"-"_$EXTRACT(SRSDATE,6,7)_"-"_$EXTRACT(SRSDATE,2,3)_" "_SRSST,!,"Scheduled End Time:   "_$EXTRACT(SRSEDT,4,5)_"-"_$EXTRACT(SRSEDT,6,7)_"-"_$EXTRACT(SRSEDT,2,3)_" "_SRSET

 +9        SET SRSST=$PIECE(SRSST,":")_"."_$PIECE(SRSST,":",2)

           SET SRSET=$PIECE(SRSET,":")_"."_$PIECE(SRSET,":",2)

MM         SET DFN=$PIECE(^SRF(SRTN,0),"^")

           DO DEM^VADPT

           SET SRNM=VADM(1)

           WRITE !,"Patient:   "_SRNM

 +1        KILL SROPS,MM,MMM

           SET SROPER=$PIECE(^SRF(SRTN,"OP"),"^")

           IF $LENGTH(SROPER)<60

               SET SROPS(1)=SROPER

           IF $LENGTH(SROPER)>59

               SET SROPER=SROPER_"  "

               FOR M=1:1

                   DO LOOP

                   IF MMM=""

                       QUIT 

 +2        IF SRSDOC

               SET USER=$SELECT($DATA(^VA(200,SRSDOC,0)):$PIECE(^(0),"^"),1:"")

 +3        IF SRSDOC=""

               SET USER="NOT ENTERED"

 +4        WRITE !,"Physician: "_USER

 +5        WRITE !,"Procedure: "_SROPS(1)

           IF $DATA(SROPS(2))

               WRITE !,?11,SROPS(2)

               IF $DATA(SROPS(3))

                   WRITE !,?11,SROPS(3)

                   IF $DATA(SROPS(4))

                       WRITE !,?11,SROPS(4)

 +6        QUIT 

LOOP      ; break procedure if greater than 60 characters

 +1        SET SROPS(M)=""

           FOR LOOP=1:1

               SET MM=$PIECE(SROPER," ")

               SET MMM=$PIECE(SROPER," ",2,200)

               IF MMM=""

                   QUIT 

               IF $LENGTH(SROPS(M))+$LENGTH(MM)'<60

                   QUIT 

               SET SROPS(M)=SROPS(M)_MM_" "

               SET SROPER=MMM

 +2        QUIT