SDCO6.m

SDCO6 ;ALB/RMO - Interview - Check Out;04 MAR 1993 10:00 am

 ;;5.3;Scheduling;**27,66,132,1015**;08/13/93;Build 21

 ;

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)

SDCO6     ;ALB/RMO - Interview - Check Out;04 MAR 1993 10:00 am

 +1       ;;5.3;Scheduling;**27,66,132,1015**;08/13/93;Build 21

 +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)