15 lines
430 B
Mathematica
15 lines
430 B
Mathematica
SDAMEP4 ;ALB/RMO - Expanded Display (Appt. Check Out Data) ; 1/28/92
|
|
;;5.3;Scheduling;;Aug 13, 1993
|
|
;; ;
|
|
;
|
|
APCO ; Appointment Check Out Data
|
|
;
|
|
D SET^SDAMEP1($$SETSTR^VALM1("*** Check Out ***","",24,17))
|
|
D CNTRL^VALM10(SDLN,24,17,IOINHI,IOINORM)
|
|
D SET^SDAMEP1("")
|
|
;
|
|
I '$$CODT^SDCOU(DFN,SDT,SDCL) D G APCOQ
|
|
.D SET^SDAMEP1($$SETSTR^VALM1("No check out information.","",2,25))
|
|
D EN^SDCO0("SDAMEP",SDOE,SDLN,.SDLN)
|
|
APCOQ Q
|