source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SDAMEP4.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: 430 bytes
Line 
1SDAMEP4 ;ALB/RMO - Expanded Display (Appt. Check Out Data) ; 1/28/92
2 ;;5.3;Scheduling;;Aug 13, 1993
3 ;; ;
4 ;
5APCO ; Appointment Check Out Data
6 ;
7 D SET^SDAMEP1($$SETSTR^VALM1("*** Check Out ***","",24,17))
8 D CNTRL^VALM10(SDLN,24,17,IOINHI,IOINORM)
9 D SET^SDAMEP1("")
10 ;
11 I '$$CODT^SDCOU(DFN,SDT,SDCL) D G APCOQ
12 .D SET^SDAMEP1($$SETSTR^VALM1("No check out information.","",2,25))
13 D EN^SDCO0("SDAMEP",SDOE,SDLN,.SDLN)
14APCOQ Q
Note: See TracBrowser for help on using the repository browser.