IBCRHBS3 ;ALB/ARH - RATES: UPLOAD HOST FILES (RC 2+) PARSE ; 10-OCT-03
Source file <IBCRHBS3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ; Inpatient Facility DRG Charges: process a single line, parse out into individual fields and store in XTMP
|
|
| B | ; Outpatient Facility CPT Charges: process a single line, parse out into individual fields and store in XTMP
|
|
| C | ; Physician CPT Charges: process a single line, parse out into individual fields and store in XTMP
|
|
| D | ; Service Category Codes: process a single line, parse out into individual fields and store in XTMP
|
|
| E | ; Area Factors: process a single line, parse out into individual fields and store in XTMP
|
|
| F | ; Zip Codes and Sites: 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,ACROSS) | ; set data parsed from host file to XTMP
|
|
| SETSITE(ZIP,SITE,NAME,TYPE) | ; set up site entries and cross references
; the Area Factor File (E) has entries not associated with a VA site, Site/Zip file (F) only has valid VA sites ; therefore there are many zip codes (E) with no assigned division but that must be available for selection ; these unassigned zip codes are passed in with only Zip defined, ; a temporary Division Number '9yyXy' and Name 'ZIP Code ZZZ' is created, Type is blank to be set by user ; if the zip is '000' then these are the Nation wide charges and the corresponding Division Number/Name is used |
|
| 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 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
