source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDSCP.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 482 bytes
Line 
1SDSCP ;ALB/MLI - STOP CODE PRINT ROUTINE ; 2 NOV 87 14:00
2 ;;5.3;Scheduling;**14,34,132**;Aug 13, 1993
3 ;
4CL ; -- 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.