Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BPSSCRU1

BPSSCRU1.m

Go to the documentation of this file.
  1. BPSSCRU1 ;BHAM ISC/SS - ECME SCREEN UTILITIES ;05-APR-05
  1. ;;1.0;E CLAIMS MGMT ENGINE;**1,11,23**;JUN 2004;Build 44
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;USER SCREEN
  1. Q
  1. ;
  1. ;get date/time range
  1. ;input:
  1. ; BPROF - to store user profile info
  1. ;output:
  1. ; BPROF("BDT") - start datetime in FM format
  1. ; BPROF("EDT") - end datetime in FM format
  1. GETDT(BPROF) ;
  1. N BPNOW,X,BPHORL,%
  1. ; If the user selected Display Activity Date Range.
  1. I $G(BPROF(1.031))="D" D Q 1
  1. . ; Adds seconds to the beginning date (BPROF(1.032)-1) in order
  1. . ; to pick up everything for that beginning date.
  1. . ; Example: BPROF(1.032)=3170901, BPROF("BDT")=3170900.999999
  1. . ;
  1. . S BPROF("BDT")=$G(BPROF(1.032))-0.000001
  1. . ;
  1. . ; Adds seconds to the ending date (BPROF(1.033)) in order
  1. . ; to pick up everything for the ending date.
  1. . ; Example: BPROF(1.033)=3170906, BPROF("BDT")=3170906.9
  1. . ;
  1. . S BPROF("EDT")=$G(BPROF(1.033))+0.9
  1. ;
  1. ; If the user selected Display Timeframe.
  1. ; Timeframe is the default if no selection was made.
  1. E D
  1. . D NOW^%DTC S BPNOW=%
  1. . I ($G(BPROF(1.04))'="D")&($G(BPROF(1.04))'="H") S BPROF(1.04)="D"
  1. . I +$G(BPROF(1.05))=0 S BPROF(1.05)=1
  1. . I $G(BPROF(1.04))="D" D
  1. . . S BPROF("BDT")=$$FMADD^XLFDT(BPNOW\1,-$G(BPROF(1.05)))-0.000001
  1. . . S BPROF("EDT")=(BPNOW\1)+0.9
  1. . I $G(BPROF(1.04))="H" D
  1. . . S BPROF("BDT")=$$FMADD^XLFDT(BPNOW,0,-$G(BPROF(1.05)))
  1. . . S BPROF("EDT")=BPNOW
  1. Q 1
  1. ;
  1. ISCOPAY ;stub
  1. Q "COPAY"
  1. ;
  1. CLPRCNTG ;stub
  1. Q "%%"
  1. ;
  1. PTCLMINF ;stub
  1. Q "X claims payable"
  1. ;
  1. ;/**
  1. ;get user name from file #200
  1. ;input: BPDUZ ien in file 200
  1. ;output name as string
  1. GETUSRNM(BPDUZ) ;
  1. Q $E($$GET1^DIQ(200,+BPDUZ,.01,"E"),1,20)
  1. ;
  1. ;/**
  1. ;Checks if the CLAIM for specific Transaction is CLOSED?
  1. ;BP59 - 9002313.59
  1. CLOSED(BP59) ;*/
  1. N BPCLAIM
  1. I $G(BP59)="" Q 0
  1. ;get claim ptr to #9002313.02
  1. S BPCLAIM=+$P($G(^BPST(BP59,0)),U,4)
  1. I 'BPCLAIM Q 0
  1. ; get closed status
  1. Q +$P($G(^BPSC(BPCLAIM,900)),U)=1