Routine: IBCNSJ54

Package	Total	Call Graph
VA FileMan	6	^%DTC FILE^DICN ^DIE ^DIK ($$GET1,GETS)^DIQ ^DIR
List Manager	4	EN^VALM ($$SETSTR,CLEAR,FULL,PAUSE)^VALM1 (CLEAN,SET)^VALM10 EN^VALM2
Integrated Billing	3	$$FO^IBCNEUT1 $$DAT3^IBOUTL LOCKED^IBTRCD1
Kernel	2	$$FMTE^XLFDT DISP^XQORM1

Package	Total	Caller Graph
Integrated Billing	6	IBCNS ADD/EDIT COVERAGE IBCNS COVERAGE ADD IBCNS COVERAGE DELETE IBCNS COVERAGE EDIT IBCNS COVERAGE SORT IBCNSJ5
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for ADD/EDIT COVERAGE
HDR	; -- header code
INIT	; -- init variables and list array ; Initialize variables and list array ; Input: None ; Output: ^TMP("IBCNSJ54",$J) - Body lines to display
GRPHDR	; Get GROUP PLAN HEADER info
BLD	; Build listman display ; IBCPOL - IEN in the GROUP INSURANCE PLAN file #355.3 ; IBSORT - order of the Coverages dislayed on the screen ; VALMCNT - Total number of lines displayed in the body
LIMCOM	;Limitation Comments from the multiple - include ALL comments
HELP	; -- help code
EXIT	; -- exit code
BLDLN(ICTR,IREC)	; Builds a line to display one insurance company ; Input: ICTR - Selection Number ; IREC - the Coverage data to be displayed ; Output: LINE - formatted for setting into the list display
ADD	; AD Add Coverage
ADDX	;
EDIT	; ED Edit Coverage
EDITX	;
DELETE	; DE Delete Coverage
DELETEX	;
SORT	; ST Sort Coverage
SORTX	; ; Rebuild the display based on the Sort selected
SELED	; Prompt the user to enter a Effective Date
SELEDX	;
SELEDP	; Enter a precise Effective Date
SELCC	; Prompt to allow users to include one or more Coverage Category(s)
SELCCX	; SELCC exit pt
EXISTS(IBCPOL,IBEDT)	; Check to see if there is an entry category and date.
PRECISE(X1,X2)	;Check to make sure the date entered is a precise date
CHKEDT(IBTYP)	; Check for effective date later than the one entered

External References

Name	Field # of Occurrence
^%DTC	PRECISE+3
FILE^DICN	ADD+23
^DIE	ADD+31, ADD+33, EDIT+20, EDIT+32
^DIK	DELETE+23
$$GET1^DIQ	GRPHDR+18, BLD+24, BLD+35, BLD+36, BLD+38
GETS^DIQ	GRPHDR+6, EDIT+11, EDIT+25
^DIR	HELP+9, DELETE+15, SORT+7, SELED+4, SELEDP+8, SELCC+11, CHKEDT+9
$$FO^IBCNEUT1	GRPHDR+19
$$DAT3^IBOUTL	BLD+37, SELED+8, SELEDP+3
LOCKED^IBTRCD1	EDIT+16
EN^VALM	EN+3
$$SETSTR^VALM1	BLDLN+5, BLDLN+6, BLDLN+7, BLDLN+8, BLDLN+9
CLEAR^VALM1	EXIT+2
FULL^VALM1	HELP+2, ADD+2, EDIT+1, DELETE+1, SORT+2
PAUSE^VALM1	ADD+29, ADDX+3, EDITX+3, DELETEX+3
CLEAN^VALM10	EXIT+2
SET^VALM10	BLD+60
EN^VALM2	EDIT+3, DELETE+4
$$FMTE^XLFDT	GRPHDR+19
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!," Enter AD to Add New Coverage." Line Location: HELP+4
Function Call: WRITE	Prompt: !," Enter ED to Edit Coverage." Line Location: HELP+5
Function Call: WRITE	Prompt: !," Enter DE to Delete Coverage." Line Location: HELP+6
Function Call: WRITE	Prompt: !," Enter ST to Sort List.",! Line Location: HELP+7
Function Call: WRITE	Prompt: !!,$P(COVCAT,U) Line Location: ADD+14
Function Call: WRITE	Prompt: !," "_$P(COVCAT,U)_" - data already exist for this Effective Date, nothing added ",! Line Location: ADD+17
Function Call: WRITE	Prompt: !!,"Sorry, another user currently editing this entry." Line Location: ADD+28
Function Call: WRITE	Prompt: !,"Try again later." Line Location: ADD+29
Function Call: WRITE	Prompt: !!," #"_IBXX_" "_$P(IBREC,U)_" - no data exist, use 'Add New Coverage' ",! Line Location: EDIT+14
Function Call: WRITE	Prompt: !!,"COVERAGE: "_$P(IBREC,U),?35,"for EFFECTIVE DATE: ",$P(IBREC,U,2) Line Location: EDIT+15
Function Call: WRITE	Prompt: !!," #"_IBXX_" "_$P(IBREC,U)_" - no data exists, unable to delete " Line Location: DELETE+10
Function Call: WRITE	Prompt: ! Line Location: DELETE+12
Function Call: WRITE	Prompt: ! Line Location: DELETE+18
Function Call: WRITE	Prompt: ! Line Location: SORT+2
Function Call: WRITE	Prompt: !,"Select the item to sort the coverages on the screen." Line Location: SORT+3
Function Call: WRITE	Prompt: ! Line Location: SELED+2
Function Call: WRITE	Prompt: ! Line Location: SELEDP+2
Function Call: WRITE	Prompt: !,"Select COVERAGE CATEGORIES:" Line Location: SELCC+4
Function Call: WRITE	Prompt: ! Line Location: CHKEDT+4
Function Call: WRITE	Prompt: ! Line Location: CHKEDT+10
Routine Call	DIE Line Location: ADD+31 ADD+33 EDIT+20 EDIT+32
Routine Call	DIR Line Location: HELP+9 DELETE+15 SORT+7 SELED+4 SELEDP+8 SELCC+11 CHKEDT+9
Routine Call	VALM Line Location: EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBA(355.3 - [#355.3]	GETS^DIQ
^IBE(355.31 - [#355.31]	GET1^DIQ
^IBA(355.32 - [#355.32]	Classic Fileman Calls, GET1^DIQ, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(355.32 - [#355.32]	GRPHDR+15, GRPHDR+16, GRPHDR+17, BLD+21, BLD+32, BLD+34, LIMCOM+3, LIMCOM+5, ADD+27, ADD+34 , EDIT+16, EDIT+33, EXISTS+5, CHKEDT+2
^IBE(355.31 - [#355.31]	BLD+18, ADD+13, SELCC+3, SELCC+7, CHKEDT+6
^TMP("IBCNSJ54"	INIT+4!, BLD+12!, EXIT+1!
^TMP("IBCNSJ54X"	INIT+4!, BLD+12!, BLD+59*, EXIT+1!, EDIT+7, EDIT+8, EDIT+13, DELETE+9, DELETE+10, DELETE+21
^TMP($J	INIT+4!, BLD+13!, BLD+28, BLD+29, BLD+30, BLD+44, BLD+45, BLD+46, BLD+51, BLD+52 , BLD+53, BLD+54, BLD+55, EXIT+1!

Label References

Name	Line Occurrences
$$BLDLN	BLD+56
$$CHKEDT	ADD+20
$$EXISTS	ADD+16
$$PRECISE	SELED+7
ADDX	ADD+5, ADD+7
BLD	INIT+6
GRPHDR	HDR+2
HDR	ADDX+2, EDITX+2, DELETEX+2, SORTX+2
INIT	ADDX+2, EDITX+2, DELETEX+2, SORTX+2
LIMCOM	BLD+40
SELCC	ADD+7
SELCCX	SELCC+12, SELCC+13
SELED	ADD+5
SELEDP	SELED+7
SELEDX	SELED+5, SELED+7
SORTX	SORT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%Y	PRECISE+2~, PRECISE+4
A	SELCC+1~, SELCC+7*
CATARR	BLD+10~
CDATA	BLD+10~
COVCAT	ADD+12~, ADD+13*, ADD+14, ADD+17, ADD+22
COVFN	HDR+1~, GRPHDR+17*
CTR	BLD+10~
DA	ADD+24, ADD+25, ADD+32, EDIT+18~, EDIT+19, EDIT+30~, EDIT+31, DELETE+20!, DELETE+21*
DD	ADD+21!
DELENT	DELETE+2~, DELETE+19*
DIC	ADD+21!, ADD+22*
DIC("DR"	ADD+22*
DIC(0	ADD+22*
DIDEL	DELETE+20!, DELETE+22*
DIE	ADD+30, ADD+32, EDIT+18~, EDIT+19, EDIT+30~, EDIT+31
DIK	DELETE+22*, DELETE+23!
DIR	HELP+3~, HELP+10!, DELETE+11~, DELETE+15!, SORT+1~, SORT+7!, SELED+1~, SELED+4!, SELEDP+1~, SELEDP+8! , SELCC+1~, SELCC+11!, CHKEDT+9!
DIR("?"	SELCC+9, SELCC+10
DIR("A"	HELP+8, DELETE+13, DELETE+14, SORT+5, SELED+3, SELEDP+3, SELEDP+4, SELEDP+5, SELEDP+6, SELCC+6 , SELCC+7, SELCC+8, CHKEDT+5, CHKEDT+6, CHKEDT+7*
DIR("B"	SORT+6, CHKEDT+8
DIR(0	HELP+8, DELETE+13, SORT+4, SELED+3, SELEDP+7, SELCC+5, CHKEDT+5*
DIROUT	DELETE+11~, SORT+1~, SELED+1~, SELEDP+1~, SELEDP+9
DIRUT	DELETE+11~, SORT+1~, SELED+1~, SELEDP+1~, SELEDP+9, SELCC+1~
DO	ADD+21!
DONE	ADD+1~, SELEDP+9*
DR	ADD+30, ADD+33, EDIT+18~, EDIT+19, EDIT+30~, EDIT+31
DT	SELED+7
DTOUT	DELETE+11~, SORT+1~, SELED+1~, SELEDP+1~, SELEDP+9, SELCC+12
DUOUT	DELETE+11~, SORT+1~, SELED+1~, SELEDP+1~, SELEDP+9, SELCC+12
END	ADD+1~, ADD+9, SELCC+3*, SELCC+5, SELCC+7
EXISTS	EXISTS+1~, EXISTS+2, EXISTS+5, EXISTS+6
GIENS	HDR+1~, GRPHDR+17*, GRPHDR+18
GINACT	HDR+1~, GRPHDR+7*, GRPHDR+12, BLD+10~
GIND	HDR+1~, GRPHDR+7*, GRPHDR+11, BLD+10~
GNAME	HDR+1~, HDR+3, GRPHDR+8, GRPHDR+9, GRPHDR+11*, BLD+10~
GNUM	HDR+1~, HDR+3, GRPHDR+8, GRPHDR+9, GRPHDR+12*, BLD+10~
GTYP	BLD+10~
I	BLD+10~, BLD+18, BLD+21, BLD+22, BLD+24, ADD+1~, ADD+9, ADD+11, ADD+13, ADD+20 , SELCC+1~, SELCC+15, EXISTS+3
IB1	CHKEDT+1~, CHKEDT+2*, CHKEDT+3
IB3553	GRPHDR+3~, GRPHDR+4!, GRPHDR+6*
IB3553(	GRPHDR+7, GRPHDR+8
IBARR	GRPHDR+3~, GRPHDR+4!
IBARR(	GRPHDR+6
IBCAT	BLD+10~, BLD+18, BLD+22, BLD+28, BLD+29, BLD+30, BLD+32, BLD+34, BLD+44, BLD+45 , BLD+46
IBCBY	HDR+1~, GRPHDR+16*, GRPHDR+17
IBCCAT	BLD+10~, ADD+1~, ADD+9, SELCC+2!, SELCC+3, SELCC+13
IBCCAT(	ADD+9, ADD+11, ADD+13, ADD+20, SELCC+15, EXISTS+3
IBCDT	HDR+1~, GRPHDR+16*, GRPHDR+17
IBCOV	BLD+10~, BLD+24, BLD+25, BLD+35, BLD+41, ADD+1~
IBCPOL	GRPHDR+5, GRPHDR+15, GRPHDR+16, GRPHDR+17, BLD+21, BLD+32, BLD+34, ADD+16, ADD+22, EXISTS~ , EXISTS+5, CHKEDT+2
IBCPOL1	GRPHDR+3~, GRPHDR+5*, GRPHDR+6
IBCSTA	BLD+10~, BLD+19!, BLD+23, BLD+25, BLD+28, BLD+29, BLD+30, BLD+38, BLD+39*, BLD+41 , BLD+44, BLD+45, BLD+46
IBCVREC	BLD+10~, BLD+19!, BLD+25, BLD+28, BLD+29, BLD+30, BLD+41, BLD+44, BLD+45, BLD+46
IBDA	ADD+12~, ADD+25, ADD+27, ADD+32, ADD+34, EDIT+2~, EDIT+8, EDIT+11, EDIT+16, EDIT+19 , EDIT+25, EDIT+26, EDIT+27, EDIT+31, EDIT+33
IBDT	BLD+10~
IBEDIT	EDIT+2~, EDIT+24, EDIT+26, EDIT+27*, EDIT+29
IBEDT	BLD+11~, BLD+19!, BLD+22, BLD+28, BLD+29, BLD+30, BLD+36, BLD+37, BLD+44, BLD+45 , BLD+46, ADD+16, ADD+22, SELED+6, SELED+7, SELED+8, SELEDP+3, SELEDP+10, EXISTS~, EXISTS+5 , CHKEDT+3
IBEFDT	BLD+11~, BLD+37, BLD+41, ADD+5, DELETE+9, DELETE+14, DELETE+17, DELETE+24, SELED+8*
IBLIMCOM	BLD+11~, BLD+40, BLD+41, LIMCOM+1!, LIMCOM+5*
IBOUT	ADD+12~, ADD+31*
IBREC	BLD+11~, EDIT+2~, EDIT+7, EDIT+14, EDIT+15, DELETE+2~, DELETE+9, DELETE+10, DELETE+13, DELETE+17 , DELETE+24
IBRECDT	BLD+11~, BLD+31, BLD+32, BLD+34
IBRECN	BLD+11~, BLD+19!, BLD+22, BLD+28, BLD+29, BLD+30, BLD+33, BLD+34*, BLD+35, BLD+36 , BLD+38, BLD+44, BLD+45, BLD+46, LIMCOM+3, LIMCOM+5
IBSORT	EN+2, HDR+6, INIT+5, BLD+28, BLD+29, BLD+30, BLD+44, BLD+45, BLD+46, EXIT+1! , SORT+6, SORT+9*
IBTYP	EXISTS+1~, EXISTS+3*, EXISTS+5, CHKEDT~, CHKEDT+2, CHKEDT+6
IBXX	EDIT+2~, EDIT+5, EDIT+7, EDIT+8, EDIT+13, EDIT+14, DELETE+2~, DELETE+7, DELETE+9, DELETE+10 , DELETE+13, DELETE+17, DELETE+21, DELETE+24
ICTR	BLD+11~, BLD+14, BLD+26, BLD+42*, BLDLN~, BLDLN+5
IEN	ADD+1~, SELCC+7*
IREC	BLDLN~, BLDLN+6, BLDLN+7, BLDLN+8, BLDLN+9
LASTUPD	HDR+1~, HDR+5, GRPHDR+14, GRPHDR+19
LINE	BLD+11~, BLD+49~, BLD+56, BLD+60, BLDLN+4~, BLDLN+5, BLDLN+6, BLDLN+7, BLDLN+8, BLDLN+9 , BLDLN+10
LSTBY	HDR+1~, GRPHDR+18*, GRPHDR+19
LSTDT	HDR+1~, GRPHDR+18*, GRPHDR+19
NEWARR	EDIT+2~, EDIT+6!
NEWARR(	EDIT+26, EDIT+27
NOW	ADD+1~
RTN	BLD+11~, BLD+15*, BLD+28, BLD+29, BLD+30, BLD+44, BLD+45, BLD+46, BLD+51, BLD+52 , BLD+53, BLD+54, BLD+55
SAVARR	EDIT+2~, EDIT+6!
SAVARR(	EDIT+26, EDIT+27
SCT	BLD+49~, BLD+50, BLD+53, BLD+56
SORT1	BLD+49~, BLD+51*, BLD+52, BLD+53, BLD+54, BLD+55
SORT2	BLD+49~, BLD+52*, BLD+53, BLD+54, BLD+55
SORT3	BLD+49~, BLD+53*, BLD+54, BLD+55
SREC	BLD+49~, BLD+54*, BLD+56, BLD+59
SRECN	BLD+49~, BLD+55*, BLD+59
STOP	ADD+1~, ADD+3, ADD+5, ADD+7, DELETE+2~, DELETE+5, SELED+5, SELED+7, SELEDP+8, SELCC+12*
U	HDR+6, BLD+25, BLD+28, BLD+29, BLD+30, BLD+41, BLD+44, BLD+45, BLD+46, BLDLN+6 , BLDLN+7, BLDLN+8, BLDLN+9, ADD+14, ADD+17, ADD+22, EDIT+14, EDIT+15, DELETE+9, DELETE+10 , DELETE+13, DELETE+17, DELETE+19, DELETE+24, SELCC+7, CHKEDT+6
>> VALMANS	HELP+1
>> VALMBCK	EN+1, BLD+62, HELP+11, EXIT+3, ADDX+2, EDITX+2, DELETEX+2, SORTX+3
>> VALMBG	EN+1, BLD+62, HELP+11, EXIT+3, ADDX+2, EDITX+2, DELETEX+2, SORTX+3
>> VALMCNT	EN+1, BLD+14, BLD+57*, BLD+59, BLD+60
>> VALMHDR(1	HDR+3*
>> VALMHDR(2	HDR+5*
>> VALMHDR(3	HDR+6*
>> VALMHDR(4	HDR+7*
VALMY	EDIT+2~, EDIT+5, DELETE+2~, DELETE+7
VALMY(	EDIT+5, DELETE+7
X	HELP+1, HELP+3~, HELP+10!, ADD+22, EDIT+2~, DELETE+11~, SORT+1~, SELED+1~, SELEDP+1~, SELCC+1~
X1	PRECISE~
X2	PRECISE~
>> XQORNOD(0	EDIT+3, DELETE+4
Y	HELP+3~, HELP+10!, ADD+24, ADD+31, EDIT+2~, DELETE+11~, DELETE+15, DELETE+17, DELETE+19, SORT+1~ , SORT+8, SORT+9, SELED+1~, SELED+5, SELED+6, SELEDP+1~, SELEDP+8, SELEDP+10, SELCC+1~, SELCC+12 , SELCC+13, SELCC+15, CHKEDT+1~, CHKEDT+2*, CHKEDT+11
Y(0	DELETE+19, SORT+9, SELED+4
Z	LIMCOM+2~, LIMCOM+3*, LIMCOM+5

Customize PDF page

Package: Integrated Billing

Routine: IBCNSJ54

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: