Routine: IBCNSJ53

Information

IBCNSJ53 ;AITC/DTG - INSURANCE PLAN MAINTENANCE ACTION VIEW SUBSCRIBER ; 15-MAY-2023

Name	Comments	DBIA/ICR reference
VP	; -- Edit/View Plan (VS entry point)
VSUBS	; entry from list template protocol 'IBCNSJ PLAN VIEW SUBSCRIBERS' from the 'IBCNSC PLAN DETAIL' menu
VSUBX	; quit back
DTC(IBDTCK)	; check date return external if valid
DTCO	; date check exit
DTC5(IBDTCK)	; check date return external if valid ;IB*804/DTG 4 digit year for sort's
DTC5O	; date check exit
EXIT	; -- exit code
HELP	; -- help code
INIT	; -- Load the plan detail segments
ACINI	; active subscribers
ININI	; inactive subscribers
ALLINI	; all subscribers
HDR(IBDIS)	; -- Plan Subscribers
BVA	; Build ALL subscribers
BPAS	; build items from base into valm display
AC	; active subscriber entry
IS	; inactive subscriber entry
SORT	; ask sort questions if sort selected then re-build ^TMP("IBCNSJ53I",$J,
SORTQ	; sort exit point
IBSRTNM	; subscriber name sort type and order
IBSRQU(IBSRNM,IBSRF,IBSRR)	; get the type
IBSRTCOM(IBSORTA,IBWORK)	; go thru the compiled and sort for display
IBSV	; save in selected item order to temp area
IBSVA	; save invalid dates in selected item order to temp area
IBSRTMV	; move from temp and place in viewing order
IBSRTA	; pick up blank and bad date items
IBSRTA1	; loop through bad/blank dates
IBASE	; reset levels to base

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+2
Function Call: WRITE	Prompt: ! Line Location: HELP+5
Function Call: WRITE	Prompt: !," Enter AC to only see active subscribers." Line Location: HELP+6
Function Call: WRITE	Prompt: !," Enter IN to only see inactive subscribers." Line Location: HELP+7
Function Call: WRITE	Prompt: !," Enter VA to see all subscribers." Line Location: HELP+10
Function Call: WRITE	Prompt: !," Enter ST to sort the subscriber records",! Line Location: HELP+11
Function Call: WRITE	Prompt: !!,*7,"Missing Insurance or Plan IEN." Line Location: INIT+12