Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCRHBR3

Package: Integrated Billing

Routine: IBCRHBR3


Information

IBCRHBR3 ;ALB/ARH - RATES: UPLOAD HOST FILES (RC) PARSE ; 10-OCT-1998

Source Information

Source file <IBCRHBR3.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Integrated Billing 1 $$VERSEDT^IBCRHBRV  
Kernel 1 ($$FMADD,$$HTE)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
A ; Inpatient Facility DRG Charges: process a single line, parse out into individual fields and store in XTMP
B ; Inpatient Facility Area Factors: process a single line, parse out into individual fields and store in XTMP
C ; Outpatient Facility CPT Charges: process a single line, parse out into individual fields and store in XTMP
D ; Outpatient Facility Area Factors: process a single line, parse out into individual fields and store in XTMP
E ; Physician CPT Charges: process a single line, parse out into individual fields and store in XTMP
F ; Physician CPT Charges (A&P): process a single line, parse out into individual fields and store in XTMP
G ; Physician CPT Charges (ET): process a single line, parse out into individual fields and store in XTMP
H ; Physician Area Factors: process a single line, parse out into individual fields and store in XTMP
I ; Physician Unit Area Factors: process a single line, parse out into individual fields and store in XTMP
SETHDR(IBFILE,IBXRF1) ; set up header for XTMP file
SET(IBFILE,IBXRF1,LINE) ; set data parsed from host file to XTMP
SET1(IBXRF1,IBXIFN,IBXRF3,LINE) ; set data parsed from host file to XTMP, second line
SETSITE(IBXTMP,IBXIFN,SITE,NAME,ZIP) ; set up site file and xref
STRIP(IBVAL) ; strip blanks, $, and commas
P(LINE,P) ; parse the line and return the piece requested (replaces $P since may be two dilimiters)
; the pieces are delimited by a comma, any piece that includes a comma within the text is surrounded by quotes

External References

Name Field # of Occurrence
$$VERSEDT^IBCRHBRV SETHDR+4
$$FMADD^XLFDT SETHDR+3
$$HTE^XLFDT SETHDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,"SITE ERROR: ",IBX,"--",ZIP
  • Line Location: SETSITE+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] SETHDR+2
^XTMP( SETHDR+3*, SETHDR+4*, SET+2, SET+3*, SET+4*, SET1+2*, SETSITE+4, SETSITE+6, SETSITE+8, SETSITE+10*
, SETSITE+11*, SETSITE+14*, SETSITE+15*, SETSITE+17*, SETSITE+18*, SETSITE+19*, SETSITE+21*

Label References

Name Line Occurrences
$$P A+3, A+4, A+5, A+6, A+7, A+8, A+9, B+3, B+4, B+5
, B+6, B+7, B+8, B+9, B+10, B+11, C+3, C+4, C+5, C+6
, C+7, D+3, D+4, D+5, D+6, D+7, D+8, D+9, E+3, E+5
, E+6, E+7, E+8, E+9, E+10, E+11, F+3, F+5, F+6, F+7
, F+8, F+9, G+3, G+5, G+6, G+7, G+8, G+9, G+10, H+3
, H+4, H+5, H+6, H+7, H+8, H+9, H+10, H+12, I+3, I+4
, I+5, I+6, I+7, I+8
$$SET A+11, B+14, C+9, D+12, E+13, F+11, G+12, H+15, I+11
$$STRIP A+3, A+5, A+6, A+7, A+8, A+9, B+3, B+5, B+6, B+7
, B+8, B+9, B+10, B+11, C+3, C+4, C+5, C+6, C+7, D+3
, D+5, D+6, D+7, D+8, D+9, E+3, E+7, E+8, E+9, E+10
, E+11, F+3, F+7, F+8, F+9, G+3, G+7, G+8, G+9, G+10
, H+3, H+5, H+6, H+7, H+8, H+9, H+10, H+12, I+3, I+5
, I+6, I+7, I+8
SET1 H+15
SETHDR SET+2, SETSITE+4
SETSITE B+14, D+12, H+15, I+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT SETHDR+3
DUZ SETHDR+2
I P+2~, P+4*
IBAF D+1~, D+5*, D+11, I+1~, I+5*, I+10
IBANC A+1~, A+7*, A+11
IBBEG A+1~, A+8*, A+11, B+1~, B+10*, B+13, C+1~, C+5*, C+9, D+1~
, D+6*, D+11, E+1~, E+10*, E+13, F+1~, F+8*, F+11, G+1~, G+9*
, G+12, H+1~, H+8*, H+14, I+1~, I+6*, I+10
IBCG E+1~, E+6*, E+13, F+1~, F+6*, F+11, G+1~, G+6*, G+12
IBCHG C+1~, C+4*, C+9, F+1~, F+7*, F+11
IBCPT C+1~, C+3*, C+9, E+1~, E+3*, E+13, F+1~, F+3*, F+11, G+1~
, G+3*, G+12
IBCV E+1~, E+9*, E+13, G+1~, G+8*, G+12
IBDESC A+1~, A+4*, E+1~, E+5*, F+1~, F+5*, G+1~, G+5*
IBDRG A+1~, A+3*, A+11
IBEND A+1~, A+9*, A+11, B+1~, B+11*, B+13, C+1~, C+6*, C+9, D+1~
, D+7*, D+11, E+1~, E+11*, E+13, F+1~, F+9*, F+11, G+1~, G+10*
, G+12, H+1~, H+9*, H+14, I+1~, I+7*, I+10
IBFILE A+11, B+14, C+9, D+12, E+13, F+11, G+12, H+15, I+11, SETHDR~
, SETHDR+2, SET~, SET+2
>> IBFLINE A+3, A+4, A+5, A+6, A+7, A+8, A+9, B+3, B+4, B+5
, B+6, B+7, B+8, B+9, B+10, B+11, C+3, C+4, C+5, C+6
, C+7, D+3, D+4, D+5, D+6, D+7, D+8, D+9, E+3, E+5
, E+6, E+7, E+8, E+9, E+10, E+11, F+3, F+5, F+6, F+7
, F+8, F+9, G+3, G+5, G+6, G+7, G+8, G+9, G+10, H+3
, H+4, H+5, H+6, H+7, H+8, H+9, H+10, H+12, I+3, I+4
, I+5, I+6, I+7, I+8
IBI SETSITE+2~, SETSITE+11*, SETSITE+17*, SETSITE+18*, SETSITE+19*, STRIP+1~, STRIP+2*
IBJ SETSITE+2~
IBK H+1~, H+12*, SET+1~, SET+3*, SET+4, SET+5, SETSITE+2~, SETSITE+6*, SETSITE+8, SETSITE+9*
, SETSITE+10, SETSITE+11, SETSITE+13, SETSITE+14*, SETSITE+15, SETSITE+17, SETSITE+18, SETSITE+19, SETSITE+21
IBLMT C+1~, C+7*, C+9, D+1~, D+9*, D+11
IBMOD E+1~, E+4*, E+13, F+1~, F+4*, F+11, G+1~, G+4*, G+12
IBNAME B+1~, B+4*, B+14, D+1~, D+4*, D+12, H+1~, H+4*, H+15, I+1~
, I+4*, I+11
IBNAN B+1~, B+8*, B+13
IBNRB B+1~, B+7*, B+13
IBPE E+1~, E+8*, E+13, H+1~, H+7*, H+14
IBRB A+1~, A+6*, A+11
IBSAN B+1~, B+6*, B+13
IBSITE B+1~, B+3*, B+13, B+14, D+1~, D+3*, D+11, D+12, H+1~, H+3*
, H+14, H+15, I+1~, I+3*, I+10, I+11
IBSNF B+1~, B+9*, B+13
IBSNS A+1~, A+5*, A+11
IBSRB B+1~, B+5*, B+13
IBTRVU G+1~, G+7*, G+12
IBVAL STRIP~, STRIP+2
IBWA H+1~, H+5*, H+14
IBWE E+1~, E+7*, E+13, H+1~, H+6*, H+14
IBX H+1~, H+12*, SETHDR+2~*, SETHDR+3, SET+1~, SET+2*, SET+3, SETSITE+2~, SETSITE+4*, SETSITE+6*
, SETSITE+8*, SETSITE+9, STRIP+1~, STRIP+2*
IBXIFN A+1~, A+11*, B+1~, B+14*, C+1~, C+9*, D+1~, D+12*, E+1~, E+13*
, F+1~, F+11*, G+1~, G+12*, H+1~, H+15*, I+1~, I+11*, SET1~, SET1+2
, SETSITE~, SETSITE+21
IBXRF1 SETHDR~, SETHDR+3, SETHDR+4, SET~, SET+2, SET+3, SET+4, SET1~, SET1+2, SETSITE+2~
, SETSITE+3*, SETSITE+4, SETSITE+6, SETSITE+8, SETSITE+10, SETSITE+11, SETSITE+14, SETSITE+15, SETSITE+17, SETSITE+18
, SETSITE+19, SETSITE+21
IBXRF3 SET1~, SET1+2
IBXTMP A+1~*, A+11, B+1~*, B+14, C+1~*, C+9, D+1~*, D+12, E+1~*, E+13
, F+1~*, F+11, G+1~*, G+12, H+1~*, H+15, I+1~*, I+11, SETSITE~, SETSITE+21
IBY STRIP+1~*, STRIP+2*, STRIP+3
IBZIP D+1~, D+8*, D+12, H+1~, H+10*, H+15, I+1~, I+8*, I+11
LINE A+1~, A+11*, B+1~, B+13*, B+14, C+1~, C+9*, D+1~, D+11*, D+12
, E+1~, E+13*, F+1~, F+11*, G+1~, G+12*, H+1~, H+14*, H+15, I+1~
, I+10*, I+11, SET~, SET+4, SET1~, SET1+2, P~, P+5*, P+7*
LINE2 H+1~, H+12*, H+15
NAME SETSITE~, SETSITE+2, SETSITE+6, SETSITE+15, SETSITE+17
P P~, P+4
PC P+2~*, P+5*, P+7*, P+9
SITE SETSITE~, SETSITE+2, SETSITE+6, SETSITE+15, SETSITE+19
U A+11, B+13, C+9, D+11, E+13, F+11, G+12, H+12, H+14, I+10
, SETHDR+2, SETHDR+3, SET+3, SETSITE+6, SETSITE+9, SETSITE+10, SETSITE+14, SETSITE+15
U1 P+2~*, P+5, P+7
U2 P+2~*, P+5
>> VERS SETHDR+2, SETHDR+4
ZIP SETSITE~, SETSITE+3*, SETSITE+8, SETSITE+9, SETSITE+10, SETSITE+11, SETSITE+15, SETSITE+18
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All