Routine: IBRCON1

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

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 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: READ	Prompt: "Enter RETURN to continue or '^' to stop: " Formatting: ! Timeout: DTIME Variable: X Line Location: RESUME+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: !?3,$P($G(^DPT(DFN,0)),"^"),$J("",10),VA("PID") Line Location: HLP1+3
Function Call: READ	Prompt: "Enter RETURN to continue or '^' to stop: " Formatting: ! Timeout: DTIME Variable: X Line Location: HLP1+4
Routine Call	%ZIS Line Location: EN+3
Routine Call	DIC Line Location: ASK+5
Routine Call	DIR Line Location: RESUME+6 RESUME+13

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

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

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!

Information