Routine: BPSSCRU5

Information

BPSSCRU5 ;BHAM ISC/SS - ECME SCREEN UTILITIES ;05-APR-05

Name	Comments	DBIA/ICR reference
DATETIME(Y)	;EP - convert fileman date.time to printable
MKHIST(BP59,BPHIST)	;
TRTYPE(BPTRCD)	;
LNDC(BPIEN02)	;
REJCODES(BPIEN03,BPRCODES)	;
RESPSTAT(BPIEN03)	;
B1PYRIEN(BP57)	;
B2PYRIEN(BP57)	;
B3PYRIEN(BP57)	;
WRAPLN(BPLN,BPX,BPMLEN,BPPREFX,BPMARG)	;
SPACES(BPN)	;
WRAPLN2(BPN,BPARR,BPX,BPMLEN,BPPREFX,BPMARG)	;
SETLN(BPN,BPARR,BPTXT)	;
CH2NDINS(BP59,BPPATNAM,BPINSNAM,BPRXINFO)	;
PRN(BPPATNAM,BPRETV,BPRXINFO,BPPRNFL)	;
MS2NDINS	;
PRINT(TXTSRC,DESCR,SAVEVARS)	;
DEVICE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: CH2NDINS+5
Function Call: WRITE	Prompt: @IOF Line Location: PRN+1
Function Call: WRITE	Prompt: !! Line Location: PRN+3
Function Call: WRITE	Prompt: !,"This patient has ADDITIONAL insurance with Rx Coverage that may be" Line Location: MS2NDINS+2
Function Call: WRITE	Prompt: !,"used to bill this claim. The system will change the CT entry to a" Line Location: MS2NDINS+3
Function Call: WRITE	Prompt: !,"NON-BILLABLE Episode. If appropriate, please go to the ECME Pharmacy" Line Location: MS2NDINS+4
Function Call: WRITE	Prompt: !,"COB menu and use the PRO - Process Secondary/TRICARE Rx to ECME" Line Location: MS2NDINS+5
Function Call: WRITE	Prompt: !,"option to create an ePharmacy secondary claim." Line Location: MS2NDINS+6
Function Call: WRITE	Prompt: !!,"Patient: ",?18,BPPATNAM Line Location: MS2NDINS+7
Function Call: WRITE	Prompt: !,"Date of service: ",?18,Y Line Location: MS2NDINS+9
Function Call: WRITE	Prompt: !,"Insurance: ",?18,$P(BPRETV,U,2) Line Location: MS2NDINS+10
Function Call: WRITE	Prompt: !,"Group number: ",?18,$P(BPRETV,U,3) Line Location: MS2NDINS+11
Function Call: WRITE	Prompt: !,BPRXINFO(Z) Line Location: MS2NDINS+12
Function Call: WRITE	Prompt: !,"Cancelled" Line Location: PRINT+6
Function Call: WRITE	Prompt: ! Line Location: DEVICE+4
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: DEVICE+13