Routine: IBCB1

Package	Total	Call Graph
Integrated Billing	5	(DISP,EDITS,FXERR1,VIEW)^IBCB2 GVAR^IBCBB (ARRAY,END)^IBCBB1 DISAP^IBCBULL EN1^IBCF
IFCAP	2	REL^PRCASVC ^PRCASVC6
VA Fileman	2	YN^DICN ^DIE

Package	Total	Caller Graph
Integrated Billing	3	IBCB IBCCC2 IBCRTN

Entry Points

Name	Comments	DBIA/ICR reference
RPNT
REV	;W !!,"WANT TO ",$S($P(^DGCR(399,IBIFN,"S"),"^",6)]"":"RE-",1:""),"REVIEW BILL AT THIS TIME" S %=2 D YN^DICN G:%=-1!(%=2) END
AUTH
1	;complete bill
3	;authorize bill
2	;review bill
4	;generate/print bill
END
GEN

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You do not hold the Review Key.",! Line Location: 2+1
Function Call: WRITE	Prompt: !!,"Entering user can not review bill.",! Line Location: 2+2
Function Call: WRITE	Prompt: !?4,"YES - To set the status to Reviewed",!?4,"No - To take no action" Line Location: REV+1
Function Call: WRITE	Prompt: !!,"You do not hold the Authorize Key.",! Line Location: 3+1
Function Call: WRITE	Prompt: !!,"Reviewing user can not authorize.",! Line Location: 3+3
Function Call: WRITE	Prompt: !!,"Entering user can not authorize.",! Line Location: 3+4
Function Call: WRITE	Prompt: !,"Already Approved, Can't change" Line Location: 3+5
Function Call: WRITE	Prompt: !?4,"YES - To set the status to Complete",!?4,"No - To take no action" Line Location: AUTH+1
Function Call: WRITE	Prompt: !!,*7,"Not Authorized, Can Not Print!" Line Location: 4+2
Function Call: WRITE	Prompt: !?4,"YES - to print the bill now",!?4,"NO - To take no action" Line Location: GEN+1
Function Call: WRITE	Prompt: !?5,"Enter 'O' to reprint the original bill or",!?5,"Enter 'C' to reprint the bill as a duplicate copy or",!?5,"Enter '2' or '3' to print 2nd or 3rd follow-up notices." Line Location: RPNT+1
Routine Call	DIE Line Location: AUTH+2

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	3+4, 3+5, AUTH+3, AUTH+5, 4+2, 4+6
^IBE(350.9 - [#350.9]	3+4
^UTILITY($J	IBCB1+10!
^XUSEC("IB AUTHORIZE"	3+1

Name	Field # of Occurrence
>> %	AUTH, AUTH+1, GEN, GEN+1
%DT	END+1!
>> DA	AUTH+2*
DDH	END+2!
DGBIL1	END+2!
DGBILLBS	END!
DGBS	END+1!
DGCNT	END+1!
DGDA	END+1!
DGFIL	END!
DGII	END!
DGINPT	END+1!
DGLCNT	END+1!
DGLL	END+1!
DGPAG	END+1!
DGRA2	END!
DGREVC	END+1!
DGRSPAC	END+1!
DGRV	END+1!
DGSM	END+1!
DGTE	END!
DGTEXT	END+1!
DGTEXT1	END+1!
DGTOTPAG	END+1!
DGU	END+2!
DGVISCNT	END!
DGXRF1	END!
DI	END+1!
DIC	AUTH+2*!, END+1!
DIE	AUTH+2*!, END+1!
>> DR	AUTH+2*
DTIME	RPNT
DUZ	3+1, 3+4
I	END+1!
IB	END!
IBA1	END+2!
>> IBAC	IBCB1+10
IBBT	END!
IBCH	END!
IBCHG	END+2!
IBCPTN	END+1!
IBDFN	END+1!
IBDISP	END!
IBDSDT	END+1!
IBER	END!, END+1!
>> IBIFN	3+1, 3+4, 3+5, AUTH+2, AUTH+3, AUTH+5, 4+1, 4+2, 4+6
IBINS	END+2!
IBJ	END+1!
IBMA	END+1!
IBNDI1	END+1!
IBNDS	END!
IBOA	END!
IBOPV	END+1!
IBOPV1	END+2!
IBOPV2	END+2!
IBPNT	4+6, GEN, GEN+2, RPNT, RPNT+1, RPNT+2, RPNT+3, END+1!
IBPROC	END+2!
IBQUIT	1+1, 3+6, 4+4*, 4+5, END!
IBREV	END!
IBST	END!
IBVIEW	4+5, END!
IBX	END!
IBX3	AUTH+2, END!
IBXDT	END+1!
IBYY	AUTH+2*!
IBZZ	END+1!
J	END+1!
PRCAERCD	END!
PRCAERR	END!
PRCAORA	END!
PRCAPAYR	END+1!
PRCARI	END+2!
PRCASV	END+2!
PRCASV("NOTICE"	END+2
PRCASV("OKAY"	AUTH+5
PRCASVC	END!
PRCAT	END!
VA	END+1!
X	END+1!
Y	END+1!
Y1	END+1!
Y2	END+1!