source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDCO5.m@ 1147

Last change on this file since 1147 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 927 bytes
Line 
1SDCO5 ;ALB/RMO - Make Clinic Appt - Check Out;08 DEC 1992 4:05 pm
2 ;;5.3;Scheduling;**27**;08/13/93
3 ;
4MC(SDOE,SDASKF,SDCOMKF,SDCOQUIT) ;Entry point for SDCO CLINIC APPT protocol
5 ; Input -- SDOE Outpatient Encounter file IEN
6 ; SDASKF Ask if user wishes to make an appt
7 ; Output -- SDCOMKF User Makes an Appointment
8 ; 1=Yes
9 ; SDCOQUIT User entered '^' or timeout
10 N DFN,DIRUT,SDAMERR,SDCL,SDCLN,SDDA,SDFN,SDOE0,SDSC,SDT
11 S VALMBCK=""
12 I $G(SDASKF),'$$ASK S:$D(DIRUT) SDCOQUIT="" G MCQ
13 S SDOE0=$G(^SCE(+SDOE,0)),SDFN=+$P(SDOE0,"^",2)
14 I $P(SDOE0,U,4),$P(SDOE0,U,8)'=3 S SDCLN=+$P(SDOE0,"^",4)
15 D FULL^VALM1
16 D ^SDM
17 I $D(SDAMERR) D PAUSE^VALM1
18 I '$D(SDAMERR) S SDCOMKF=1
19 D SDM^SDKILL S VALMBCK="R"
20MCQ Q
21 ;
22ASK() ;Ask if user wishes to make an appt
23 N DIR,DTOUT,DUOUT,Y
24 S DIR("A")="Do you wish to make a follow-up appointment"
25 S DIR("B")="YES",DIR(0)="Y" D ^DIR
26 Q +$G(Y)
Note: See TracBrowser for help on using the repository browser.