SDCO9.m

SDCO9 ;ALB/MTC - Procedure - Check Out;30 APR 1996 1:10 pm

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

 ;

EN ;Entry point for SDCO CPT protocol

 ; Input  -- SDOE

 N I,SDCLI,SDCLOEY,SDCOMF,SDCOQUIT,SDCTI,SDI,SDLINE,SDSEL,SDSELY,SDAPTYP,SDHL

 S VALMBCK=""

 ;

 ;-- is this an old encounter, if so quit

 IF '$$EDITOK^SDCO3($G(SDOE),1) G ENQ

 ;

 N SDVISIT

 S SDVISIT=$P($G(^SCE(+SDOE,0)),U,5)

 S X=$$INTV^PXAPI("CPT","SD","PIMS",SDVISIT)

 D BLD^SDCO S VALMBCK="R"

ENQ ;

 Q

SDCO9     ;ALB/MTC - Procedure - Check Out;30 APR 1996 1:10 pm

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

 +2       ;

EN        ;Entry point for SDCO CPT protocol

 +1       ; Input  -- SDOE

 +2        NEW I,SDCLI,SDCLOEY,SDCOMF,SDCOQUIT,SDCTI,SDI,SDLINE,SDSEL,SDSELY,SDAPTYP,SDHL

 +3        SET VALMBCK=""

 +4       ;

 +5       ;-- is this an old encounter, if so quit

 +6        IF '$$EDITOK^SDCO3($GET(SDOE),1)

               GOTO ENQ

 +7       ;

 +8        NEW SDVISIT

 +9        SET SDVISIT=$PIECE($GET(^SCE(+SDOE,0)),U,5)

 +10       SET X=$$INTV^PXAPI("CPT","SD","PIMS",SDVISIT)

 +11       DO BLD^SDCO

           SET VALMBCK="R"

ENQ       ;

 +1        QUIT