Routine: BPSSCRRJ

Information

BPSSCRRJ ;ALB/ESG - ECME OPECC Reject Information ;02-SEP-2015

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BPS OPECC REJECT INFORMATION
ENX	;
INIT	; -- init variables and list array
INITX	;
REJ	; main reject information data capture and display
REJX	;
BPSCOM	; display full opecc comments here
BPSCOMX	;
PSOCOM	; display the PSO comments from the pharmacist
PSOCOMX	;
INS	; gather and show insurance information
INSX	;
WRAPTXT(X,DIWR,RET)	; wrap text in variable X with right margin DIWR, return in array RET
WRAPX	;
HELP	; -- help code
EXIT	; -- exit code
SETLN(TEXT,REV,UND,HIG)	; set a line into the ListMan array
SETLNX	;
HDR	; -- header code
DVINFO(RX,RFL)	; header division data
PTINFO(RX)	; header patient data
RXINFO1(RX,FILL)	; header Rx data part 1
RXINFO2(RX,FILL)	; header Rx data part 2
VER	; selection of View ePharmacy Rx from the BPS OPECC reject information screen
VERX	;
VIEW	; action for View Rx on the BPS OPECC reject information screen
MP(RXIEN,RXFIL)	; entry point for Medication Profile action on OPECC reject information screen
PI(RXIEN,RXFIL)	; entry point for Patient Information action on OPECC reject information screen

Name	Line Occurrences
Function Call: WRITE	Prompt: "OPECC Reject Information" Line Location: EN+2
Function Call: WRITE	Prompt: !!,"This claim is not a valid selection for the OPECC Reject Information screen." Line Location: EN+15
Function Call: WRITE	Prompt: !,"This screen is for either rejected claims or non-billable claims." Line Location: EN+16
Function Call: WRITE	Prompt: !! Line Location: HELP+1

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