source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDOPC0.m@ 846

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

initial load of WorldVistAEHR

File size: 269 bytes
RevLine 
[613]1SDOPC0 ;ALB/LDB - SEND BULLETIN IF DEP DATA FOR MT PT IS INCONSISTENT; 21 JUN 89@18:30 ;3/11/92 12:46
2 ;;5.3;Scheduling;**20,42,132**;Aug 13, 1993
3 ;
4INPT ;Called from SDOPC1 to reset inpatient status
5 I $D(^DPT(DFN,"S",SDVD1,0)),$P(^(0),U,2)="" S $P(^(0),U,2)="I"
6 Q
Note: See TracBrowser for help on using the repository browser.