SDCO6 ;ALB/RMO - Interview - Check Out;04 MAR 1993 10:00 am
;;5.3;Scheduling;**27,66,132**;08/13/93
;
EN ;Entry point for SDCO INTERVIEW protocol
; Input -- SDOE
S VALMBCK=""
;
; -- ok to edit?
IF '$$EDITOK^SDCO3($G(SDOE),1) G INQ
;
N SDCOQUIT
D FULL^VALM1
D INT(SDOE,.SDCOQUIT),PAUSE^VALM1:'$D(SDCOQUIT)
I '$G(SCENFLG) D BLD^SDCO S SDCOXQB=1,VALMBCK="R"
INQ Q
;
INT(SDOE,SDCOQUIT) ;Inverview for Check Out
; Input -- SDOE Outpatient Encounter IEN
; Output -- SDCOQUIT User entered '^' or timeout
;
; -- exit if child
I $P($G(^SCE(+SDOE,0)),"^",6) G INTQ
;
N SDAPTYP
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))
S:X<0 SDCOQUIT=""
;
INTQ Q
;
ASK(SDPMTDF) ;Ask if user wishes to see the check out screen
; Input -- SDPMTDF Prompt Default 1=Yes and 0=No [Optional]
; Output -- Ask if user wishes to see check out screen
N DIR,DIRUT,DTOUT,DUOUT,Y
S DIR("A")="Do you wish to see the check out screen"
S DIR("B")=$S($G(SDPMTDF):"YES",1:"NO"),DIR(0)="Y" W ! D ^DIR
Q +$G(Y)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDCO6 1115 printed Oct 16, 2024@18:50:02 Page 2
SDCO6 ;ALB/RMO - Interview - Check Out;04 MAR 1993 10:00 am
+1 ;;5.3;Scheduling;**27,66,132**;08/13/93
+2 ;
EN ;Entry point for SDCO INTERVIEW protocol
+1 ; Input -- SDOE
+2 SET VALMBCK=""
+3 ;
+4 ; -- ok to edit?
+5 IF '$$EDITOK^SDCO3($GET(SDOE),1)
GOTO INQ
+6 ;
+7 NEW SDCOQUIT
+8 DO FULL^VALM1
+9 DO INT(SDOE,.SDCOQUIT)
if '$DATA(SDCOQUIT)
DO PAUSE^VALM1
+10 IF '$GET(SCENFLG)
DO BLD^SDCO
SET SDCOXQB=1
SET VALMBCK="R"
INQ QUIT
+1 ;
INT(SDOE,SDCOQUIT) ;Inverview for Check Out
+1 ; Input -- SDOE Outpatient Encounter IEN
+2 ; Output -- SDCOQUIT User entered '^' or timeout
+3 ;
+4 ; -- exit if child
+5 IF $PIECE($GET(^SCE(+SDOE,0)),"^",6)
GOTO INTQ
+6 ;
+7 NEW SDAPTYP
+8 SET X=$$INTV^PXAPI("INTV","SD","PIMS",$PIECE($GET(^SCE(+SDOE,0)),U,5),$PIECE($GET(^SCE(+SDOE,0)),U,4),$PIECE($GET(^SCE(+SDOE,0)),U,2))
+9 if X<0
SET SDCOQUIT=""
+10 ;
INTQ QUIT
+1 ;
ASK(SDPMTDF) ;Ask if user wishes to see the check out screen
+1 ; Input -- SDPMTDF Prompt Default 1=Yes and 0=No [Optional]
+2 ; Output -- Ask if user wishes to see check out screen
+3 NEW DIR,DIRUT,DTOUT,DUOUT,Y
+4 SET DIR("A")="Do you wish to see the check out screen"
+5 SET DIR("B")=$SELECT($GET(SDPMTDF):"YES",1:"NO")
SET DIR(0)="Y"
WRITE !
DO ^DIR
+6 QUIT +$GET(Y)
