53 lines
1.3 KiB
Mathematica
53 lines
1.3 KiB
Mathematica
BPSSCRU1 ;BHAM ISC/SS - ECME SCREEN UTILITIES ;05-APR-05
|
|
;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
|
|
;; Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;USER SCREEN
|
|
Q
|
|
;
|
|
;get date/time range
|
|
;input:
|
|
; BPROF - to store usre profile info
|
|
;output:
|
|
; BPROF("BDT") - start datetime in FM format
|
|
; BPROF("EDT") - end datetime in FM format
|
|
GETDT(BPROF) ;
|
|
N BPNOW,X,BPHORL,%
|
|
D NOW^%DTC S BPNOW=%
|
|
I ($G(BPROF(1.04))'="D")&($G(BPROF(1.04))'="H") S BPROF(1.04)="D"
|
|
I +$G(BPROF(1.05))=0 S BPROF(1.05)=1
|
|
I $G(BPROF(1.04))="D" D
|
|
. S BPROF("BDT")=$$FMADD^XLFDT(BPNOW\1,-$G(BPROF(1.05)))-0.000001
|
|
. S BPROF("EDT")=(BPNOW\1)+0.9
|
|
I $G(BPROF(1.04))="H" D
|
|
. S BPROF("BDT")=$$FMADD^XLFDT(BPNOW,0,-$G(BPROF(1.05)))
|
|
. S BPROF("EDT")=BPNOW
|
|
Q 1
|
|
;
|
|
;
|
|
ISCOPAY ;stub
|
|
Q "COPAY"
|
|
;
|
|
CLPRCNTG ;stub
|
|
Q "%%"
|
|
;
|
|
PTCLMINF ;stub
|
|
Q "X claims payable"
|
|
;
|
|
;/**
|
|
;get user name from file #200
|
|
;input: BPDUZ ien in file 200
|
|
;output name as string
|
|
GETUSRNM(BPDUZ) ;
|
|
Q $E($$GET1^DIQ(200,+BPDUZ,.01,"E"),1,20)
|
|
;
|
|
;/**
|
|
;Checks if the CLAIM for specific Transaction is CLOSED?
|
|
;BP59 - 9002313.59
|
|
CLOSED(BP59) ;*/
|
|
N BPCLAIM
|
|
;get claim ptr to #9002313.02
|
|
S BPCLAIM=+$P($G(^BPST(BP59,0)),U,3) ;$$GET1^DIQ(9002313.59,BP59,3,"I") I 'CLAIM Q 0
|
|
; get closed status
|
|
Q +$P($G(^BPSC(BPCLAIM,900)),U)=1 ;Q $$GET1^DIQ(9002313.02,CLAIM,901,"I")
|
|
;
|