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