SDOPC1.m

SDOPC1 ;ALB/BOK - OPC GENERATION CONT. ;3/13/92  14:33

 ;;5.3;Scheduling;**5,20,132**;Aug 13, 1993

 ;

INPT S SDMT="**",SDINPT=0

 S X=+$O(^DGPM("APTT1",DFN,$P(SDVD1,"."))) I $P(X,".")=$P(SDVD1,"."),$D(^DGPM(+$O(^(X,0)),0)),$P(^(0),U,25)=1,$D(^DIC(42,+$P(^(0),U,6),0)),$P(^(0),U,3)'="D" S SDINPT=1 Q

 D DOM^SDOPC4(DFN,SDVD1,.SDMT,.SDEP,.SDINPT) I SDINPT!(SDMT="X0") D INPT^SDOPC0 Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDOPC1   390     printed  Apr 09, 2024@21:40:13                                                                                                                                                                                                       Page 2

SDOPC1    ;ALB/BOK - OPC GENERATION CONT. ;3/13/92  14:33

 +1       ;;5.3;Scheduling;**5,20,132**;Aug 13, 1993

 +2       ;

INPT       SET SDMT="**"

           SET SDINPT=0

 +1        SET X=+$ORDER(^DGPM("APTT1",DFN,$PIECE(SDVD1,".")))

           IF $PIECE(X,".")=$PIECE(SDVD1,".")

               IF $DATA(^DGPM(+$ORDER(^(X,0)),0))

                   IF $PIECE(^(0),U,25)=1

                       IF $DATA(^DIC(42,+$PIECE(^(0),U,6),0))

                           IF $PIECE(^(0),U,3)'="D"

                               SET SDINPT=1

                               QUIT 

 +2        DO DOM^SDOPC4(DFN,SDVD1,.SDMT,.SDEP,.SDINPT)

           IF SDINPT!(SDMT="X0")

               DO INPT^SDOPC0

               QUIT 

 +3        QUIT