Routine: BPSSCR03

Information

BPSSCR03 ;BHAM ISC/SS - ECME USR SCREEN UTILITIES ;05-APR-05

Name	Comments	DBIA/ICR reference
ADDINF(BP59,BPARR,BPMLEN,BPMODE)	;to return additional information about the claim*/
CLMINF(BP59)	;ptr to #9002313.59
EREJTXT(BP59)	; return the eT/eC line for non-billable entry
EREJTX	;
COMM(BP59)	;ptr to #9002313.59
RESP(BP59)	;Payer Response Information
CLMCLSTX(BP59,BPTXT)	;*/
CLOSED02(BPCLAIM)	;*/
FILTER(BP59,BPARR)	;
FLTUSR(BPST0,BPARR)	;
FLTPAT(BPST0,BPARR)	;
FLTRX(BPST1,BPARR)	;
FLTREJ(BP59,BPARR)	;
ISMWC(BPRX52,BPREFNUM,BPMWC)	;
FILTRALL(BPTMP1,BPTMP2,BPARR)	;
TRDFNALL(BPTMP)	;
SETTRDFN(BPTMP,BP59)	;
NB(BP59)	; Is this BPS Transaction a TRI/CVA non-billable entry?
NBCL(BP59)	; Is this BPS Transaction a Closed TRI/CVA non-billable entry?
NBOP(BP59)	; Is this BPS Transaction an Open TRI/CVA non-billable entry?

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Claim info. Press a key" Line Location: CLMINF+1
Function Call: WRITE	Prompt: !,"the latest comment. Press a key" Line Location: COMM+1
Function Call: WRITE	Prompt: !,"payer Response Information. Press a key" Line Location: RESP+1

FileNo	Call Tags
^BPST - [#9002313.59]	GET1^DIQ