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: BPSRES1

Package: E Claims Management Engine

Routine: BPSRES1


Information

BPSRES1 ;AITC/MRD - ECME SCREEN RESUBMIT W/EDITS ;10/23/17

Source Information

Source file <BPSRES1.m>

Entry Points

Name Comments DBIA/ICR reference
ADDLFLDS(BPS02,BPS59,BPSADDLFLDS,BPSDOS) ; Add fields to a claim.
; This function allows the user to add to claim fields not on payer
; sheet. It is used by the RED/Resubmit with Edits Action on the
; ECME User Screen and by the PRO Option (Process Secondary/TRICARE
; Rx to ECME).
; Input: BPS02 = Pointer to BPS CLAIMS
; BPS59 = Pointer to BSP TRANSACTION
; BPSDOS = Date of Service; if passed in, then display
; when listing fields to be added to claim
; This function will return:
; 1 - If user entered additional fields.
; 0 - If user added no fields.
; -1 - If user exited out via "^".
; This function will also set up the array BPSADDFLDS if the user
; chooses to add any fields to the claim.
; BPSADDLFLDS(Field IEN) = Value to Send
A1 ; Prompt user for an NCPDP field to add to the claim.
A2 ; User is done selecting fields to add.
ARRAYS(BPS02,BPSPAYER,BPSSEGMENT)
CHECK(BPSY,BPSPAYER,BPSSEGMENT) ; Screen for BPS NCPDP FIELD DEFS lookup. See ADDLFLDS above.
; This function is called for a given entry in the file BPS
; NCPDP FIELD DEFS, where +Y will be the IEN. If this function
; returns a 1, then this entry is a valid choice. If this
; function returns a 0, then this entry will not be displayed to
; the user when listing possible choices and this entry will not
; be a valid choice for the user.
SAVE(BPSACTION,BPS59,BPSADDLFLDS,BPSOVRIEN) ; Save into BPS NCPDP OVERRIDES (#9002313.511)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDLFLDS+24
Function Call: WRITE
  • Prompt: !!,"Fields entered to transmit:",!,?4,"Date of Service: ",$$FMTE^XLFDT(BPSDOS,"5D")
  • Line Location: ADDLFLDS+26
Function Call: WRITE
  • Prompt: !,$P(X,U,2),".",!,"Fields may not be added at this time."
  • Line Location: ADDLFLDS+57
Function Call: WRITE
  • Prompt: !!,"Enter a valid NCPDP Field name or number. Enter '??' for"
  • Line Location: ADDLFLDS+61
Function Call: WRITE
  • Prompt: !,"a list of possible choices. Fields already on the payer sheet"
  • Line Location: ADDLFLDS+62
Function Call: WRITE
  • Prompt: !,"are excluded from the list of possible choices. Also excluded"
  • Line Location: ADDLFLDS+63
Function Call: WRITE
  • Prompt: !,"are any fields that do not have logic to pull data from VistA"
  • Line Location: ADDLFLDS+64
Function Call: WRITE
  • Prompt: !,"(i.e. fields that will always be <blank>)."
  • Line Location: ADDLFLDS+65
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+10
Function Call: WRITE
  • Prompt: !,?4,"This field has already been added to the claim.",*7
  • Line Location: A1+22
Function Call: WRITE
  • Prompt: !,?4,"Value to transmit: ",BPS("X")
  • Line Location: A1+30
Function Call: WRITE
  • Prompt: !!,"Fields entered to transmit:"
  • Line Location: A2+8
Function Call: WRITE
  • Prompt: !,?4,"Date of Service: ",$$FMTE^XLFDT(BPSDOS,"5D")
  • Line Location: A2+9
Function Call: WRITE
  • Prompt: !,?4,$$GET1^DIQ(9002313.91,BPSFIELD,.01),"-"
  • Line Location: A2+12
Function Call: WRITE
  • Prompt: $$GET1^DIQ(9002313.91,BPSFIELD,.06)," "
  • Line Location: A2+13
Function Call: WRITE
  • Prompt: $$GET1^DIQ(9002313.91,BPSFIELD,.03),": "
  • Line Location: A2+14
Function Call: WRITE
  • Prompt: BPSADDLFLDS(BPSFIELD)
  • Line Location: A2+15
Function Call: WRITE
  • Prompt: !!,"Could not save override information into BPS NCPDP OVERRIDE file.",!
  • Line Location: SAVE+48

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPSC - [#9002313.02] GET1^DIQ
^BPSF(9002313.91 - [#9002313.91] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call