LROSPLG1.m

SROSPLG1 ; IHS/DIR/FJE - B'HAM ISC/ADM - STATUS OF SURGICAL CASE 08:55 ; [ 4/12/94 ]

 ;;5.2;LR;;NOV 01, 1997

 ;

 ;;3.0; Surgery ;**28**;24 Jun 93

STATUS ; print case status

 I $P($G(^SRF(SROP,"NON")),"^")="Y" S SROPER=SROPER_$S($P($G(^(30)),"^"):" (ABORTED)",$P($G(^("NON")),"^",5):" (COMPLETED)",1:" (NOT COMPLETE)") Q

 I $P($G(^SRF(SROP,30)),"^")'="" D CAN Q

 I $P($G(^SRF(SROP,31)),"^",8)'="" D CAN Q

 I $P($G(^SRF(SROP,.2)),"^",12) S SROPER=SROPER_" (COMPLETED)" Q

 I $D(^SRF(SROP,.2)),$P(^(.2),"^",12)="" S SRSTAT=0 D SCH I SRSTATUS=0 D REQ Q:SRSTATUS  G NO

 I '$D(^SRF(SROP,.2)) S SRSTAT=0 D SCH I SRSTATUS=0 D REQ Q:SRSTATUS=1  G NO

 Q

NO ; not requested or scheduled

 S SROPER=SROPER_" (NOT COMPLETE)"

 Q

CAN ; cancelled or aborted

 S SR(.2)=$G(^SRF(SROP,.2)) I $P(SR(.2),"^")!($P(SR(.2),"^",10)) S SROPER=SROPER_" (ABORTED)" Q

 S SROPER=SROPER_" (CANCELLED)"

 Q

SCH ; check to see if case is scheduled

 I '$D(^SRF(SROP,31)) S SRSTATUS=0 Q

 I $P($G(^SRF(SROP,31)),"^",4)="" S SRSTATUS=0 Q

 I $P($G(^SRF(SROP,31)),"^",4) D:SRSTAT=0 TIM0 D:SRSTAT=1 TIM1 S SRSTATUS=1 Q

 Q

TIM0 I '$D(^SRF(SROP,.2)) S SROPER=SROPER_" (SCHEDULED)" Q

 I $P(^SRF(SROP,.2),"^",2) S SROPER=SROPER_" (NOT COMPLETE)" Q

 I $P(^SRF(SROP,.2),"^",2)="" S SROPER=SROPER_" (SCHEDULED)"

 Q

TIM1 S SROPER=SROPER_" (SCHEDULED)" Q

REQ ; check to see if case has been requested

 I $D(^SRF(SROP,"REQ")),$P(^("REQ"),"^")=1,'$D(^SRF(SROP,.2)) S SROPER=SROPER_" (REQUESTED)" S SRSTATUS=1 Q

 I $D(^SRF(SROP,"REQ")),$P(^("REQ"),"^")=1,$D(^SRF(SROP,.2)),$P(^(.2),"^",2)="" S SROPER=SROPER_" (REQUESTED)" S SRSTATUS=1

 Q

ABORT ; aborted case

 S SRABORT=0 I $D(^SRF(SROP,.2)),$P(^(.2),"^",10)'="" S SRABORT=1

 Q

SROSPLG1  ; IHS/DIR/FJE - B'HAM ISC/ADM - STATUS OF SURGICAL CASE 08:55 ; [ 4/12/94 ]

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;3.0; Surgery ;**28**;24 Jun 93

STATUS    ; print case status

 +1        IF $PIECE($GET(^SRF(SROP,"NON")),"^")="Y"

               SET SROPER=SROPER_$SELECT($PIECE($GET(^(30)),"^"):" (ABORTED)",$PIECE($GET(^("NON")),"^",5):" (COMPLETED)",1:" (NOT COMPLETE)")

               QUIT 

 +2        IF $PIECE($GET(^SRF(SROP,30)),"^")'=""

               DO CAN

               QUIT 

 +3        IF $PIECE($GET(^SRF(SROP,31)),"^",8)'=""

               DO CAN

               QUIT 

 +4        IF $PIECE($GET(^SRF(SROP,.2)),"^",12)

               SET SROPER=SROPER_" (COMPLETED)"

               QUIT 

 +5        IF $DATA(^SRF(SROP,.2))

               IF $PIECE(^(.2),"^",12)=""

                   SET SRSTAT=0

                   DO SCH

                   IF SRSTATUS=0

                       DO REQ

                       IF SRSTATUS

                           QUIT 

                       GOTO NO

 +6        IF '$DATA(^SRF(SROP,.2))

               SET SRSTAT=0

               DO SCH

               IF SRSTATUS=0

                   DO REQ

                   IF SRSTATUS=1

                       QUIT 

                   GOTO NO

 +7        QUIT 

NO        ; not requested or scheduled

 +1        SET SROPER=SROPER_" (NOT COMPLETE)"

 +2        QUIT 

CAN       ; cancelled or aborted

 +1        SET SR(.2)=$GET(^SRF(SROP,.2))

           IF $PIECE(SR(.2),"^")!($PIECE(SR(.2),"^",10))

               SET SROPER=SROPER_" (ABORTED)"

               QUIT 

 +2        SET SROPER=SROPER_" (CANCELLED)"

 +3        QUIT 

SCH       ; check to see if case is scheduled

 +1        IF '$DATA(^SRF(SROP,31))

               SET SRSTATUS=0

               QUIT 

 +2        IF $PIECE($GET(^SRF(SROP,31)),"^",4)=""

               SET SRSTATUS=0

               QUIT 

 +3        IF $PIECE($GET(^SRF(SROP,31)),"^",4)

               IF SRSTAT=0

                   DO TIM0

               IF SRSTAT=1

                   DO TIM1

               SET SRSTATUS=1

               QUIT 

 +4        QUIT 

TIM0       IF '$DATA(^SRF(SROP,.2))

               SET SROPER=SROPER_" (SCHEDULED)"

               QUIT 

 +1        IF $PIECE(^SRF(SROP,.2),"^",2)

               SET SROPER=SROPER_" (NOT COMPLETE)"

               QUIT 

 +2        IF $PIECE(^SRF(SROP,.2),"^",2)=""

               SET SROPER=SROPER_" (SCHEDULED)"

 +3        QUIT 

TIM1       SET SROPER=SROPER_" (SCHEDULED)"

           QUIT 

REQ       ; check to see if case has been requested

 +1        IF $DATA(^SRF(SROP,"REQ"))

               IF $PIECE(^("REQ"),"^")=1

                   IF '$DATA(^SRF(SROP,.2))

                       SET SROPER=SROPER_" (REQUESTED)"

                       SET SRSTATUS=1

                       QUIT 

 +2        IF $DATA(^SRF(SROP,"REQ"))

               IF $PIECE(^("REQ"),"^")=1

                   IF $DATA(^SRF(SROP,.2))

                       IF $PIECE(^(.2),"^",2)=""

                           SET SROPER=SROPER_" (REQUESTED)"

                           SET SRSTATUS=1

 +3        QUIT 

ABORT     ; aborted case

 +1        SET SRABORT=0

           IF $DATA(^SRF(SROP,.2))

               IF $PIECE(^(.2),"^",10)'=""

                   SET SRABORT=1

 +2        QUIT