| 1 | SDCO6 ;ALB/RMO - Interview - Check Out;04 MAR 1993 10:00 am
|
|---|
| 2 | ;;5.3;Scheduling;**27,66,132**;08/13/93
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;Entry point for SDCO INTERVIEW protocol
|
|---|
| 5 | ; Input -- SDOE
|
|---|
| 6 | S VALMBCK=""
|
|---|
| 7 | ;
|
|---|
| 8 | ; -- ok to edit?
|
|---|
| 9 | IF '$$EDITOK^SDCO3($G(SDOE),1) G INQ
|
|---|
| 10 | ;
|
|---|
| 11 | N SDCOQUIT
|
|---|
| 12 | D FULL^VALM1
|
|---|
| 13 | D INT(SDOE,.SDCOQUIT),PAUSE^VALM1:'$D(SDCOQUIT)
|
|---|
| 14 | I '$G(SCENFLG) D BLD^SDCO S SDCOXQB=1,VALMBCK="R"
|
|---|
| 15 | INQ Q
|
|---|
| 16 | ;
|
|---|
| 17 | INT(SDOE,SDCOQUIT) ;Inverview for Check Out
|
|---|
| 18 | ; Input -- SDOE Outpatient Encounter IEN
|
|---|
| 19 | ; Output -- SDCOQUIT User entered '^' or timeout
|
|---|
| 20 | ;
|
|---|
| 21 | ; -- exit if child
|
|---|
| 22 | I $P($G(^SCE(+SDOE,0)),"^",6) G INTQ
|
|---|
| 23 | ;
|
|---|
| 24 | N SDAPTYP
|
|---|
| 25 | S X=$$INTV^PXAPI("INTV","SD","PIMS",$P($G(^SCE(+SDOE,0)),U,5),$P($G(^SCE(+SDOE,0)),U,4),$P($G(^SCE(+SDOE,0)),U,2))
|
|---|
| 26 | S:X<0 SDCOQUIT=""
|
|---|
| 27 | ;
|
|---|
| 28 | INTQ Q
|
|---|
| 29 | ;
|
|---|
| 30 | ASK(SDPMTDF) ;Ask if user wishes to see the check out screen
|
|---|
| 31 | ; Input -- SDPMTDF Prompt Default 1=Yes and 0=No [Optional]
|
|---|
| 32 | ; Output -- Ask if user wishes to see check out screen
|
|---|
| 33 | N DIR,DIRUT,DTOUT,DUOUT,Y
|
|---|
| 34 | S DIR("A")="Do you wish to see the check out screen"
|
|---|
| 35 | S DIR("B")=$S($G(SDPMTDF):"YES",1:"NO"),DIR(0)="Y" W ! D ^DIR
|
|---|
| 36 | Q +$G(Y)
|
|---|
