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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDAMEP4 444 printed Nov 22, 2024@17:57:34 Page 2
SDAMEP4 ;ALB/RMO - Expanded Display (Appt. Check Out Data) ; 1/28/92
+1 ;;5.3;Scheduling;;Aug 13, 1993
+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
