Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBJTBA

Package: Integrated Billing

Routine: IBJTBA


Information

IBJTBA ;ALB/ARH - TPI BILL CHARGE INFO SCREEN ;01-MAR-1995

Source Information

Source file <IBJTBA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for IBJ TP BILL CHARGES
HDR ; -- header code
INIT ; -- init variables and list array
INITQ
MRA ; -- mra/eob
HELP ; -- help code
EXIT ; -- exit code
BLD ; charges, as they would display on the bill
H1500 ; block 24
H1500Q
UB04 ;form locator 42-49, IBIFN required
UB04Q
SETLN(STR,IBX,COL,WD) ;
SET(STR,LN) ; set up TMP array with screen data (allows 2 blank lines, if not at end of array)
SETQ
COB ; if there is an offset or a secondary/tertiary payer add it to the display, with ins co, and prior bill #
; IBIFN and IBLN must exist upon entry, IBLN is updated with new line count
RX ;RX refill info for CMS-1500 TPJI display
PROS ;prosthetic info for CMS-1500 TPJI display

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Info |  Source |  Entry Points |  Interaction Calls