|
Last change
on this file since 648 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
383 bytes
|
| Line | |
|---|
| 1 | SDOPC1 ;ALB/BOK - OPC GENERATION CONT. ;3/13/92 14:33
|
|---|
| 2 | ;;5.3;Scheduling;**5,20,132**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | INPT S SDMT="**",SDINPT=0
|
|---|
| 5 | 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
|
|---|
| 6 | D DOM^SDOPC4(DFN,SDVD1,.SDMT,.SDEP,.SDINPT) I SDINPT!(SDMT="X0") D INPT^SDOPC0 Q
|
|---|
| 7 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
