source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SDYDPRE.m@ 1800

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

initial load of FOIAVistA 6/30/08 version
File size: 257 bytes
Line 
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.