SDSCP.m

SDSCP ;ALB/MLI - STOP CODE PRINT ROUTINE ; 2 NOV 87 14:00

 ;;5.3;Scheduling;**14,34,132**;Aug 13, 1993

 ;

CL ; -- called from CL^SDCWL

 W ! S DIC="^DIC(40.7,",DIC(0)="EFQZM" D ^DIC K DIC("S") Q:X["?"  I Y'>0 W *7," No such stop code" Q

 I $P(Y(0),U,2)=900 W *7," is not a stop code??" Q

 I $D(SDCL($P(Y(0),"^",2))) W *7,"??    This stop code has already been selected" Q

 I $P(Y(0),"^",2)'?3N W *7,"??   Must be a three digit stop code" Q

 S SDCL($P(Y(0),"^",2))=+Y,SDI=SDI+1

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDSCP   493     printed  Dec 13, 2024@03:01:14                                                                                                                                                                                                        Page 2

SDSCP     ;ALB/MLI - STOP CODE PRINT ROUTINE ; 2 NOV 87 14:00

 +1       ;;5.3;Scheduling;**14,34,132**;Aug 13, 1993

 +2       ;

CL        ; -- called from CL^SDCWL

 +1        WRITE !

           SET DIC="^DIC(40.7,"

           SET DIC(0)="EFQZM"

           DO ^DIC

           KILL DIC("S")

           if X["?"

               QUIT 

           IF Y'>0

               WRITE *7," No such stop code"

               QUIT 

 +2        IF $PIECE(Y(0),U,2)=900

               WRITE *7," is not a stop code??"

               QUIT 

 +3        IF $DATA(SDCL($PIECE(Y(0),"^",2)))

               WRITE *7,"??    This stop code has already been selected"

               QUIT 

 +4        IF $PIECE(Y(0),"^",2)'?3N

               WRITE *7,"??   Must be a three digit stop code"

               QUIT 

 +5        SET SDCL($PIECE(Y(0),"^",2))=+Y

           SET SDI=SDI+1

 +6        QUIT 

 +7       ;