| 1 | SDCO2 ;ALB/RMO - Classification - Check Out;30 DEC 1992 1:10 pm
|
|---|
| 2 | ;;5.3;Scheduling;**27,132**;08/13/93
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;Entry point for SDCO CLASSIFICATION protocol
|
|---|
| 5 | ; Input -- SDOE
|
|---|
| 6 | N I,SDCLI,SDCLOEY,SDCOMF,SDCOQUIT,SDCTI,SDI,SDLINE,SDSEL,SDSELY
|
|---|
| 7 | S VALMBCK=""
|
|---|
| 8 | ;
|
|---|
| 9 | IF '$$EDITOK^SDCO3(SDOE,1) G Q
|
|---|
| 10 | ;
|
|---|
| 11 | N SDVISIT
|
|---|
| 12 | S SDVISIT=$P($G(^SCE(+SDOE,0)),U,5)
|
|---|
| 13 | S X=$$INTV^PXAPI("SCC","SD","PIMS",SDVISIT)
|
|---|
| 14 | D BLD^SDCO S VALMBCK="R"
|
|---|
| 15 | Q Q
|
|---|
| 16 | ;
|
|---|
| 17 | ASK(SDOE,SDCLOEY,SDCLHDL,SDCOQUIT) ;Ask Outpatient Classifications
|
|---|
| 18 | ; Input -- SDOE Outpatient Encounter file IEN
|
|---|
| 19 | ; SDCLOEY Classification Array for Outpatient Encounter
|
|---|
| 20 | ; SDCLHDL Classification Event Handle [Optional]
|
|---|
| 21 | ; Output -- SDCOQUIT User entered '^' or timeout
|
|---|
| 22 | N I,IOINHI,IOINORM,SDCTI,SDCTIS,SDCTS,SDEVTF,X
|
|---|
| 23 | S X="IOINHI;IOINORM" D ENDR^%ZISS
|
|---|
| 24 | I '$D(SDCLOEY) G ASKQ
|
|---|
| 25 | W !!,"--- ",IOINHI,"Classification",IOINORM," --- [",IOINHI,"Required",IOINORM,"]"
|
|---|
| 26 | I '$G(SDCLHDL) N SDATA,SDCLHDL S SDEVTF=1 D EVT^SDCOU1(SDOE,"BEFORE",.SDCLHDL,.SDATA)
|
|---|
| 27 | W ! S SDCTIS=$$SEQ^SDCO21
|
|---|
| 28 | F SDCTS=1:1 S SDCTI=+$P(SDCTIS,",",SDCTS) Q:'SDCTI!($D(SDCOQUIT)) D
|
|---|
| 29 | .I $D(SDCLOEY(SDCTI)) D
|
|---|
| 30 | ..D ONE^SDCO20(SDCTI,SDCLOEY(SDCTI),SDOE,.SDCOQUIT)
|
|---|
| 31 | ..I SDCTI=3 F I=1,2,4 D SC^SDCO21(I,SDOE,"",.SDCLOEY)
|
|---|
| 32 | I $G(SDEVTF) D EVT^SDCOU1(SDOE,"AFTER",SDCLHDL,.SDATA)
|
|---|
| 33 | ASKQ Q
|
|---|
| 34 | ;
|
|---|
| 35 | CLASK(SDOE,SDCLOEY) ;Ask Classifications on Check Out
|
|---|
| 36 | ; Input -- SDOE Outpatient Encounter file IEN
|
|---|
| 37 | ; Output -- SDCLOEY Classification Array for Outpatient Encounter
|
|---|
| 38 | ; Subscripted by Class Type file IEN
|
|---|
| 39 | ; Null or 409.42 IEN^Internal Value^1=n/a
|
|---|
| 40 | N SDOE0,SDORG
|
|---|
| 41 | S SDOE0=$G(^SCE(+SDOE,0)),SDORG=+$P(SDOE0,"^",8)
|
|---|
| 42 | I $$REQ^SDM1A(+SDOE0)'="CO" G CLASKQ
|
|---|
| 43 | I SDORG=1,'$$CLINIC^SDAMU(+$P(SDOE0,"^",4)) G CLASKQ
|
|---|
| 44 | I "^1^2^"[("^"_SDORG_"^"),$$INP^SDAM2(+$P(SDOE0,"^",2),+SDOE0)="I" G CLASKQ
|
|---|
| 45 | I $$EXOE^SDCOU2(SDOE) G CLASKQ
|
|---|
| 46 | D CLOE^SDCO21(SDOE,.SDCLOEY)
|
|---|
| 47 | CLASKQ Q
|
|---|
