source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDCO6.m@ 648

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1SDCO6 ;ALB/RMO - Interview - Check Out;04 MAR 1993 10:00 am
2 ;;5.3;Scheduling;**27,66,132**;08/13/93
3 ;
4EN ;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"
15INQ Q
16 ;
17INT(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 ;
28INTQ Q
29 ;
30ASK(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)
Note: See TracBrowser for help on using the repository browser.