Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: BPSTEST

Package: E Claims Management Engine

Routine: BPSTEST


Information

BPSTEST ;OAK/ELZ - ECME TESTING TOOL ;11/15/07 09:55

Source Information

Source file <BPSTEST.m>

Entry Points

Name Comments DBIA/ICR reference
GETOVER(KEY1,KEY2,BPSORESP,BPSWHERE,BPSTYPE,BPPAYSEQ) ;
; called by BPSNCPDP to enter overrides for a particular RX
; INPUT
; KEY1 - Prescription IEN/Patient IEN
; KEY2 - Fill Number/Policy Number
; BPSORESP - Previous response when this claim was processed
; BPSWHERE - RX Action passed into BPSNCPDP
; BPSTYPE - R (Reversal), S (Submission), E (Eligibility)
; BPPAYSEQ - payer sequence 1 - primary, 2 - secondary
; OUTPUT
; None - Table BPS PAYER RESPONSE OVERRIDE entry is created.
SUBMISSION ; Submission Reponse Questions
SR ;
SELFLD ; Allow the user to Select a Response field
SELFLD1 ;
SFEXIT ;
CHKDD(BPSY) ;
; Check NCPDP field and verify that it's in 9002313.32
SETOVER(BPSTRANS,BPSTYPE,BPSDATA) ;
; called by BPSECMPS to set the override data
; Input
; BPSTRANS - Transaction IEN
; BPSTYPE - B1 for submission, B2 for reversals
; Output
; BPSDATA - Passed by reference and updated with appropriate overrides
SELOVER ;
; Used to create overrides for prescription that will processed in the
; background (CMOP, auto-reversals). The user is prompted for the
; prescription and other information and then calls GETOVER. It is called
; by option BPS PROVIDER RESPONSE OVERRIDES
CHECK() ;
; Check if Test Mode is ON in the BPS Setup table
; Also called by BPSNCPDP and BPSEMCPS
CREATE(BPSTRANS) ;
; Create the Override record
FILE(DIE,DA,BPSFLD,BPSDATA) ;
; File in the Override record
PROMPT(DA,BPSFLD,BPSDFLT) ;
; Prompt for a specific field and set the data
REJECTS(BPSTIEN) ; BPS*1*22
SETDELAY(BPSTRANS) ;
; Input
; BPSTRANS - Transaction IEN
; Check the Test Flag in set in BPS SETUP
RUNECME ;
SETREJ(BPSTRANS) ;
ENREVRJ(BPSTRANS) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The testing tool cannot be run from Date of Death option"
  • Line Location: GETOVER+18
Function Call: WRITE
  • Prompt: !!,"Payer Overrides are enabled at this site. If this is production environment,"
  • Line Location: GETOVER+32
Function Call: WRITE
  • Prompt: !,"do not enter overrides (enter No at the next prompt) and disable this"
  • Line Location: GETOVER+33
Function Call: WRITE
  • Prompt: !,"functionality in the BPS SETUP table."
  • Line Location: GETOVER+34
Function Call: WRITE
  • Prompt: !!,"Entering No at the next prompt will delete any current overrides for the"
  • Line Location: GETOVER+35
Function Call: WRITE
  • Prompt: !,"request, if they exist.",!
  • Line Location: GETOVER+36
Function Call: WRITE
  • Prompt: !,"Failed to create the BPS PAYER RESPONSE OVERRIDE record",!
  • Line Location: GETOVER+48
Function Call: WRITE
  • Prompt: !!,"This submission may also have a reversal so you will be prompted for the"
  • Line Location: GETOVER+59
Function Call: WRITE
  • Prompt: !,"reversal overrides."
  • Line Location: GETOVER+60
Function Call: WRITE
  • Prompt: !!,"Eligibility Questions"
  • Line Location: GETOVER+64
Function Call: WRITE
  • Prompt: !!,"Reversal Questions"
  • Line Location: GETOVER+72
Function Call: WRITE
  • Prompt: !
  • Line Location: GETOVER+81
Function Call: WRITE
  • Prompt: !!,"Submission Questions"
  • Line Location: SUBMISSION+1
Function Call: WRITE
  • Prompt: !,*7,"Must select at least one reject."
  • Line Location: SR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFLD1+8
Function Call: WRITE
  • Prompt: !,?4,"Can't choose that one, make another selection.",*7
  • Line Location: SELFLD1+24
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFLD1+27
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: FILE+6
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: PROMPT+6
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: REJECTS+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPS(9002313.32 - [#9002313.32] Classic Fileman Calls,  GET1^DIQ
^BPSF(9002313.91 - [#9002313.91] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call