SDCO5 ;ALB/RMO - Make Clinic Appt - Check Out;08 DEC 1992 4:05 pm
;;5.3;Scheduling;**27**;08/13/93
;
MC(SDOE,SDASKF,SDCOMKF,SDCOQUIT) ;Entry point for SDCO CLINIC APPT protocol
; Input -- SDOE Outpatient Encounter file IEN
; SDASKF Ask if user wishes to make an appt
; Output -- SDCOMKF User Makes an Appointment
; 1=Yes
; SDCOQUIT User entered '^' or timeout
N DFN,DIRUT,SDAMERR,SDCL,SDCLN,SDDA,SDFN,SDOE0,SDSC,SDT
S VALMBCK=""
I $G(SDASKF),'$$ASK S:$D(DIRUT) SDCOQUIT="" G MCQ
S SDOE0=$G(^SCE(+SDOE,0)),SDFN=+$P(SDOE0,"^",2)
I $P(SDOE0,U,4),$P(SDOE0,U,8)'=3 S SDCLN=+$P(SDOE0,"^",4)
D FULL^VALM1
D ^SDM
I $D(SDAMERR) D PAUSE^VALM1
I '$D(SDAMERR) S SDCOMKF=1
D SDM^SDKILL S VALMBCK="R"
MCQ Q
;
ASK() ;Ask if user wishes to make an appt
N DIR,DTOUT,DUOUT,Y
S DIR("A")="Do you wish to make a follow-up appointment"
S DIR("B")="YES",DIR(0)="Y" D ^DIR
Q +$G(Y)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDCO5 953 printed Nov 22, 2024@17:59:27 Page 2
SDCO5 ;ALB/RMO - Make Clinic Appt - Check Out;08 DEC 1992 4:05 pm
+1 ;;5.3;Scheduling;**27**;08/13/93
+2 ;
MC(SDOE,SDASKF,SDCOMKF,SDCOQUIT) ;Entry point for SDCO CLINIC APPT protocol
+1 ; Input -- SDOE Outpatient Encounter file IEN
+2 ; SDASKF Ask if user wishes to make an appt
+3 ; Output -- SDCOMKF User Makes an Appointment
+4 ; 1=Yes
+5 ; SDCOQUIT User entered '^' or timeout
+6 NEW DFN,DIRUT,SDAMERR,SDCL,SDCLN,SDDA,SDFN,SDOE0,SDSC,SDT
+7 SET VALMBCK=""
+8 IF $GET(SDASKF)
IF '$$ASK
if $DATA(DIRUT)
SET SDCOQUIT=""
GOTO MCQ
+9 SET SDOE0=$GET(^SCE(+SDOE,0))
SET SDFN=+$PIECE(SDOE0,"^",2)
+10 IF $PIECE(SDOE0,U,4)
IF $PIECE(SDOE0,U,8)'=3
SET SDCLN=+$PIECE(SDOE0,"^",4)
+11 DO FULL^VALM1
+12 DO ^SDM
+13 IF $DATA(SDAMERR)
DO PAUSE^VALM1
+14 IF '$DATA(SDAMERR)
SET SDCOMKF=1
+15 DO SDM^SDKILL
SET VALMBCK="R"
MCQ QUIT
+1 ;
ASK() ;Ask if user wishes to make an appt
+1 NEW DIR,DTOUT,DUOUT,Y
+2 SET DIR("A")="Do you wish to make a follow-up appointment"
+3 SET DIR("B")="YES"
SET DIR(0)="Y"
DO ^DIR
+4 QUIT +$GET(Y)
