Routine: BPSPSOU1

Information

BPSPSOU1 ;ALB/CFS - ECME VALIDATIONS FOR REVERSE AND RESUBMIT CALLED FROM OUTPATIENT PHARMACY ;15-OCT-05

Package	Total	Call Graph
E Claims Management Engine	5	$$GETCOB^BPSBUTL $$PAYABLE^BPSOSRX5 ($$CLOSED02,$$NB)^BPSSCR03 $$COMMENT^BPSSCRCL $$CLAIMST^BPSSCRU3
List Manager	1	PAUSE^VALM1
Outpatient Pharmacy	1	$$LSTRFL^PSOBPSU1
Registration	1	DEM^VADPT
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOBPSU3

Entry Points

Name	Comments	DBIA/ICR reference
VAL(RXIEN,FILL,PSOELIG,ACTION,COB,REVREAS,BPSSKIPCON)	; ; Input: ; RXIEN = Prescription ien ; FILL = FILL # ; PSOELIG = TRICARE or CHAMPVA ; ACTION = "REV" - Reverse or "RES" - Resubmit ; BPSSKIPCON = If 1, then skip the confirmation at the end
YESNO(PSOSTR,PSOFL)	; Default - YES

External References

Name	Field # of Occurrence
$$GETCOB^BPSBUTL	VAL+25
$$PAYABLE^BPSOSRX5	VAL+38
$$CLOSED02^BPSSCR03	VAL+33
$$NB^BPSSCR03	VAL+31
$$COMMENT^BPSSCRCL	VAL+51
$$CLAIMST^BPSSCRU3	VAL+36
^DIR	YESNO+5
$$LSTRFL^PSOBPSU1	VAL+21
DEM^VADPT	VAL+30
PAUSE^VALM1	VAL+26, VAL+28, VAL+31, VAL+33, VAL+38, VAL+52

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Claim not found. Cannot "_$S(ACTION="REV":"Reverse.",1:"Resubmit.") Line Location: VAL+27
Function Call: WRITE	Prompt: !!,"Primary and Secondary claims exist. Please contact OPECC." Line Location: VAL+28
Function Call: WRITE	Prompt: !!,$S(ACTION="REV":"REVERSE",1:"RESUBMIT")_" not allowed for "_PSOELIG_" Non-Billable claim." Line Location: VAL+32
Function Call: WRITE	Prompt: !!,"The claim is Closed and cannot be "_$S(ACTION="REV":"Reversed.",1:"Resubmitted.") Line Location: VAL+34
Function Call: WRITE	Prompt: !," Please reopen the claim and try again." Line Location: VAL+35
Function Call: WRITE	Prompt: !!,"The claim is NOT Payable and cannot be Reversed." Line Location: VAL+39
Function Call: WRITE	Prompt: !!,"The claim you've chosen to "_$S(ACTION="REV":"REVERSE",1:"RESUBMIT")_" for "_$E(PATNAME,1,13)_" is in progress." Line Location: VAL+42
Function Call: WRITE	Prompt: !,"The "_$S(ACTION="REV":"reversal",1:"resubmittal")_" request will be scheduled and processed after the previous" Line Location: VAL+43
Function Call: WRITE	Prompt: !,"request(s) are completed. Please be aware that the result of the "_$S(ACTION="REV":"reversal",1:"resubmittal") Line Location: VAL+44
Function Call: WRITE	Prompt: !,"depends on the payer's response to the prior incomplete requests." Line Location: VAL+45
Function Call: WRITE	Prompt: !!,"You've chosen to "_$S(ACTION="REV":"REVERSE",1:"RESUBMIT")_" the following prescription for "_$E(PATNAME,1,13)_"." Line Location: VAL+48
Function Call: WRITE	Prompt: !,"Please provide the reason or enter ^ to abandon the reversal." Line Location: VAL+50
Function Call: WRITE	Prompt: !!,"The claim was NOT reversed!" Line Location: VAL+52
Routine Call	DIR Line Location: YESNO+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BPST - [#9002313.59]	VAL+29, VAL+33

Label References

Name	Line Occurrences
$$YESNO	VAL+41, VAL+54

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	VAL~, VAL+23, VAL+27, VAL+32, VAL+34, VAL+38, VAL+42, VAL+43, VAL+44, VAL+47 , VAL+48, VAL+49
BPINPROG	VAL+19~, VAL+24, VAL+37, VAL+38, VAL+41, VAL+46
BPSSKIPCON	VAL~, VAL+47, VAL+53
BPSTATS	VAL+19~, VAL+36*, VAL+37, VAL+38
BPSTIEN	VAL+19~, VAL+25*, VAL+29, VAL+31, VAL+33, VAL+36
BPSYN	VAL+19~, VAL+40, VAL+41, VAL+46, VAL+54*, VAL+55
COB	VAL~, VAL+25*, VAL+26, VAL+28
DFN	VAL+19~, VAL+29*
DIR	YESNO+1~
DIR("A"	YESNO+3*
DIR("B"	YESNO+4*
DIR(0	YESNO+2*
DUOUT	YESNO+1~, YESNO+6
FILL	VAL~, VAL+21*, VAL+25
PATNAME	VAL+19~, VAL+30*, VAL+42, VAL+48
PSOELIG	VAL~, VAL+22*, VAL+32
PSOFL	YESNO~, YESNO+4
PSOSTR	YESNO~, YESNO+3
REVREAS	VAL~, VAL+51*, VAL+52
RXIEN	VAL~, VAL+20, VAL+21, VAL+25
U	VAL+25, VAL+29, VAL+33, VAL+36
VADM	VAL+19~
VADM(1	VAL+30
Y	YESNO+1~, YESNO+6

Customize PDF page

Package: E Claims Management Engine