Routine: IBRCON1

Package	Total	Call Graph
Integrated Billing	2	$$DAT1^IBOUTL ^IBR
Registration	2	DEM^VADPT PID^VADPT6
VA FileMan	2	^DIC ^DIR
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
Integrated Billing	1	IBRCON3

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for stand-alone 'pass' option
ASK
RESUME
LOOP	;
END
HDR1	; Display charge header.
HDR2	; Display charge header.
LST1	; Display individual IB Action.
LST2	; Display individual IB Action.
ERR	; Display error message.
HLP	; Display basic help message.
HLP1	; Display all patients with converted charges
HELP	; Help for the 'Select' prompt.

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+3
^DIC	ASK+5
^DIR	RESUME+6, RESUME+13
$$DAT1^IBOUTL	LST1+3, LST2+5
^IBR	RESUME+18
DEM^VADPT	ASK+11
PID^VADPT6	HLP1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no patients with converted charges at this time.",! Line Location: EN+1
Function Call: WRITE	Prompt: !!,"This option is used to pass Means Test charges which have been" Line Location: EN+4
Function Call: WRITE	Prompt: !,"converted. Please enter a patient with converted charges and these" Line Location: EN+5
Function Call: WRITE	Prompt: !,"charges will be displayed and may be selected to be released to Accounts",!,"Receivable.",! Line Location: EN+6
Function Call: READ	Formatting: !! Prompt: "Select PATIENT NAME: " Variable: X Timeout: DTIME Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"This patient does not have any converted charges",! Line Location: ASK+9
Function Call: WRITE	Prompt: @IOF,VADM(1)," Pt ID: ",VA("PID"),! Line Location: ASK+11
Function Call: WRITE	Prompt: "-" Line Location: ASK+11
Function Call: WRITE	Prompt: !!,"The following IB Actions for this patient, are CONVERTED CHARGES:" Line Location: RESUME+0
Function Call: READ	Formatting: ! Prompt: "Enter RETURN to continue or '^' to stop: " Variable: X Timeout: DTIME Line Location: RESUME+2
Function Call: WRITE	Prompt: ! Line Location: RESUME+6
Function Call: WRITE	Prompt: !!,"Passing charges to Accounts Receivable...",! Line Location: RESUME+17
Function Call: WRITE	Prompt: !!,"The charge"_$E("s",$P(IBRANGE,",",2)>0)_" listed above "_$S($P(IBRANGE,",",2):"have",1:"has")_" been passed to Accounts Receivable",! Line Location: RESUME+19
Function Call: WRITE	Prompt: !,IBLINE,!," REF Action ID Bill Type",?44,"From",?54,"To",?64,"Charge" Line Location: HDR1+2
Function Call: WRITE	Prompt: !,IBLINE Line Location: HDR1+3
Function Call: WRITE	Prompt: !,IBLINE,!,?42,"Bill # or" Line Location: HDR2+2
Function Call: WRITE	Prompt: !," REF Action ID Bill Type",?42,"On Hold",?53,"From",?64,"To",?73,"Charge" Line Location: HDR2+3
Function Call: WRITE	Prompt: !,IBLINE Line Location: HDR2+4
Function Call: WRITE	Prompt: !?1,$J(IBNUM,2),?7,$J(+IBND,9),?18,$P($G(^IBE(350.1,+$P(IBND,"^",3),0)),"^",8) Line Location: LST1+2
Function Call: WRITE	Prompt: ?42,$$DAT1^IBOUTL($P(IBND,"^",14)),?52,$$DAT1^IBOUTL($P(IBND,"^",15)) Line Location: LST1+3
Function Call: WRITE	Prompt: ?61,$J(+$P(IBND,"^",7),9,2) Line Location: LST1+4
Function Call: WRITE	Prompt: !?1,$J(IBNUM,2),?7,$J(+IBND,9),?18,$P($G(^IBE(350.1,+$P(IBND,"^",3),0)),"^",8) Line Location: LST2+2
Function Call: WRITE	Prompt: ?42,"On Hold" Line Location: LST2+3
Function Call: WRITE	Prompt: ?42,$P($P(IBND,"^",11),"-",2) Line Location: LST2+4
Function Call: WRITE	Prompt: ?51,$$DAT1^IBOUTL($P(IBND,"^",14)),?61,$$DAT1^IBOUTL($P(IBND,"^",15)) Line Location: LST2+5
Function Call: WRITE	Prompt: ?70,$J(+$P(IBND,"^",7),9,2) Line Location: LST2+6
Function Call: WRITE	Prompt: !?1,$J(IBNUM,2),?7,"Error encountered - a separate bulletin has been posted" Line Location: ERR+1
Function Call: WRITE	Prompt: !!,"Enter: the name of a patient with converted charges or" Line Location: HLP+1
Function Call: WRITE	Prompt: !?10,"'??' -- to see all patients with converted charges or" Line Location: HLP+2
Function Call: WRITE	Prompt: !?10,"'^' -- to quit this option.",! Line Location: HLP+3
Function Call: WRITE	Prompt: !!,"The following patients have converted charges" Line Location: HLP1+2
Function Call: WRITE	Prompt: !?3,$P($G(^DPT(DFN,0)),"^"),$J("",10),VA("PID") Line Location: HLP1+3
Function Call: READ	Formatting: ! Prompt: "Enter RETURN to continue or '^' to stop: " Variable: X Timeout: DTIME Line Location: HLP1+4
Function Call: WRITE	Prompt: ! Line Location: HLP1+5
Function Call: WRITE	Prompt: !!?4,"Please enter a list or range of IB Actions (i.e. 1,3,5 or 2-4,8), none" Line Location: HELP+1
Function Call: WRITE	Prompt: !?4,"greater than ",IBNUM-1,", to be passed to Accounts Receivable, or '^' to quit." Line Location: HELP+2
Routine Call	%ZIS Line Location: EN+3
Routine Call	DIC Line Location: ASK+5
Routine Call	DIR Line Location: RESUME+6 RESUME+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HLP1+3
^IB - [#350]	LST1+1, LST2+1
^IB("AI"	EN+1, ASK+8, HLP1+3
^IBE(350.1 - [#350.1]	LST1+2, LST2+2

Label References

Name	Line Occurrences
ASK	ASK+2, ASK+3, ASK+5, ASK+9, LOOP+1
END	ASK+1, RESUME+6, RESUME+13
ERR	RESUME+18
HDR1	RESUME
HDR2	RESUME+17
HLP	ASK+3
HLP1	ASK+2
LOOP	RESUME+7, RESUME+14
LST1	RESUME+1
LST2	RESUME+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	ASK+5, ASK+8, END+1!, HLP1+1~, HLP1+3
DIC	ASK+5*!, END+1!
DIC("S"	ASK+4*
DIC(0	ASK+5*
DIR	RESUME+6!, RESUME+13!, END+1!
DIR("?"	RESUME+5*
DIR("A"	RESUME+5, RESUME+12
DIR("B"	RESUME+11*
DIR(0	RESUME+5, RESUME+12
DIRUT	RESUME+7, RESUME+14, END!
DTIME	ASK+1, RESUME+2, HLP1+4
DTOUT	END!
DUOUT	RESUME+6, RESUME+13, END!
DUZ	RESUME+9
I	ASK+11, END+1!, HLP1+1~, HLP1+3
IBA	ASK+7!, ASK+9, END!, END+1!
IBA(	ASK+8*, RESUME+1, RESUME+18
IBAFY	END!
IBARTYP	END!
IBATYP	END!
IBDA	END!
IBDUZ	RESUME+9*, END!
IBFAC	END!
IBLINE	END+1!, HDR1+1~, HDR1+2, HDR1+3, HDR2+1~, HDR2+2, HDR2+4
IBN	RESUME+1, RESUME+18, END!, LST1+1, LST2+1
IBND	END+1!, LST1+1~, LST1+2, LST1+3, LST1+4, LST2+1~, LST2+2, LST2+3, LST2+4, LST2+5 , LST2+6
IBNOS	RESUME+18*, END!
IBNUM	ASK+8, RESUME+1, RESUME+5, RESUME+18*, END!, LST1+2, LST2+2, ERR+1, HELP+2
IBQ	RESUME+1, RESUME+2, END!, HLP1+1~, HLP1+3, HLP1+4
IBRANGE	RESUME+9*, RESUME+18, RESUME+19, END!
IBRHOLD	ASK, RESUME+20, END+1!, LST2+3
IBRRJS	ASK+8, RESUME+18, END+1!
IBRRJSL	END!
IBSEQNO	RESUME+9*, END!
IBSERV	END!
IBSITE	END!
IBTOTL	END!
IBTRAN	END!
IBWHER	END!
IOF	ASK+11
U	LST2+3
VA	END!, END+1!, HLP1+1~
VA("PID"	ASK+11, HLP1+3
VADM	END!, END+1!
VADM(1	ASK+11
VAERR	END!, HLP1+1~
X	ASK+1, ASK+2, ASK+3, RESUME+2, END+1!, HLP1+4*
Y	ASK+5, RESUME+9, RESUME+12, RESUME+14, RESUME+18, END+1!

Customize PDF page

Package: Integrated Billing

Routine: IBRCON1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: