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

BPSRCRI.m

Go to the documentation of this file. 
  1. BPSRCRI  ;BHAM ISC/NSS - ECME REPORTS ;08-FEB-07
  1.  ;;1.0;E CLAIMS MGMT ENGINE;**5**;JUN 2004;Build 45
  1.  ;;Per VHA Directive 2004-038, this routine should not be modified.
  1.  ;
  1.  Q
  1.  ;
  1.  ;ECME Claims Response Inquiry Report
  1.  ; 
  1.  ;User input prompts
  1. EN ; Routine entry point
  1.  N BPCFILE,BP02,BP03,BPSCR,BPQ,BPX,BPVAX,ZTQUEUED
  1.  S BPCFILE=9002313.02
  1.  I $D(IOF) W @IOF
  1.  W !,"ECME Claims-Response Inquiry Report",!
  1.  ;
  1.  ;User selects VA CLAIM ID
  1.  S BP02=$$BPIEN(BPCFILE)
  1.  I BP02=-1 G EXIT
  1.  S BPVAX=$P(BP02,U,2),BP02=+BP02
  1.  ;
  1.  ;Select device
  1.  I $$DEVICE=-1 G EXIT
  1.  ;
  1.  ;Run the reports
  1.  D RUNRPT
  1.  ;
  1.  ;Prompt user to retrieve Claim IEN
  1.  ;Input
  1.  ;  BPCFILE (9002313.02) user inputs VA ID#
  1.  ;Output
  1.  ;  -1 (not found) or File IEN
  1. BPIEN(BPCFILE) ; User is prompted for input, cross-ref "B" lookup
  1.  N DIC,Y,DUOUT,DTOUT,DIROUT
  1.  S DIC=$$ROOT^DILFD(BPCFILE)
  1.  S DIC("A")="Select VA Claim ID: "
  1.  S DIC(0)="ABEQ"
  1.  D ^DIC
  1.  I (Y=-1)!$D(DIROUT)!$D(DUOUT)!$D(DTOUT) Q -1
  1.  Q Y
  1.  ;
  1.  ;Select the output Device
  1. DEVICE() ; 
  1.  N %ZIS,ZTSK,ZTRTN,ZTIO,ZTSAVE,ZTDESC,POP,BPQ
  1.  S BPQ=0
  1.  S %ZIS="QM"
  1.  W !!,"Note: This report contains three separate sections - transaction data, claims"
  1.  W !,"      data, and response data.  There will be a page break/form feed after"
  1.  W !,"      each section regardless of the page length specified in the device input.",!
  1.  D ^%ZIS
  1.  I POP Q -1
  1.  S BPSCR=$S($E($G(IOST),1,2)="C-":1,1:0)
  1.  I $D(IO("Q")) D  S BPQ=-1
  1.  . S ZTRTN="RUNRPT^BPSRCRI"
  1.  . S ZTIO=ION
  1.  . S ZTSAVE("*")=""
  1.  . S ZTDESC="ECME CLAIMS RESPONSE INQUIRY REPORT"
  1.  . D ^%ZTLOAD
  1.  . W !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  1.  . D HOME^%ZIS
  1.  U IO
  1.  Q BPQ
  1.  ;
  1.  ; Print or display the report
  1. RUNRPT ; 
  1.  N BPLARR,BP57,BP59,BPQ
  1.  D BPFLDS ; BPS TRANSACTIONS/LOG OF TRANSACTIONS
  1.  D PRNTRPT
  1.  Q
  1.  ;
  1.  ;Collect data from Transactions file #59 or Transactions Log file #57
  1. BPFLDS ; Build BPLARR array of data
  1.  N BPL0,BPL1,BP902
  1.  S BP03=0,BPX=""
  1.  ;Determine if claim is reversal or not
  1.  I $D(^BPST("AE",BP02))!($D(^BPSTL("AE",BP02))) D
  1.  . S BPX="AE" ;Not a reversal
  1.  . S BPLARR(9)="  CLAIM IEN (c): "
  1.  . S BPLARR(10)="RESPONSE IEN (c): "
  1.  I BPX="",($D(^BPST("AER",BP02))!($D(^BPSTL("AER",BP02)))) D
  1.  . S BPX="AER" ;Reversal
  1.  . S BPLARR(10)="REVERSAL RESPONSE IEN (c): "
  1.  . S BPLARR(9)="  REVERSAL CLAIM IEN (c): "
  1.  I BPX="" Q
  1.  S (BP57,BP59)=0
  1.  S BP59=$O(^BPST(BPX,BP02,""),-1)
  1.  I BP59="" S BP59=0
  1.  ;
  1.  I BP59'=0 D  ;Find claim in BPS Transactions file
  1.  . S BPL0=$G(^BPST(BP59,0)),BPL1=$G(^BPST(BP59,1))
  1.  . I BPX="AE" S BP03=$P($G(^BPST(BP59,0)),U,5)
  1.  . I BPX="AER" S BP03=$P($G(^BPST(BP59,4)),U,2)
  1.  . S BPLARR(4)="PRESCRIPTION #: "_+$$GET1^DIQ(9002313.59,BP59,1.11)
  1.  . D GETS^DIQ(9002313.59902,1_","_BP59,"902;902.24;902.27","E","BP902","ERROR")
  1.  . S BPLARR(7)="  PLAN NAME: "_$G(BP902(9002313.59902,"1,"_BP59_",",902.24,"E"))
  1.  . S BPLARR(8)="PHARMACY PLAN ID: "_$G(BP902(9002313.59902,"1,"_BP59_",",902.27,"E"))
  1.  ;
  1.  I BP59=0 D  ;;Find claim in BPS Log of Transactions file
  1.  . S BP57=$O(^BPSTL(BPX,BP02,""),-1)
  1.  . I BP57="" S BP57=0 Q
  1.  . S BPL0=$G(^BPSTL(BP57,0)),BPL1=$G(^BPSTL(BP57,1)),BP59=$P($G(BPL0),U)
  1.  . I BPX="AE" S BP03=$P($G(^BPSTL(BP57,0)),U,5)
  1.  . I BPX="AER" S BP03=$P($G(^BPSTL(BP57,4)),U,2)
  1.  . S BPLARR(4)="PRESCRIPTION #: "_+$$GET1^DIQ(9002313.57,BP57,1.11)
  1.  . D GETS^DIQ(9002313.57902,1_","_BP57,"902;902.24;902.27","E","BP902","ERROR")
  1.  . S BPLARR(7)="  PLAN NAME: "_$G(BP902(9002313.59902,"1,"_BP57_",",902.24,"E"))
  1.  . S BPLARR(8)="PHARMACY PLAN ID: "_$G(BP902(9002313.59902,"1,"_BP57_",",902.27,"E"))
  1.  ;
  1.  I BP59=0,BP57=0 Q
  1.  ;Build rest of array components
  1.  S BPLARR(1)="ENTRY#: "_BP59
  1.  S BPLARR(2)="STATUS: "_+$P($G(BPL0),U,2)
  1.  S BPX=$P($G(BPL1),U,7)
  1.  S BPLARR(3)="  PHARMACY: "_$P($G(^BPS(9002313.56,+BPX,0)),"^")
  1.  S BPLARR(5)="  RXI-INTERNAL (c): "_$P($G(BPL1),U,11)
  1.  S BPLARR(9)=BPLARR(9)_BP02
  1.  S BPLARR(10)=BPLARR(10)_BP03
  1.  Q
  1.  ;
  1. PRNTRPT ; Output the reports
  1.  N BPQ,ZTREQ
  1.  S BPQ=0
  1.  W @IOF
  1.  D CHKP(1) I BPQ Q
  1.  W "ECME Claims-Response Inquiry Report"
  1.  W ?48,"Print Date: "_$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3)
  1.  W !,"VA CLAIM ID: "_BPVAX,!
  1.  D PRTTRANS ; BPS Transaction (or Transaction log) file fields
  1.  I 'BPSCR W !,@IOF
  1.  E  I 'BPQ D PAUSE
  1.  Q:BPQ
  1.  D PRT02 ; BPS CLAIMS FILE
  1.  I 'BPSCR W !,@IOF
  1.  E  I 'BPQ D PAUSE
  1.  Q:BPQ
  1.  D PRT03 ; BPS RESPONSE FILE
  1.  Q:BPQ
  1.  I 'BPSCR W !,@IOF
  1.  E  I 'BPQ D PAUSE2
  1.  I $D(ZTQUEUED) S ZTREQ="@" Q
  1.  D ^%ZISC
  1.  Q
  1.  ;
  1.  ; Display transaction log fields
  1. PRTTRANS ; Print transaction file report
  1.  W !,"BPS TRANSACTION/BPS LOG OF TRANSACTION DATA: ",!
  1.  I BPX="" W !,"NO TRANSACTION MATCHES FOUND",!! Q
  1.  ;
  1.  ;Loop through the array
  1.  N BPX
  1.  S BPX=0 F  S BPX=$O(BPLARR(BPX)) Q:'BPX  D  I BPQ Q
  1.  . D CHKP(1) I BPQ Q
  1.  . I BPX=1 W !,BPLARR(BPX) Q
  1.  . I BPX#2=0 W ?40,BPLARR(BPX) Q
  1.  . W !,BPLARR(BPX)
  1.  Q
  1.  ;
  1.  ;Run claim file data report #9002313.02
  1. PRT02  ; Claims file output
  1.  W !,"BPS CLAIMS FILE DATA: "
  1.  N DIC,DR,DA,DIQ,DTOUT,DIRUT
  1.  S DIC=$$ROOT^DILFD(BPCFILE),DA=BP02
  1.  I $D(IOF) W @IOF
  1.  D EN^DIQ
  1.  I ($G(DUOUT)=1)!($G(DTOUT)=1) S BPQ=1
  1.  Q
  1.  ;
  1.  ;Run response file data report #9002313.03
  1. PRT03 ; Response file output
  1.  W !!,"BPS RESPONSE FILE DATA: ",!
  1.  I BP03=0!(BP03="") W !,"NO RESPONSE FILE DATA FOUND",!! Q
  1.  N DIC,DR,DA,DIQ,DTOUT,DIRUT
  1.  S DIC=$$ROOT^DILFD(9002313.03),DA=BP03
  1.  D EN^DIQ
  1.  I ($G(DUOUT)=1)!($G(DTOUT)=1) S BPQ=1
  1.  Q
  1.  ;
  1.  ;Check for End of Page
  1.  ; Input variable -> BPLINES - Number of lines from bottom
  1.  ;                      CONT - 0 = New Entry, 1 = Continue Entry
  1. CHKP(BPLINES) ;
  1.  S BPLINES=BPLINES+1
  1.  I $G(BPSCR) S BPLINES=BPLINES+1
  1.  I $Y>(IOSL-BPLINES) D:$G(BPSCR) PAUSE Q:$G(BPQ) 0 Q 1
  1.  Q 0
  1.  ;
  1. PAUSE ;
  1.  N X
  1.  U IO(0)
  1.  R !!,"Press RETURN to continue, '^' to exit: ",X:DTIME
  1.  I '$T S X="^"
  1.  I X["^" S BPQ=1
  1.  U IO
  1.  Q
  1.  ;
  1. PAUSE2 ;
  1.  N X
  1.  U IO(0)
  1.  R !,"Press RETURN to continue: ",X:DTIME
  1.  U IO
  1.  Q
  1.  ;
  1.  ;EXIT
  1. EXIT ;
  1.  Q
  1.  ;