- BPSSCRSL ;BHAM ISC/SS - ECME SCREEN SORT LIST ;05-APR-05
- ;;1.0;E CLAIMS MGMT ENGINE;**1,7,11,20,22,23**;JUN 2004;Build 44
- ;;Per VA Directive 6402, this routine should not be modified.
- ;USER SCREEN
- ;
- ;This software is using PARAMETER TOOLS (see XT*7.3*26) to store user's settings:
- ;PARAMETER DEFINITION NAME="BPS USRSCR" (file #8989.51, IA# 2263)
- ;ENTITY is "USR" , i.e. IEN in ^VA(200 -- see definition for "BPS USRSCR"
- ;INSTANCEs are as follows:
- ;1.01 ONE/ALL USERS --'U' ONE USER, 'A' ALL; Display claims for ONE or ALL users
- ;1.02 ONE/ALL PATIENTS --'P' FOR ONE PATIENT; 'A' FOR ALL; Display claims for ONE/ALL PATIENTS
- ;1.03 ONE/ALL RX --'R' FOR ONE RX; 'A' FOR ALL; Display claims for ONE or ALL RX
- ;1.031 DATE RANGE/TIMEFRAME -- 'D' FOR DATE RANGE; 'T' FOR TIMEFRAME
- ;1.032 ACTIVITY BEGINNING DATE - Beginning Date of the Date Range
- ;1.033 ACTIVITY ENDING DATE - Ending Date of the Date Range
- ;1.04 HOURS/DAYS -- 'D' FOR DAYS; 'H' FOR HOURS; Use HOURS or DAYS to specify timeframe
- ;1.05 TIMEFRAME -- NUMBER Depends on the value of the field "USR SCR HOURS/DAYS" this field will
- ;store the default number of HOURS from NOW or DAYS from TODAY to select claims to display
- ;1.06 REJECTED/PAYABLE --'R' FOR REJECTS; 'P' FOR PAYABLES; 'U' FOR UNSTRANDED; 'A' FOR ALL; Display Rejects or Payables or Unstranded or ALL claims
- ;1.07 RELEASED/NOT RELEASED --'R' FOR RELEASED; 'N' FOR NON-RELEASED; 'A' FOR ALL; Display Released Rxs or Non-Released Rxs or ALL
- ;1.08 CMOP/MAIL/WINDOW --'C' FOR CMOP; 'M' FOR MAIL;'W' FOR WINDOW;'A' FOR ALL; Display CMOP or Mail or Window or ALL Rxs
- ;1.09 REALTIME/BACKBILL --'R' FOR REALTIME; 'B' FOR BACKBILLS; 'P' FOR PRO OPTION; 'R' FOR RESUBMISSION; 'A' FOR ALL;
- ; Display (R)ealTime, (B)ackbills, (P)RO Option, Re(S)ubmission or (A)LL
- ;1.1 REJECT CODE/ALL --'R' FOR REJECT CODE; 'A' FOR ALL; Display Specific Reject Code or ALL Reject
- ;Codes 0 means ALL Reject Codes otherwise - Reject Code value
- ;1.11 SPECIFIC/ALL INSURANCES --'I' FOR SPECIFIC INSURANCE(S);'A' FOR ALL; Display Specific Insurance Company(s) or All null - ALL otherwise - pointer to INSURANCE COMPANY file #36
- ;1.12 SORT LIST --'T' FOR TRANSACTION DATE;'D' FOR DIVISION; 'I' FOR INSURANCE; 'C' FOR REJECT CODE;
- ;'P' FOR PATIENT NAME -- 'N' FOR DRUG NAME; 'B' FOR BILL TYPE (BB/P2/RT/RS); 'L' FOR FILL LOCATION;
- ;'R' FOR RELEASED/NON-RELEASED -- 'A' FOR ACTIVE/DISCONTINUED; the field used to sort claims in the list
- ;1.13 ALL ECME PHARMACY DIVISIONS --'D' FOR DIVISION; 'A' FOR ALL;
- ;1.14 SELECTED INSURANCE -- Single, or multiple, insurance(s) to select claims for the User Screen, to store INSURANCE COMPANY pointer (#36)
- ;1.15 SELECTED REJECTED CODE --POINTER TO BPS NCPDP REJECT CODES FILE (#9002313.93) Reject code selected by the user to filter claims.
- ;1.16 SELECTED USER -- POINTER TO NEW PERSON FILE (#200) Selected user for the user screen
- ;1.17 SELECTED PATIENT -- POINTER TO PATIENT FILE (#2) Selected patient for the User Screen
- ;1.18 SELECTED RX -- POINTER TO PRESCRIPTION FILE (#52) Selected RX
- ;1.19 NON-BILLABLE TRI/CVA ENTRIES OPEN/CLOSED/ALL -- 'O' Open; 'C' Closed; 'A' All
- ;2 ECME PHARMACY DIVISION -- the list of POINTERs TO BPS PHARMACIES FILE (#9002313.56) separated by "^"
- ;2.01 ELIGIBILITY TYPE --'V' FOR VETERAN;'T' FOR TRICARE;'C' FOR CHAMPVA;'A' FOR ALL; Display claims for specific Eligibility Type or ALL
- ;2.02 OPEN/CLOSED/ALL --'O' OPEN CLAIMS;'C' CLOSED CLAIMS;'A' FOR ALL; Display Open, Closed, or ALL claims
- ;2.03 SUBMISSION TYPE --'B' BILLING REQUESTS;'R' REVERSALS;'A' FOR ALL; Display specific submission type claims or ALL
- ;2.04 INSURANCES -- List of POINTERs to the INSURANCE COMPANY FILE (#36) separated by ";"
- ;should start and end with ";", example: ";4;5;"
- ;
- ;NOTE: use D ^XPAREDIT to add/edit values
- ;
- ;*****
- SL ;
- D FULL^VALM1
- W @IOF
- K BPARR
- I +$G(DUZ)=0 D ERRMSG^BPSSCRCV("Unknown User") Q
- N BPDUZ7
- S BPDUZ7=+DUZ
- ;always get current profile from the file
- ;D READPRFP(.BPARR,+DUZ)
- D READPROF(.BPARR,+BPDUZ7)
- D SAVEVIEW^BPSSCR01(.BPARR)
- ;edit current profile
- D EDITPROF(.BPARR,.BPDUZ7)
- D SAVEVIEW^BPSSCR01(.BPARR)
- ;save it if necessary only for SORT LIST field
- ;(so we used a separate array for this and save it only)
- N BPSRT S BPSRT(1.12)=BPARR(1.12)
- D ENDEDIT(.BPSRT,+BPDUZ7)
- D SAVEVIEW^BPSSCR01(.BPARR)
- ;redraw screen
- D REDRAW^BPSSCRUD("Updating screen...")
- Q
- ;
- ;input:
- ;BPARRAY - array that all settings:
- ; in the form BPARRAY(instance in "BPS USRSCR" parameter tool entry) = value
- ;BPDUZ7 - DUZ
- EDITPROF(BPARR,BPDUZ7) ;
- N BP1
- N BPRET
- N BPSTR
- S BPSTR="S^T:TRANSACTION DATE;D:DIVISION;I:INSURANCE;C:REJECT CODE;P:PATIENT NAME;N:DRUG NAME;B:BILL TYPE (BB/P2/RT/RS);L:FILL LOCATION;R:RELEASED/NON-RELEASED;A:ACTIVE/DISCONTINUED"
- I $$EDITFLD^BPSSCRCV(1.12,+BPDUZ7,BPSTR,"ENTER SORT TYPE","TRANSACTION DATE",.BPARR)=-1 S BPDUZ7=0 Q
- Q
- ;
- ;input:
- ;BPARRAY - array that all settings:
- ;in the form BPARRAY(instance in "BPS USRSCR" parameter tool entry) = value
- ;BPDUZ7 - DUZ
- ;
- ENDEDIT(BPARRAY,BPDUZ7) ;
- S BPARRAY("TEMPCV")=1 ; Default as Temporary View defined
- I $$PROMPT^BPSSCRCV("S^Y:YES;N:NO","DO YOU WANT TO SAVE THIS VIEW AS YOUR PREFERRED VIEW (Y/N)?","")="Y" D
- . D FILEALL^BPSSCRCV(.BPARRAY,BPDUZ7)
- . K BPARRAY("TEMPCV") ; User agreed to save view as preferred - Remove TEMPCV flag
- Q
- ;read profile information (used in other routines as well)
- ;input:
- ;BPDUZ7 - DUZ
- ;input/output:
- ;BPARRAY - to return back profile information, as reference
- ;see description in the top of the routine
- READPROF(BPARRAY,BPDUZ7) ;
- N RETV,RETARR,BPFLDNO,BPDIV,BP1
- N RECIENS
- S RECIENS=BPDUZ7_","
- F BPFLDNO=1.01,1.02,1.03,1.031,1.032,1.033,1.04,1.05,1.06,1.07,1.08,1.09,1.1,1.11,1.12,1.13,1.14,1.15,1.16,1.17,1.18,1.19,2.01,2.02,2.03,2.04 D
- . S RETV=$$GETPARAM(BPFLDNO,+BPDUZ7)
- . S BPARRAY(BPFLDNO)=RETV
- I BPARRAY(1.13)="D" D
- . S BPARRAY("DIVS")=$$GETPARAM(2,+BPDUZ7)
- I BPARRAY(1.11)="I" D
- . S BPARRAY("INS")=$$GETPARAM(2.04,+BPDUZ7)
- Q
- ;
- SORTTYPE(BPSTYPE) ;
- Q:(BPSTYPE="T") "Transaction Date"
- Q:(BPSTYPE="D") "ECME division"
- Q:(BPSTYPE="I") "Insurance"
- Q:(BPSTYPE="C") "Reject Code"
- Q:(BPSTYPE="P") "Patient Name"
- Q:(BPSTYPE="N") "Drug Name"
- Q:(BPSTYPE="B") "Claim's Origin (BB/P2/RT/RS)"
- Q:(BPSTYPE="L") "Fill Location"
- Q:(BPSTYPE="R") "Released/Non-released"
- Q:(BPSTYPE="A") "Active/Discontinued"
- Q ""
- ;
- ;
- GETPARAM(BPFLDNO,BPDUZ) ;
- Q $$GET^XPAR(BPDUZ_";VA(200,","BPS USRSCR",BPFLDNO,"I")
- ;
- ;save value of the parameter
- SAVEPAR(BPFLDNO,BPDUZ,BPVAL) ;
- D EN^XPAR(BPDUZ_";VA(200,","BPS USRSCR",BPFLDNO,BPVAL,.BPERR)
- I BPERR'="0" W !,BPERR,! Q 0
- Q 1
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSSCRSL 6776 printed Feb 18, 2025@23:19:41 Page 2
- BPSSCRSL ;BHAM ISC/SS - ECME SCREEN SORT LIST ;05-APR-05
- +1 ;;1.0;E CLAIMS MGMT ENGINE;**1,7,11,20,22,23**;JUN 2004;Build 44
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;USER SCREEN
- +4 ;
- +5 ;This software is using PARAMETER TOOLS (see XT*7.3*26) to store user's settings:
- +6 ;PARAMETER DEFINITION NAME="BPS USRSCR" (file #8989.51, IA# 2263)
- +7 ;ENTITY is "USR" , i.e. IEN in ^VA(200 -- see definition for "BPS USRSCR"
- +8 ;INSTANCEs are as follows:
- +9 ;1.01 ONE/ALL USERS --'U' ONE USER, 'A' ALL; Display claims for ONE or ALL users
- +10 ;1.02 ONE/ALL PATIENTS --'P' FOR ONE PATIENT; 'A' FOR ALL; Display claims for ONE/ALL PATIENTS
- +11 ;1.03 ONE/ALL RX --'R' FOR ONE RX; 'A' FOR ALL; Display claims for ONE or ALL RX
- +12 ;1.031 DATE RANGE/TIMEFRAME -- 'D' FOR DATE RANGE; 'T' FOR TIMEFRAME
- +13 ;1.032 ACTIVITY BEGINNING DATE - Beginning Date of the Date Range
- +14 ;1.033 ACTIVITY ENDING DATE - Ending Date of the Date Range
- +15 ;1.04 HOURS/DAYS -- 'D' FOR DAYS; 'H' FOR HOURS; Use HOURS or DAYS to specify timeframe
- +16 ;1.05 TIMEFRAME -- NUMBER Depends on the value of the field "USR SCR HOURS/DAYS" this field will
- +17 ;store the default number of HOURS from NOW or DAYS from TODAY to select claims to display
- +18 ;1.06 REJECTED/PAYABLE --'R' FOR REJECTS; 'P' FOR PAYABLES; 'U' FOR UNSTRANDED; 'A' FOR ALL; Display Rejects or Payables or Unstranded or ALL claims
- +19 ;1.07 RELEASED/NOT RELEASED --'R' FOR RELEASED; 'N' FOR NON-RELEASED; 'A' FOR ALL; Display Released Rxs or Non-Released Rxs or ALL
- +20 ;1.08 CMOP/MAIL/WINDOW --'C' FOR CMOP; 'M' FOR MAIL;'W' FOR WINDOW;'A' FOR ALL; Display CMOP or Mail or Window or ALL Rxs
- +21 ;1.09 REALTIME/BACKBILL --'R' FOR REALTIME; 'B' FOR BACKBILLS; 'P' FOR PRO OPTION; 'R' FOR RESUBMISSION; 'A' FOR ALL;
- +22 ; Display (R)ealTime, (B)ackbills, (P)RO Option, Re(S)ubmission or (A)LL
- +23 ;1.1 REJECT CODE/ALL --'R' FOR REJECT CODE; 'A' FOR ALL; Display Specific Reject Code or ALL Reject
- +24 ;Codes 0 means ALL Reject Codes otherwise - Reject Code value
- +25 ;1.11 SPECIFIC/ALL INSURANCES --'I' FOR SPECIFIC INSURANCE(S);'A' FOR ALL; Display Specific Insurance Company(s) or All null - ALL otherwise - pointer to INSURANCE COMPANY file #36
- +26 ;1.12 SORT LIST --'T' FOR TRANSACTION DATE;'D' FOR DIVISION; 'I' FOR INSURANCE; 'C' FOR REJECT CODE;
- +27 ;'P' FOR PATIENT NAME -- 'N' FOR DRUG NAME; 'B' FOR BILL TYPE (BB/P2/RT/RS); 'L' FOR FILL LOCATION;
- +28 ;'R' FOR RELEASED/NON-RELEASED -- 'A' FOR ACTIVE/DISCONTINUED; the field used to sort claims in the list
- +29 ;1.13 ALL ECME PHARMACY DIVISIONS --'D' FOR DIVISION; 'A' FOR ALL;
- +30 ;1.14 SELECTED INSURANCE -- Single, or multiple, insurance(s) to select claims for the User Screen, to store INSURANCE COMPANY pointer (#36)
- +31 ;1.15 SELECTED REJECTED CODE --POINTER TO BPS NCPDP REJECT CODES FILE (#9002313.93) Reject code selected by the user to filter claims.
- +32 ;1.16 SELECTED USER -- POINTER TO NEW PERSON FILE (#200) Selected user for the user screen
- +33 ;1.17 SELECTED PATIENT -- POINTER TO PATIENT FILE (#2) Selected patient for the User Screen
- +34 ;1.18 SELECTED RX -- POINTER TO PRESCRIPTION FILE (#52) Selected RX
- +35 ;1.19 NON-BILLABLE TRI/CVA ENTRIES OPEN/CLOSED/ALL -- 'O' Open; 'C' Closed; 'A' All
- +36 ;2 ECME PHARMACY DIVISION -- the list of POINTERs TO BPS PHARMACIES FILE (#9002313.56) separated by "^"
- +37 ;2.01 ELIGIBILITY TYPE --'V' FOR VETERAN;'T' FOR TRICARE;'C' FOR CHAMPVA;'A' FOR ALL; Display claims for specific Eligibility Type or ALL
- +38 ;2.02 OPEN/CLOSED/ALL --'O' OPEN CLAIMS;'C' CLOSED CLAIMS;'A' FOR ALL; Display Open, Closed, or ALL claims
- +39 ;2.03 SUBMISSION TYPE --'B' BILLING REQUESTS;'R' REVERSALS;'A' FOR ALL; Display specific submission type claims or ALL
- +40 ;2.04 INSURANCES -- List of POINTERs to the INSURANCE COMPANY FILE (#36) separated by ";"
- +41 ;should start and end with ";", example: ";4;5;"
- +42 ;
- +43 ;NOTE: use D ^XPAREDIT to add/edit values
- +44 ;
- +45 ;*****
- SL ;
- +1 DO FULL^VALM1
- +2 WRITE @IOF
- +3 KILL BPARR
- +4 IF +$GET(DUZ)=0
- DO ERRMSG^BPSSCRCV("Unknown User")
- QUIT
- +5 NEW BPDUZ7
- +6 SET BPDUZ7=+DUZ
- +7 ;always get current profile from the file
- +8 ;D READPRFP(.BPARR,+DUZ)
- +9 DO READPROF(.BPARR,+BPDUZ7)
- +10 DO SAVEVIEW^BPSSCR01(.BPARR)
- +11 ;edit current profile
- +12 DO EDITPROF(.BPARR,.BPDUZ7)
- +13 DO SAVEVIEW^BPSSCR01(.BPARR)
- +14 ;save it if necessary only for SORT LIST field
- +15 ;(so we used a separate array for this and save it only)
- +16 NEW BPSRT
- SET BPSRT(1.12)=BPARR(1.12)
- +17 DO ENDEDIT(.BPSRT,+BPDUZ7)
- +18 DO SAVEVIEW^BPSSCR01(.BPARR)
- +19 ;redraw screen
- +20 DO REDRAW^BPSSCRUD("Updating screen...")
- +21 QUIT
- +22 ;
- +23 ;input:
- +24 ;BPARRAY - array that all settings:
- +25 ; in the form BPARRAY(instance in "BPS USRSCR" parameter tool entry) = value
- +26 ;BPDUZ7 - DUZ
- EDITPROF(BPARR,BPDUZ7) ;
- +1 NEW BP1
- +2 NEW BPRET
- +3 NEW BPSTR
- +4 SET BPSTR="S^T:TRANSACTION DATE;D:DIVISION;I:INSURANCE;C:REJECT CODE;P:PATIENT NAME;N:DRUG NAME;B:BILL TYPE (BB/P2/RT/RS);L:FILL LOCATION;R:RELEASED/NON-RELEASED;A:ACTIVE/DISCONTINUED"
- +5 IF $$EDITFLD^BPSSCRCV(1.12,+BPDUZ7,BPSTR,"ENTER SORT TYPE","TRANSACTION DATE",.BPARR)=-1
- SET BPDUZ7=0
- QUIT
- +6 QUIT
- +7 ;
- +8 ;input:
- +9 ;BPARRAY - array that all settings:
- +10 ;in the form BPARRAY(instance in "BPS USRSCR" parameter tool entry) = value
- +11 ;BPDUZ7 - DUZ
- +12 ;
- ENDEDIT(BPARRAY,BPDUZ7) ;
- +1 ; Default as Temporary View defined
- SET BPARRAY("TEMPCV")=1
- +2 IF $$PROMPT^BPSSCRCV("S^Y:YES;N:NO","DO YOU WANT TO SAVE THIS VIEW AS YOUR PREFERRED VIEW (Y/N)?","")="Y"
- Begin DoDot:1
- +3 DO FILEALL^BPSSCRCV(.BPARRAY,BPDUZ7)
- +4 ; User agreed to save view as preferred - Remove TEMPCV flag
- KILL BPARRAY("TEMPCV")
- End DoDot:1
- +5 QUIT
- +6 ;read profile information (used in other routines as well)
- +7 ;input:
- +8 ;BPDUZ7 - DUZ
- +9 ;input/output:
- +10 ;BPARRAY - to return back profile information, as reference
- +11 ;see description in the top of the routine
- READPROF(BPARRAY,BPDUZ7) ;
- +1 NEW RETV,RETARR,BPFLDNO,BPDIV,BP1
- +2 NEW RECIENS
- +3 SET RECIENS=BPDUZ7_","
- +4 FOR BPFLDNO=1.01,1.02,1.03,1.031,1.032,1.033,1.04,1.05,1.06,1.07,1.08,1.09,1.1,1.11,1.12,1.13,1.14,1.15,1.16,1.17,1.18,1.19,2.01,2.02,2.03,2.04
- Begin DoDot:1
- +5 SET RETV=$$GETPARAM(BPFLDNO,+BPDUZ7)
- +6 SET BPARRAY(BPFLDNO)=RETV
- End DoDot:1
- +7 IF BPARRAY(1.13)="D"
- Begin DoDot:1
- +8 SET BPARRAY("DIVS")=$$GETPARAM(2,+BPDUZ7)
- End DoDot:1
- +9 IF BPARRAY(1.11)="I"
- Begin DoDot:1
- +10 SET BPARRAY("INS")=$$GETPARAM(2.04,+BPDUZ7)
- End DoDot:1
- +11 QUIT
- +12 ;
- SORTTYPE(BPSTYPE) ;
- +1 if (BPSTYPE="T")
- QUIT "Transaction Date"
- +2 if (BPSTYPE="D")
- QUIT "ECME division"
- +3 if (BPSTYPE="I")
- QUIT "Insurance"
- +4 if (BPSTYPE="C")
- QUIT "Reject Code"
- +5 if (BPSTYPE="P")
- QUIT "Patient Name"
- +6 if (BPSTYPE="N")
- QUIT "Drug Name"
- +7 if (BPSTYPE="B")
- QUIT "Claim's Origin (BB/P2/RT/RS)"
- +8 if (BPSTYPE="L")
- QUIT "Fill Location"
- +9 if (BPSTYPE="R")
- QUIT "Released/Non-released"
- +10 if (BPSTYPE="A")
- QUIT "Active/Discontinued"
- +11 QUIT ""
- +12 ;
- +13 ;
- GETPARAM(BPFLDNO,BPDUZ) ;
- +1 QUIT $$GET^XPAR(BPDUZ_";VA(200,","BPS USRSCR",BPFLDNO,"I")
- +2 ;
- +3 ;save value of the parameter
- SAVEPAR(BPFLDNO,BPDUZ,BPVAL) ;
- +1 DO EN^XPAR(BPDUZ_";VA(200,","BPS USRSCR",BPFLDNO,BPVAL,.BPERR)
- +2 IF BPERR'="0"
- WRITE !,BPERR,!
- QUIT 0
- +3 QUIT 1
- +4 ;