| [613] | 1 | SDAMEX1 ;ALB/MJK,RMO - Appointment Check In/Check Out Cont. ; 5/6/93
|
|---|
| 2 | ;;5.3;Scheduling;**27**;08/13/93
|
|---|
| 3 | ;
|
|---|
| 4 | CK(DFN,SDCL,SDT,SDDA,SDACT) ; -- ask 'ok' and call check-in or check-out
|
|---|
| 5 | ; input: DFN
|
|---|
| 6 | ; SDCL := ifn of clinic
|
|---|
| 7 | ; SDT := appt date/time
|
|---|
| 8 | ; SDDA := ifn of ^sc multiple
|
|---|
| 9 | ; SDACT := action CI or CO
|
|---|
| 10 | ; output: none
|
|---|
| 11 | ; returned: check-in/check-out process called [1 := yes | 0 := no]
|
|---|
| 12 | ;
|
|---|
| 13 | N SDMAX
|
|---|
| 14 | W !
|
|---|
| 15 | ;
|
|---|
| 16 | I '$D(^SD(409.63,"ACO",1,+$$STATUS^SDAM1(DFN,SDT,SDCL,$G(^DPT(DFN,"S",SDT,0)),SDDA))) W !!,*7,">>> You can not check in/out this appointment." D PAUSE^VALM1 S Y=0 G CKQ
|
|---|
| 17 | ;
|
|---|
| 18 | S DIR(0)="Y",DIR("A")="Continue" D ^DIR K DIR
|
|---|
| 19 | I Y=0!($D(DIRUT)) S Y=0 G CKQ
|
|---|
| 20 | I SDACT="CI" D
|
|---|
| 21 | .D ONE^SDAM2(DFN,SDCL,SDT,SDDA,0,"")
|
|---|
| 22 | I SDACT="CO" D
|
|---|
| 23 | .D CO^SDCO1(DFN,SDT,SDCL,SDDA,1)
|
|---|
| 24 | W:$X>47 ! W ?47,"Status: ",$P($$STATUS^SDAM1(DFN,SDT,SDCL,$G(^DPT(DFN,"S",SDT,0)),SDDA),";",3)
|
|---|
| 25 | S Y=1
|
|---|
| 26 | CKQ Q Y
|
|---|
