source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDCO9.m@ 1641

Last change on this file since 1641 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 462 bytes
Line 
1SDCO9 ;ALB/MTC - Procedure - Check Out;30 APR 1996 1:10 pm
2 ;;5.3;Scheduling;**27,132**;08/13/93
3 ;
4EN ;Entry point for SDCO CPT protocol
5 ; Input -- SDOE
6 N I,SDCLI,SDCLOEY,SDCOMF,SDCOQUIT,SDCTI,SDI,SDLINE,SDSEL,SDSELY,SDAPTYP,SDHL
7 S VALMBCK=""
8 ;
9 ;-- is this an old encounter, if so quit
10 IF '$$EDITOK^SDCO3($G(SDOE),1) G ENQ
11 ;
12 N SDVISIT
13 S SDVISIT=$P($G(^SCE(+SDOE,0)),U,5)
14 S X=$$INTV^PXAPI("CPT","SD","PIMS",SDVISIT)
15 D BLD^SDCO S VALMBCK="R"
16ENQ ;
17 Q
Note: See TracBrowser for help on using the repository browser.