- 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**;Aug 13, 1993
- ;
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDOPC0 275 printed Jan 18, 2025@04:00:20 Page 2
- 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**;Aug 13, 1993
- +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