BPSSCRU1 ;BHAM ISC/SS - ECME SCREEN UTILITIES ;05-APR-05
;;1.0;E CLAIMS MGMT ENGINE;**1,11,23**;JUN 2004;Build 44
;;Per VA Directive 6402, this routine should not be modified.
;USER SCREEN
Q
;
;get date/time range
;input:
; BPROF - to store user profile info
;output:
; BPROF("BDT") - start datetime in FM format
; BPROF("EDT") - end datetime in FM format
GETDT(BPROF) ;
N BPNOW,X,BPHORL,%
; If the user selected Display Activity Date Range.
I $G(BPROF(1.031))="D" D Q 1
. ; Adds seconds to the beginning date (BPROF(1.032)-1) in order
. ; to pick up everything for that beginning date.
. ; Example: BPROF(1.032)=3170901, BPROF("BDT")=3170900.999999
. ;
. S BPROF("BDT")=$G(BPROF(1.032))-0.000001
. ;
. ; Adds seconds to the ending date (BPROF(1.033)) in order
. ; to pick up everything for the ending date.
. ; Example: BPROF(1.033)=3170906, BPROF("BDT")=3170906.9
. ;
. S BPROF("EDT")=$G(BPROF(1.033))+0.9
;
; If the user selected Display Timeframe.
; Timeframe is the default if no selection was made.
E D
. 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
I $G(BP59)="" Q 0
;get claim ptr to #9002313.02
S BPCLAIM=+$P($G(^BPST(BP59,0)),U,4)
I 'BPCLAIM Q 0
; get closed status
Q +$P($G(^BPSC(BPCLAIM,900)),U)=1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSSCRU1 2019 printed Apr 09, 2024@20:56:13 Page 2
BPSSCRU1 ;BHAM ISC/SS - ECME SCREEN UTILITIES ;05-APR-05
+1 ;;1.0;E CLAIMS MGMT ENGINE;**1,11,23**;JUN 2004;Build 44
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;USER SCREEN
+4 QUIT
+5 ;
+6 ;get date/time range
+7 ;input:
+8 ; BPROF - to store user profile info
+9 ;output:
+10 ; BPROF("BDT") - start datetime in FM format
+11 ; BPROF("EDT") - end datetime in FM format
GETDT(BPROF) ;
+1 NEW BPNOW,X,BPHORL,%
+2 ; If the user selected Display Activity Date Range.
+3 IF $GET(BPROF(1.031))="D"
Begin DoDot:1
+4 ; Adds seconds to the beginning date (BPROF(1.032)-1) in order
+5 ; to pick up everything for that beginning date.
+6 ; Example: BPROF(1.032)=3170901, BPROF("BDT")=3170900.999999
+7 ;
+8 SET BPROF("BDT")=$GET(BPROF(1.032))-0.000001
+9 ;
+10 ; Adds seconds to the ending date (BPROF(1.033)) in order
+11 ; to pick up everything for the ending date.
+12 ; Example: BPROF(1.033)=3170906, BPROF("BDT")=3170906.9
+13 ;
+14 SET BPROF("EDT")=$GET(BPROF(1.033))+0.9
End DoDot:1
QUIT 1
+15 ;
+16 ; If the user selected Display Timeframe.
+17 ; Timeframe is the default if no selection was made.
+18 IF '$TEST
Begin DoDot:1
+19 DO NOW^%DTC
SET BPNOW=%
+20 IF ($GET(BPROF(1.04))'="D")&($GET(BPROF(1.04))'="H")
SET BPROF(1.04)="D"
+21 IF +$GET(BPROF(1.05))=0
SET BPROF(1.05)=1
+22 IF $GET(BPROF(1.04))="D"
Begin DoDot:2
+23 SET BPROF("BDT")=$$FMADD^XLFDT(BPNOW\1,-$GET(BPROF(1.05)))-0.000001
+24 SET BPROF("EDT")=(BPNOW\1)+0.9
End DoDot:2
+25 IF $GET(BPROF(1.04))="H"
Begin DoDot:2
+26 SET BPROF("BDT")=$$FMADD^XLFDT(BPNOW,0,-$GET(BPROF(1.05)))
+27 SET BPROF("EDT")=BPNOW
End DoDot:2
End DoDot:1
+28 QUIT 1
+29 ;
ISCOPAY ;stub
+1 QUIT "COPAY"
+2 ;
CLPRCNTG ;stub
+1 QUIT "%%"
+2 ;
PTCLMINF ;stub
+1 QUIT "X claims payable"
+2 ;
+3 ;/**
+4 ;get user name from file #200
+5 ;input: BPDUZ ien in file 200
+6 ;output name as string
GETUSRNM(BPDUZ) ;
+1 QUIT $EXTRACT($$GET1^DIQ(200,+BPDUZ,.01,"E"),1,20)
+2 ;
+3 ;/**
+4 ;Checks if the CLAIM for specific Transaction is CLOSED?
+5 ;BP59 - 9002313.59
CLOSED(BP59) ;*/
+1 NEW BPCLAIM
+2 IF $GET(BP59)=""
QUIT 0
+3 ;get claim ptr to #9002313.02
+4 SET BPCLAIM=+$PIECE($GET(^BPST(BP59,0)),U,4)
+5 IF 'BPCLAIM
QUIT 0
+6 ; get closed status
+7 QUIT +$PIECE($GET(^BPSC(BPCLAIM,900)),U)=1
