| 1 | SDCO5 ;ALB/RMO - Make Clinic Appt - Check Out;08 DEC 1992 4:05 pm
|
|---|
| 2 | ;;5.3;Scheduling;**27**;08/13/93
|
|---|
| 3 | ;
|
|---|
| 4 | MC(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"
|
|---|
| 20 | MCQ Q
|
|---|
| 21 | ;
|
|---|
| 22 | ASK() ;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)
|
|---|
