Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: SDOPC0

SDOPC0.m

Go to the documentation of this file.

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"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDOPC0   275     printed  Dec 13, 2024@02:59:10                                                                                                                                                                                                       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