source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDYDPRE.m@ 1259

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

initial load of WorldVistAEHR

File size: 257 bytes
RevLine 
[613]1SDYDPRE ;MJK/ALB - API Post Init;01 APR 1993
2 ;;5.3;Scheduling;**27**;08/13/93
3 ;
4EN ;
5 D CLEAN44
6 Q
7 ;
8CLEAN44 ;-- Remove Provider DD on file 44
9 D BMES^XPDUTL(">>> Deleting Provider screen on file 44 ...")
10 S DIK="^DD(44.1,",DA=.01,DA(1)=44
11 D ^DIK
12 Q
13 ;
Note: See TracBrowser for help on using the repository browser.