|
Last change
on this file since 1742 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
