source:
FOIAVistA/tag/r/SCHEDULING-SD-SC/SDYDPRE.m@
1569
Last change on this file since 1569 was 628, checked in by , 15 years ago | |
---|---|
File size: 257 bytes |
Line | |
---|---|
1 | SDYDPRE ;MJK/ALB - API Post Init;01 APR 1993 |
2 | ;;5.3;Scheduling;**27**;08/13/93 |
3 | ; |
4 | EN ; |
5 | D CLEAN44 |
6 | Q |
7 | ; |
8 | CLEAN44 ;-- 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.