|
Last change
on this file since 1806 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
482 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | SDSCP ;ALB/MLI - STOP CODE PRINT ROUTINE ; 2 NOV 87 14:00
|
|---|
| 2 | ;;5.3;Scheduling;**14,34,132**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | CL ; -- called from CL^SDCWL
|
|---|
| 5 | 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
|
|---|
| 6 | I $P(Y(0),U,2)=900 W *7," is not a stop code??" Q
|
|---|
| 7 | I $D(SDCL($P(Y(0),"^",2))) W *7,"?? This stop code has already been selected" Q
|
|---|
| 8 | I $P(Y(0),"^",2)'?3N W *7,"?? Must be a three digit stop code" Q
|
|---|
| 9 | S SDCL($P(Y(0),"^",2))=+Y,SDI=SDI+1
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
