Routine: IBCNQ

Package	Total	Call Graph
VA Fileman	4	(COMMA,NOW)^%DTC ^DIC D^DIQ ^DIR
Integrated Billing	3	(NOPTF,NOPTF1)^IBCB2 $$PT^IBEFUNC ^IBOLK1
IFCAP	1	($$BN,$$STA,$$TPR)^PRCAFN
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
Integrated Billing	4	IBCB2 IBCMENU IBCNQ1 IBOLK

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; The variable IBAC must be defined as input to this sub-routine.
PAUSE
HDR
HDR1
RETN
Q
DISP1
ASKPAT
OPDATE	; List Outpatient Visit Dates.
DISPQ
VIEW	;

Name	Field # of Occurrence
COMMA^%DTC	VIEW+15, VIEW+16, VIEW+17
NOW^%DTC	VIEW+6
HOME^%ZIS	IBCNQ+6
^DIC	ASKPAT
D^DIQ	VIEW+6, VIEW+13, VIEW+19, DISP1, RETN, OPDATE+5
^DIR	PAUSE+2
NOPTF^IBCB2	VIEW+22
NOPTF1^IBCB2	VIEW+22
$$PT^IBEFUNC	VIEW+6
^IBOLK1	VIEW+23
$$BN^PRCAFN	VIEW+4
$$STA^PRCAFN	VIEW+18
$$TPR^PRCAFN	VIEW+17

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASKPAT+0
Function Call: WRITE	Prompt: !!,"Admission Date : ",Y Line Location: VIEW+13
Function Call: WRITE	Prompt: $S(X]"":X,1:IBUN) Line Location: VIEW+15
Function Call: WRITE	Prompt: !,"LESS Offset",?15,": " Line Location: VIEW+16
Function Call: WRITE	Prompt: X," [",$P(IB("U1"),U,3),"]",!,"Bill Total",?15,": " Line Location: VIEW+16
Function Call: WRITE	Prompt: X," [",$P(IB("U1"),U,3),"]",!,"Bill Total",?15,": " Line Location: VIEW+16
Function Call: WRITE	Prompt: !,"Amount Paid",?15,": ",X Line Location: VIEW+17
Function Call: WRITE	Prompt: !,"AR Status",?15,": ",$P(X,"^",2) Line Location: VIEW+18
Function Call: WRITE	Prompt: !!,"Statement From",?15,": ",Y Line Location: VIEW+19
Function Call: WRITE	Prompt: !,"Statement To",?15,": ",Y,! Line Location: VIEW+19
Function Call: WRITE	Prompt: !!,"Statement From",?15,": ",IBUN,!,"Statement To",?15,": ",IBUN,! Line Location: VIEW+20
Function Call: WRITE	Prompt: !,"Past actions of this billing record unspecified." Line Location: DISP+2
Function Call: WRITE	Prompt: !,"Returned to AR : " Line Location: DISP+5
Function Call: WRITE	Prompt: Y,?28," by " Line Location: RETN+0
Function Call: WRITE	Prompt: $P(^VA(200,IBN,0),"^") Line Location: RETN+0
Function Call: WRITE	Prompt: ?($S(I#4:I#4,1:4)*14+3),Y Line Location: OPDATE+5
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	%ZIS Line Location: IBCNQ+6
Routine Call	DIC Line Location: ASKPAT
Routine Call	DIR Line Location: PAUSE+2

FileNo	Call Tags
^DGCR(399 - [#399]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	VIEW+3, DISP+5, RETN, OPDATE+1, OPDATE+3
^DGCR(399.3 - [#399.3]	VIEW+10
^IBE(350.9 - [#350.9]	VIEW+11
^IBE(353 - [#353]	VIEW+11
^VA(200 - [#200]	DISP1, RETN

Name	Field # of Occurrence
^(0	VIEW+11, DISP1, RETN

Name	Field # of Occurrence
>> %	VIEW+6
DFN	VIEW+4*, VIEW+6, Q!
DIC	ASKPAT*, Q!
DIC("A"	ASKPAT*
DIC(0	ASKPAT*
DIR	PAUSE+2!
DIR(0	PAUSE+2*
DIRUT	PAUSE+2!
DTOUT	PAUSE+2!
DUOUT	PAUSE+2!
>> I	VIEW+3, DISP+4, DISP+5, DISP1, OPDATE+3, OPDATE+4, OPDATE+5, PAUSE+1*
IB	DISP+5*, Q!, RETN
IB(	VIEW+3*
IB("S"	VIEW+12, DISP+2, DISP+4, DISP1
IB("U"	VIEW+19, VIEW+20
IB("U1"	VIEW+15, VIEW+16
IB(0	VIEW+4, VIEW+10, VIEW+11, VIEW+13
IBAC	ASKPAT+2*, VIEW+21, VIEW+22, VIEW+23, DISP+4, DISP+5, Q!
IBAC1	VIEW+22, Q!
IBBNO	VIEW+4*, Q!, HDR1+2
>> IBFULL	VIEW+23
IBIFN	ASKPAT+2*, VIEW+3, VIEW+4, VIEW+17, VIEW+18, DISP+5, Q!, RETN, OPDATE+1, OPDATE+3
>> IBIL	VIEW+4
IBN	DISP1, Q!, RETN
IBNOW	VIEW+6*, Q!, HDR1+2
IBOPD	Q!, OPDATE+2, OPDATE+3, OPDATE+5
IBPAGE	VIEW+4, Q!, HDR1, HDR1+1, HDR1+2
IBPT	VIEW+6*, Q!, HDR1+2
IBQUIT	ASKPAT+2, VIEW+21, VIEW+22, VIEW+23, VIEW+24, DISP+4, DISP+5, Q!, HDR, PAUSE+2
IBSTAT	VIEW+4*, VIEW+9, VIEW+12, VIEW+22, Q!
IBU	Q!
IBUK	VIEW+8, DISP+1, DISP1, Q!
IBUN	VIEW+8, VIEW+9, VIEW+10, VIEW+11, VIEW+12, VIEW+15, VIEW+20, DISP+1, Q!
IBX	DISP+3*, DISP1, Q!
IOF	HDR1+1
IOSL	VIEW+22, DISP+4, DISP+5, PAUSE+1
IOST	HDR1+1, PAUSE
L	HDR1*, HDR1+2, HDR1+3!
U	VIEW+15, VIEW+16, VIEW+19, VIEW+20, DISP+4, DISP1
X	ASKPAT, VIEW+15, VIEW+16, VIEW+17, VIEW+18, Q!
X2	VIEW+15, VIEW+16, VIEW+17*, Q!
Y	ASKPAT+2, VIEW+6, VIEW+13, VIEW+19, DISP1, Q!, RETN, OPDATE+5