| 1 | SDSCCLM ;ALB/JAM/RBS - ASCD Update Claims Tracking ; 3/12/07 4:58pm
|
|---|
| 2 | ;;5.3;Scheduling;**495**;Aug 13, 1993;Build 50
|
|---|
| 3 | ;;MODIFIED FOR NATIONAL RELEASE from a Class III software product
|
|---|
| 4 | ;;known as Service Connected Automated Monitoring (SCAM).
|
|---|
| 5 | ;
|
|---|
| 6 | Q
|
|---|
| 7 | CLM(SDENC) ; Check Claims Tracking
|
|---|
| 8 | N SDOE0,SCSTAT,SCTIEN,SCVAL,SCTUPD,SDSC,SCERR
|
|---|
| 9 | ;
|
|---|
| 10 | ; If this encounter is not yet completed, quit
|
|---|
| 11 | I $P(^SDSC(409.48,SDENC,0),"^",5)'="C" Q
|
|---|
| 12 | ;
|
|---|
| 13 | ; Status of encounter must be 'checked out'
|
|---|
| 14 | S SDOE0=$$GETOE^SDOE(SDENC)
|
|---|
| 15 | S SCSTAT=$P(SDOE0,"^",12) I SCSTAT'=2 Q
|
|---|
| 16 | ;
|
|---|
| 17 | ; Call IB API to get the claims tracking number
|
|---|
| 18 | S SCTIEN=$$CT^IBRSUTL(SDENC)
|
|---|
| 19 | ;
|
|---|
| 20 | ;If there is no CT entry quit
|
|---|
| 21 | I SCTIEN="" Q
|
|---|
| 22 | S SDSC(409.48,SDENC_",",.1)=SCTIEN
|
|---|
| 23 | D FILE^DIE("I","SDSC","SCERR")
|
|---|
| 24 | ;
|
|---|
| 25 | ;If SC value hasn't changed quit, else update CT in IB
|
|---|
| 26 | S SCVAL=$$SCHNG^SDSCUTL(SDENC) I '+SCVAL Q
|
|---|
| 27 | S SCTUPD=$$RNBU^IBRSUTL(SDENC,$S($P(SCVAL,U,3):1,1:2))
|
|---|
| 28 | Q
|
|---|
