Routine: IBCNBOF

Package	Total	Call Graph
Integrated Billing	4	$$LAST^IBAGMM ($$EXMON,$$IBSM)^IBCNBOA ($$DATES,$$EMPL,$$MONTH,$$OUT,$$SELEMPL,ENA)^IBCNBOE $$STOP^IBCNINSU
Kernel	4	^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA FileMan	2	EN^DDIOL ^DIR

Package	Total	Caller Graph
Integrated Billing	1	IBCNBOE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;get parameters then run the report
10	;ask if employee's
15	; ask employee name
20	; ask if for month
209	; come here for dates if going back
30	; ask report type
DEV	;get the device
22	; starting month ; IB*702
23	; ending month ; IB*702
25	; starting date ; IB*702
26	; ending date ; IB*702
RPT	; run report
EXIT
SEARCH(IBBEG,IBEND,IBMONTH,IBEMPL)	; search/sort statistics for employee report
SET(XREF,S1,S2,STAT,NC,NG,NP)	;
PRINT(IBBEG,IBEND,IBMONTH,IBEMPL,IBOUT)	;
EOR(IBLE)	; write end of report
EXN(IBBN)	; round number by .05 return with 1st decimal
PRTLN	; IB*702 Rewrote tag to print zeros for statuses with no counts
HDR	;print the report header
PHDL	; - Print the header line for the Excel spreadsheet
PAUSE()	;pause at end of screen if beeing displayed on a terminal
STOP()	;determine if user has requested the queued report to stop
MTHBASE(IBMONTH)	; set base var's for month year prompts

External References

Name	Field # of Occurrence
^%ZIS	DEV+5
^%ZISC	EXIT+2
^%ZTLOAD	DEV+10
$$S^%ZTLOAD	STOP+1
EN^DDIOL	MTHBASE+15, MTHBASE+19, MTHBASE+22
^DIR	PAUSE+7
$$LAST^IBAGMM	23+6
$$EXMON^IBCNBOA	15+11, MTHBASE+17, MTHBASE+23
$$IBSM^IBCNBOA	22+3, 23+3
$$DATES^IBCNBOE	25+2, 26+3
$$EMPL^IBCNBOE	10+1
$$MONTH^IBCNBOE	20+1
$$OUT^IBCNBOE	30+2
$$SELEMPL^IBCNBOE	15+1
ENA^IBCNBOE	10+1
$$STOP^IBCNINSU	10+1, 15+1, 20+1, 20+3, 30+2, DEV+6, 22+4, 23+5, 25+2, 26+3
$$FMTE^XLFDT	PRINT+9, PRINT+10, PRTLN+13, PHDL+4
$$NOW^XLFDT	PRINT+10, PHDL+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,?25,IBHDR Line Location: EN+3
Function Call: WRITE	Prompt: !!,?25,IBHDR Line Location: EN+6
Function Call: WRITE	Prompt: !!,"This report produces a count of the number of entries added to the Buffer",!,"file for a specified date range sorted by employee. Also included are",!,"sub-totals and percentages based on the current status of those entries." Line Location: EN+11
Function Call: WRITE	Prompt: !! Line Location: 10+2
Function Call: WRITE	Prompt: ! Line Location: 15+1
Function Call: WRITE	Prompt: !! Condition for execution: IBEMPL Line Location: 15+1
Function Call: WRITE	Prompt: !! Line Location: 15+6
Function Call: WRITE	Prompt: !! Line Location: 15+8
Function Call: WRITE	Prompt: !! Line Location: 209+12
Function Call: WRITE	Prompt: !!,"To avoid undesired wrapping, please enter '0;256;999' at the 'DEVICE:' prompt.",! Line Location: 30+4
Function Call: WRITE	Prompt: !,"Report requires 132 columns." Line Location: DEV+2
Function Call: WRITE	Prompt: ! Line Location: 23+2
Function Call: WRITE	Prompt: ! Line Location: 26+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+16
Function Call: WRITE	Prompt: ?((IOM\2)-17) Condition for execution: $G(IBOUT)="R" Line Location: PRINT+16
Function Call: WRITE	Prompt: "* * * N O D A T A F O U N D * * *",! Line Location: PRINT+16
Function Call: WRITE	Prompt: ! Line Location: PRINT+23
Function Call: WRITE	Prompt: ! Line Location: PRINT+26
Function Call: WRITE	Prompt: ! Line Location: EOR+3
Function Call: WRITE	Prompt: ?((IBLE\2)-10) Condition for execution: $G(IBOUT)="R" Line Location: EOR+3
Function Call: WRITE	Prompt: "* END OF REPORT *" Line Location: EOR+3
Function Call: WRITE	Prompt: !,IBEMP_U_DATM_U_$FN(IBCNT,",")_U_$FN(IBEN,",")_U Line Location: PRTLN+17
Function Call: WRITE	Prompt: IBBC_"%"_U Line Location: PRTLN+18
Function Call: WRITE	Prompt: $FN(IBAC,",")_U Line Location: PRTLN+19
Function Call: WRITE	Prompt: IBBC_"%"_U Line Location: PRTLN+20
Function Call: WRITE	Prompt: U_$FN(IBRJ,",")_U Line Location: PRTLN+21
Function Call: WRITE	Prompt: IBBC_"%"_U Line Location: PRTLN+22
Function Call: WRITE	Prompt: $FN(IBNC,",")_U_$FN(IBNG,",")_U_$FN(IBNP,",") Line Location: PRTLN+23
Function Call: WRITE	Prompt: !,$E(IBEMP,1,15),?17,DATM,?25,$J($FN(IBCNT,","),7) Line Location: PRTLN+26
Function Call: WRITE	Prompt: ?35,$J($FN(IBEN,","),7) Line Location: PRTLN+27
Function Call: WRITE	Prompt: ?43,$J("("_IBBC_"%)",8) Line Location: PRTLN+28
Function Call: WRITE	Prompt: ?54,$J($FN(IBAC,","),7) Line Location: PRTLN+29
Function Call: WRITE	Prompt: ?62,$J("("_IBBC_"%)",8) Line Location: PRTLN+30
Function Call: WRITE	Prompt: ?73,$J($FN(IBRJ,","),7) Line Location: PRTLN+31
Function Call: WRITE	Prompt: ?81,$J("("_IBBC_"%)",8) Line Location: PRTLN+32
Function Call: WRITE	Prompt: ?92,$J($FN(IBNC,","),7),?102,$J($FN(IBNG,","),7),?112,$J($FN(IBNP,","),7) Line Location: PRTLN+33
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,"INS BUFFER (ENTERING) EMPLOYEE REPORT ",IBRANGE," " Line Location: HDR+6
Function Call: WRITE	Prompt: ?(IOM-24),IBRDT,?(IOM-9)," PAGE ",IBPGN Line Location: HDR+8
Function Call: WRITE	Prompt: !,?39,"NOT YET",?93,"NEW",?104,"NEW",?113,"NEW" Line Location: HDR+9
Function Call: WRITE	Prompt: !,"EMPLOYEE" Line Location: HDR+11
Function Call: WRITE	Prompt: ?17,"MONTH" Condition for execution: $G(IBMONTH) Line Location: HDR+11
Function Call: WRITE	Prompt: ?27,"TOTAL",?39,"PROCESSED",?58,"ACCEPTED",?77,"REJECTED",?93,"INS CO" Line Location: HDR+11
Function Call: WRITE	Prompt: ?104,"GROUP",?113,"POLICY",! Line Location: HDR+12
Function Call: WRITE	Prompt: IBI Line Location: HDR+13
Function Call: WRITE	Prompt: !,"INS BUFFER (ENTERING) EMPLOYEE REPORT^"_IBRANGE_"^"_$$FMTE^XLFDT($$NOW^XLFDT,1),! Line Location: PHDL+4
Function Call: WRITE	Prompt: X Line Location: PHDL+10
Function Call: WRITE	Prompt: !! Line Location: PAUSE+3
Function Call: WRITE	Prompt: ! Line Location: PAUSE+5
Function Call: WRITE	Prompt: ! Line Location: PAUSE+6
Function Call: WRITE	Prompt: !,"*TASK STOPPED BY USER*" Line Location: STOP+1
Routine Call	%ZIS Line Location: DEV+5
Routine Call	DIR Line Location: PAUSE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(355.33 - [#355.33]	SEARCH+4, SEARCH+5, SEARCH+7, MTHBASE+6, MTHBASE+13, MTHBASE+21
^TMP($J	EN+7!, EXIT!, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7*, PRINT+15 , PRINT+21, PRINT+29, PRTLN+5, PRTLN+6, PRTLN+7, PRTLN+8, PRTLN+9, PRTLN+10, PRTLN+11
^VA(200 - [#200]	PRTLN+3

Label References

Name	Line Occurrences
$$EXN	PRTLN+18, PRTLN+20, PRTLN+22, PRTLN+28, PRTLN+30, PRTLN+32
$$MTHBASE	20+2
$$PAUSE	PRINT+18, PRINT+36, HDR+2
$$STOP	SEARCH+4, HDR+1
10	15+1, 20+1, 20+3
15	20+1, 20+3
20	209+3, 209+8
209	30+2
22	209+4, 23+5
25	209+9, 26+3
30	DEV+6
EOR	PRINT+17, PRINT+21
EXIT	10+1, 15+1, 20+1, 20+3, 209+3, 209+8, 30+2, DEV+6, DEV+10, RPT+3
HDR	PRINT+14, PRINT+25, PRINT+30, EOR+2
PHDL	PRINT+14
PRINT	RPT+4
PRTLN	PRINT+31
RPT	DEV+13
SEARCH	RPT+3
SET	SEARCH+10, SEARCH+11, SEARCH+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+4*, DEV+11!
%ZIS("A"	DEV+4*
CRT	PRINT+4~
DATM	PRTLN+1~, PRTLN+13*, PRTLN+17, PRTLN+26
DIR	PAUSE+1~, PAUSE+7!
DIR(0	PAUSE+7*
DIRUT	PAUSE+1~, PAUSE+7
DT	15+11
DUOUT	PAUSE+1~, PAUSE+7
IBAC	PRTLN+1~, PRTLN+7*, PRTLN+19, PRTLN+20, PRTLN+29, PRTLN+30
IBB0	SEARCH+1~, SEARCH+7*, SEARCH+10, SEARCH+11, SEARCH+12
IBBA	PRTLN+1~, PRTLN+18, PRTLN+20, PRTLN+22, PRTLN+28, PRTLN+30, PRTLN+32, MTHBASE+2~, MTHBASE+11, MTHBASE+12 , MTHBASE+13
IBBB	MTHBASE+2~, MTHBASE+9, MTHBASE+12, MTHBASE+13
IBBC	PRTLN+1~, PRTLN+18, PRTLN+20, PRTLN+22, PRTLN+28, PRTLN+30, PRTLN+32, MTHBASE+2~, MTHBASE+9*
IBBD	MTHBASE+2~, MTHBASE+13*
IBBEG	22+6, 25+2, 26+3, RPT+3, RPT+4, EXIT!, SEARCH~, SEARCH+2, SEARCH+4, PRINT~ , PRINT+9, MTHBASE+3
IBBEGEX	EN+10~, 22+5*
IBBENEX	EN+10~, 23+4*
IBBF	MTHBASE+2~, MTHBASE+24*, MTHBASE+25
IBBN	EXN~, EXN+2*, EXN+3, EXN+4
IBBR	EXN+1~, EXN+6*, EXN+7
IBBUFDA	SEARCH+1~, SEARCH+5*, SEARCH+7
IBBUFEM	MTHBASE+2~, MTHBASE+3, MTHBASE+21, MTHBASE+22, MTHBASE+23
IBBUFEME	MTHBASE+2~, MTHBASE+3, MTHBASE+23
IBBUFSD	MTHBASE+2~, MTHBASE+3, MTHBASE+6, MTHBASE+7, MTHBASE+9, MTHBASE+11, MTHBASE+13*, MTHBASE+14, MTHBASE+16
IBBUFSM	EN+10~, 20+4, MTHBASE+2~, MTHBASE+3, MTHBASE+12, MTHBASE+16*, MTHBASE+17, MTHBASE+18, MTHBASE+24
IBBUFSME	MTHBASE+2~, MTHBASE+3, MTHBASE+17
IBBW	EXN+1~, EXN+3*, EXN+4
IBBX	EXN+1~, EXN+4, EXN+5, EXN+6
IBCNT	PRTLN+1~, PRTLN+5*, PRTLN+17, PRTLN+18, PRTLN+20, PRTLN+22, PRTLN+26, PRTLN+28, PRTLN+30, PRTLN+32
IBCO	EN+10~, 209+3, 209+4, 209+8, 209+9, 22+3, 22+4, 23+5, 23+7, 25+2* , 26+3, 26+4, MTHBASE+3*
IBCUR	EN+10~, 15+11*, MTHBASE+19
IBCURFM	EN+10~, 15+11*, MTHBASE+18, MTHBASE+21
IBEDDT	EN+10~, 23+3, 23+4, 23+5, 23+6, MTHBASE+3*
IBEMP	SEARCH+1~, SEARCH+7, SEARCH+8, SEARCH+10, SEARCH+11, PRTLN+1~, PRTLN+3, PRTLN+17, PRTLN+26
IBEMPL	10+1, 15+1, 20+1, 20+3, RPT+3, RPT+4, EXIT!, SEARCH~, SEARCH+8, PRINT~
IBEN	PRTLN+1~, PRTLN+6*, PRTLN+17, PRTLN+18, PRTLN+27, PRTLN+28
IBEND	23+6, 26+3, RPT+3, RPT+4, EXIT!, SEARCH~, SEARCH+2, SEARCH+4, PRINT~, PRINT+9 , MTHBASE+3
IBHDR	DEV+10, EXIT!
IBI	PRINT+1~, PRINT+18, PRINT+36, HDR+13*
IBLE	EOR~, EOR+1*, EOR+3
IBLN	PRINT+1~, PRINT+10, PRINT+25, PRINT+26, PRINT+30, PRINT+31, EOR+2, HDR+3, PAUSE+5
IBMONTH	20+1*, 209+3, 209+8, RPT+3, RPT+4, EXIT!, SEARCH~, SEARCH+10, PRINT~, PRINT+24 , PRTLN+13, HDR+11, PHDL+8, MTHBASE~, MTHBASE+5
IBNC	PRTLN+1~, PRTLN+9*, PRTLN+23, PRTLN+33
IBNG	PRTLN+1~, PRTLN+10*, PRTLN+23, PRTLN+33
IBNP	PRTLN+1~, PRTLN+11*, PRTLN+23, PRTLN+33
IBOK	EN+10~, 20+2, 20+3, 20+4, 209+3, 209+5, 209+8, 209+10*
IBOUT	30+2, 30+4, DEV+2, DEV+8, RPT+4, EXIT!, PRINT~, PRINT+8, PRINT+14, PRINT+16 , PRINT+24, PRINT+30, EOR+3, PRTLN+16
IBPGN	PRINT+1~, PRINT+10, HDR+2, HDR+3, HDR+8, STOP+1
IBQUIT	RPT+1, RPT+3, EXIT!, SEARCH+4, PRINT+21, PRINT+24, PRINT+25, PRINT+29, PRINT+30, PRINT+36 , EOR+2, HDR+1, HDR+2
IBRANGE	PRINT+1~, PRINT+9*, HDR+6, PHDL+4
IBRDT	PRINT+1~, PRINT+10*, HDR+8
IBRJ	PRTLN+1~, PRTLN+8*, PRTLN+21, PRTLN+22, PRTLN+31, PRTLN+32
IBS1	SEARCH+1~, PRINT+1~, PRINT+12, PRINT+21, PRINT+29, PRTLN+3, PRTLN+5, PRTLN+6, PRTLN+7, PRTLN+8 , PRTLN+9, PRTLN+10, PRTLN+11
IBS2	PRINT+1~, PRINT+29*, PRTLN+5, PRTLN+6, PRTLN+7, PRTLN+8, PRTLN+9, PRTLN+10, PRTLN+11, PRTLN+13
IBSTDT	EN+10~, 22+3, 22+4, 22+5, 22+6, 23+3, MTHBASE+3*
IBX	PAUSE+1~, PAUSE+7, PAUSE+9
IBXDT	SEARCH+1~, SEARCH+4*, SEARCH+5
IBXREF	SEARCH+1~, PRINT+1~, PRINT+12*, PRINT+15, PRINT+21, PRINT+29, PRTLN+5, PRTLN+6, PRTLN+7, PRTLN+8 , PRTLN+9, PRTLN+10, PRTLN+11
IO	DEV+12
IO("Q"	DEV+10!
IOF	HDR+3
IOM	DEV+8*, PRINT+16, HDR+8, HDR+13
IOSL	PRINT+5, PRINT+6
IOST	PRINT+5, HDR+3, PAUSE+4
LIN	PAUSE+1~, PAUSE+5*
MAXCNT	PRINT+4~, PRINT+5, PRINT+6, PRINT+25, PRINT+30, EOR+2, PAUSE+5
NC	SET~, SET+5
NG	SET~, SET+6
NP	SET~, SET+7
POP	DEV+1~, DEV+6
S1	SET~, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7
S2	SET~, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7
STAT	SET~, SET+2, SET+3, SET+4
U	20+4, 22+5, 23+4, SEARCH+7, SEARCH+10, SEARCH+11, SEARCH+12, PRINT+8, PRTLN+3, PRTLN+17 , PRTLN+18, PRTLN+19, PRTLN+20, PRTLN+21, PRTLN+22, PRTLN+23, MTHBASE+24
X	PHDL+1~, PHDL+7, PHDL+8, PHDL+9*, PHDL+10, PHDL+11!, PAUSE+1~
XREF	SET~, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7
Y	PAUSE+1~
ZTDESC	DEV+1~, DEV+10*
>> ZTQUEUED	EXIT+1, STOP+1
ZTREQ	STOP+1!
ZTRTN	DEV+1~, DEV+10*
ZTSAVE	DEV+10!
ZTSAVE("IB*"	DEV+10*
>> ZTSTOP	STOP+1*, STOP+2

Customize PDF page

Package: Integrated Billing

Routine: IBCNBOF

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: