Routine: IBCNRRP1

Information

IBCNRRP1 ;BHAM ISC/CMW - Group Plan Worksheet Report ;03-MAR-2004

Name	Comments	DBIA/ICR reference
EN	; ; Initialize variables
P10
P30
P40
P100
EXIT	; Quit this routine ; unlock global
RESORT(RESORT)	; check for prior compile
RESRTX	;RESORT EXIT
COMPILE(IBCNRRTN,IBCNRSPC)	; ; Entry point called from EN^XUTMDEVQ in either direct or queued mode. ; Input params: ; IBCNRRTN = Routine name for ^TMP(... ; IBCNRSPC = Array passed by ref of the report params
COMPILX	; COMPILE exit pt
STOP()	; Determine if user wants to exit out of the whole option ; Init vars
STOPX	; STOP exit pt
DTRANGE	; Determine start and end dates for date range param ; Init vars
DTRANG1
DTRANGX	; DTRANGE exit pt
SORT	; Prompt to allow users to sort the report ; by Insurance/Group, Max claims, Max charges
SORTX	; SORT exit point
DEVICE(IBCNRRTN,IBCNRSPC)	; Device Handler and possible TaskManager calls
DEVICEX	; DEVICE exit pt

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+7
Function Call: WRITE	Prompt: !,"ePHARM GROUP PLAN WORKSHEET REPORT",! Line Location: EN+8
Function Call: WRITE	Prompt: !,"NCPDP process requires that the users match Group Plans to Pharmacy Plans." Line Location: EN+9
Function Call: WRITE	Prompt: !,"This report will assist users in matching Group Insurance Plans to Pharmacy" Line Location: EN+10
Function Call: WRITE	Prompt: !," Plans by searching through Billing/Claims file for authorized claims that " Line Location: EN+11
Function Call: WRITE	Prompt: !," have Group Plans with active Pharmacy Plan coverage." Line Location: EN+12
Function Call: WRITE	Prompt: !!,"Sorry, Worksheet Report in use." Line Location: EN+16
Function Call: WRITE	Prompt: !!,"A Report file run on: ",RDT,!,?5," exist for date range: ",HDR,! Line Location: RESORT+6
Function Call: WRITE	Prompt: ! Line Location: STOP+4
Function Call: WRITE	Prompt: ! Line Location: DTRANGE+4
Function Call: WRITE	Prompt: !," End Date must not precede the Start Date." Line Location: DTRANG1+8
Function Call: WRITE	Prompt: !," Please reenter." Line Location: DTRANG1+9
Function Call: WRITE	Prompt: ! Line Location: SORT+19
Function Call: WRITE	Prompt: !!!,"* This report is 132 characters wide *",! Line Location: DEVICE+9