18 lines
462 B
Mathematica
18 lines
462 B
Mathematica
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
|