SDAMEP4.m

SDAMEP4 ;ALB/RMO - Expanded Display (Appt. Check Out Data) ; 1/28/92

 ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 ;; ;

 ;

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

SDAMEP4   ;ALB/RMO - Expanded Display (Appt. Check Out Data) ; 1/28/92

 +1       ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 +2       ;; ;

 +3       ;

APCO      ; Appointment Check Out Data

 +1       ;

 +2        DO SET^SDAMEP1($$SETSTR^VALM1("*** Check Out ***","",24,17))

 +3        DO CNTRL^VALM10(SDLN,24,17,IOINHI,IOINORM)

 +4        DO SET^SDAMEP1("")

 +5       ;

 +6        IF '$$CODT^SDCOU(DFN,SDT,SDCL)

               Begin DoDot:1

 +7                DO SET^SDAMEP1($$SETSTR^VALM1("No check out information.","",2,25))

               End DoDot:1

               GOTO APCOQ

 +8        DO EN^SDCO0("SDAMEP",SDOE,SDLN,.SDLN)

APCOQ      QUIT