SDOPC0.m

SDOPC0 ;ALB/LDB - SEND BULLETIN IF DEP DATA FOR MT PT IS INCONSISTENT; 21 JUN 89@18:30 ;3/11/92  12:46

 ;;5.3;Scheduling;**20,42,132,1015**;Aug 13, 1993;Build 21

 ;

INPT ;Called from SDOPC1 to reset inpatient status

 I $D(^DPT(DFN,"S",SDVD1,0)),$P(^(0),U,2)="" S $P(^(0),U,2)="I"

 Q

SDOPC0    ;ALB/LDB - SEND BULLETIN IF DEP DATA FOR MT PT IS INCONSISTENT; 21 JUN 89@18:30 ;3/11/92  12:46

 +1       ;;5.3;Scheduling;**20,42,132,1015**;Aug 13, 1993;Build 21

 +2       ;

INPT      ;Called from SDOPC1 to reset inpatient status

 +1        IF $DATA(^DPT(DFN,"S",SDVD1,0))

               IF $PIECE(^(0),U,2)=""

                   SET $PIECE(^(0),U,2)="I"

 +2        QUIT