Routine: BPSPRRX1

Information

BPSPRRX1 ;ALB/SS - ePharmacy secondary billing ;16-DEC-08

Name	Comments	DBIA/ICR reference
SELECTPL(BPSDFN,BPSDOS,BPRETAR,BPSPRMT,BPDEFPLN)	;
SELPLAN(BPSDFN,BPSDOS,BPSTAT,BPSARR,BPSFLDS,BPSDISPL,BPSPRMPT,BPSMESS,BPDEFPLN)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?4,"Insurance",?18,"COB",?23,"Subscriber ID",?37,"Group",?48,"Holder",?57,"Effective",?68,"Expires" Line Location: SELPLAN+7
Function Call: WRITE	Prompt: !,?4,"=============",?18,"====",?23,"=============",?37,"==========",?48,"========",?57,"==========",?68,"==========" Line Location: SELPLAN+8
Function Call: WRITE	Prompt: !,?1,BPX Line Location: SELPLAN+11
Function Call: WRITE	Prompt: ?4,$E($P($G(BPSARR("IBBAPI","INSUR",BPX,1)),U,2),1,13) Line Location: SELPLAN+12
Function Call: WRITE	Prompt: ?18,$E($P($G(BPSARR("IBBAPI","INSUR",BPX,7)),U,2),1,3) Line Location: SELPLAN+13
Function Call: WRITE	Prompt: ?23,$E($P($G(BPSARR("IBBAPI","INSUR",BPX,14)),U,1),1,13) Line Location: SELPLAN+14
Function Call: WRITE	Prompt: ?37,$E($P($G(BPSARR("IBBAPI","INSUR",BPX,8)),U,2),1,10) Line Location: SELPLAN+15
Function Call: WRITE	Prompt: ?48,$E($P($G(BPSARR("IBBAPI","INSUR",BPX,12)),U,2),1,9) Line Location: SELPLAN+16
Function Call: WRITE	Prompt: !! Line Location: SELPLAN+19