- 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 ---[H[J[2J[HSDOPC1 390 printed Jan 18, 2025@04:00:21 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