BPSRES1 ;AITC/MRD - ECME SCREEN RESUBMIT W/EDITS ;10/23/17
Source file <BPSRES1.m>
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)
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^BPSC - [#9002313.02] | GET1^DIQ |
^BPSF(9002313.91 - [#9002313.91] | GET1^DIQ |