SDCO9 ;ALB/MTC - Procedure - Check Out;30 APR 1996 1:10 pm
;;5.3;Scheduling;**27,132**;08/13/93
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDCO9 479 printed Oct 16, 2024@18:50:04 Page 2
SDCO9 ;ALB/MTC - Procedure - Check Out;30 APR 1996 1:10 pm
+1 ;;5.3;Scheduling;**27,132**;08/13/93
+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
