Last change
on this file since 1495 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
462 bytes
|
Line | |
---|
1 | SDCO9 ;ALB/MTC - Procedure - Check Out;30 APR 1996 1:10 pm
|
---|
2 | ;;5.3;Scheduling;**27,132**;08/13/93
|
---|
3 | ;
|
---|
4 | EN ;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"
|
---|
16 | ENQ ;
|
---|
17 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.