source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDSCCLM.m@ 1133

Last change on this file since 1133 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 905 bytes
Line 
1SDSCCLM ;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
7CLM(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
Note: See TracBrowser for help on using the repository browser.