| [613] | 1 | SDAPICO ;ALB/MJK - API - Common Check-Out Processing;04 MAR 1993 10:00 am
|
|---|
| 2 | ;;5.3;Scheduling;**27,44,78,93,132**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | FILE(SDOE,SDUZ) ; File Data after checks
|
|---|
| 5 | ; Input -- SDOE Outpatient Encounter IEN
|
|---|
| 6 | ; SDUZ User ien to file 200
|
|---|
| 7 | ; Output -- <none>
|
|---|
| 8 | ;
|
|---|
| 9 | N SDOE0,SDORG
|
|---|
| 10 | IF '$G(SDOE) D ERRFILE^SDAPIER(110) G FILEQ
|
|---|
| 11 | S SDOE0=$G(^SCE(+SDOE,0)),SDORG=$P(SDOE0,U,8)
|
|---|
| 12 | ;
|
|---|
| 13 | ; -- warning if check-out not required (for old appts)
|
|---|
| 14 | IF $$REQ^SDM1A(+SDOE0)'="CO" D ERRFILE^SDAPIER(1030)
|
|---|
| 15 | ;
|
|---|
| 16 | ; -- warning if not appt and not a clinic
|
|---|
| 17 | IF SDORG=1,'$$CLINIC^SDAMU($P(SDOE0,"^",4)) D ERRFILE^SDAPIER(130,$P(SDOE0,U,4)) G FILEQ
|
|---|
| 18 | ;
|
|---|
| 19 | ; -- warning if patient was inpatient at time of appt
|
|---|
| 20 | IF $$INP^SDAM2(+$P(SDOE0,"^",2),+SDOE0)="I" D ERRFILE^SDAPIER(1031,+SDOE0)
|
|---|
| 21 | ;
|
|---|
| 22 | ; -- process data
|
|---|
| 23 | D CLASS^SDAPICO1(SDOE) I $$ERRCHK^SDAPIER() G FILEQ
|
|---|
| 24 | ;
|
|---|
| 25 | FILEQ Q
|
|---|
| 26 | ;
|
|---|
| 27 | ;
|
|---|
| 28 | DEL(SDOE,SDFL,SDVAL) ; -- delete entry in file if match
|
|---|
| 29 | N DA,DIK,SDI
|
|---|
| 30 | S SDI=0
|
|---|
| 31 | F S SDI=$O(^SDD(SDFL,"AO",+SDOE,+SDVAL,SDI)) Q:'SDI S DIK="^SDD("_SDFL_",",DA=SDI D ^DIK K DIK,DA
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
