source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SDVPR.m@ 731

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

initial load of FOIAVistA 6/30/08 version

File size: 344 bytes
Line 
1SDVPR ;alb/mjk - SD Application Specific Init Driver ; 3/26/93
2 ;;5.3;Scheduling;;Aug 13, 1993
3 ;
4EN ; -- main entry point
5 S XQABT3=$H
6 D H^DGUTL
7 S DGVFLD=108 D TIME1^DGVPR ;insert vers specific call -- if any
8 K DGTJ D LINE^DGVPP,SAV^DGVPR1("SD")
9 D EN^SDV53PR
10 D TIME^SDUTL S SD00=SDZ01,DGTIME=SDTIME,DGVFLD=109 D TIME1^DGVPR K SDZ01
11ENQ Q
Note: See TracBrowser for help on using the repository browser.