- 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 Jan 18, 2025@02:54:32 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