Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
482 bytes
|
Line | |
---|
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.