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 |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VA(200 - [#200] | SETHDR+2 |
| ^XTMP( | SETHDR+3*, SETHDR+4*, SET+2, SET+3*, SET+4*, SET+6*, SETSITE+17*, SETSITE+18*, SETSITE+19* |
| ^XTMP("IBCR RC SITE" | SETSITE+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACROSS | SET~, SET+6 |
| >> COLUMNS | A+2, A+4, B+2, B+4, C+2, C+4, D+2, D+4, E+2, E+4 , F+2 |
| DT | SETHDR+3 |
| DUZ | SETHDR+2 |
| I | P+2~, P+4* |
| IBCODE | A+2~, A+7*, B+2~, B+7*, B+9, C+2~, C+7*, C+9, D+2~, D+6* , D+8 |
| IBFILE | A+9, B+9, C+9, D+8, E+8, F+11, SETHDR~, SETHDR+2, SET~, SET+2 |
| >> IBFLINE | A+2, A+4, B+2, B+4, C+2, C+4, D+2, D+4, E+2, E+4 , F+2, F+4, F+5, F+6, F+7 |
| IBI | A+2~, A+4*, B+2~, B+4*, C+2~, C+4*, D+2~, D+4*, E+2~, E+4* , STRIP+1~, STRIP+2* |
| IBITYPE | A+2~, A+6*, B+2~, B+6*, C+2~, C+6* |
| IBK | SET+1~, SET+3*, SET+4, SET+6, SET+7 |
| IBNM | F+2~, F+5*, F+9, F+11 |
| IBPIECE | A+2~, A+4*, B+2~, B+4*, C+2~, C+4*, D+2~, D+4*, E+2~, E+4* |
| IBSITE | F+2~, F+4*, F+9, F+11 |
| IBSTYPE | F+2~, F+7*, F+9, F+11 |
| IBVAL | STRIP~, STRIP+2 |
| IBX | SETHDR+2~*, SETHDR+3, SET+1~, SET+2*, SET+3, STRIP+1~, STRIP+2* |
| IBXIFN | A+2~, A+9*, B+2~, B+9*, C+2~, C+9*, D+2~, D+8*, E+2~, E+8* , F+2~, F+11*, SETSITE+6~, SETSITE+15*, SETSITE+17, SETSITE+18, SETSITE+19 |
| IBXRF1 | SETHDR~, SETHDR+3, SETHDR+4, SET~, SET+2, SET+3, SET+4, SET+6, SETSITE+6~, SETSITE+12* , SETSITE+15, SETSITE+17, SETSITE+18, SETSITE+19 |
| IBXTMP | A+2~*, A+9, B+2~*, B+9, C+2~*, C+9, D+2~*, D+8, E+2~*, E+8 , F+2~*, F+11 |
| IBY | STRIP+1~*, STRIP+2*, STRIP+3 |
| IBZIP | E+2~, E+6*, E+8, F+2~, F+6*, F+9, F+11 |
| LINE | A+2~, A+4*, A+6, A+7, A+9, B+2~, B+4*, B+6, B+7, B+9 , C+2~, C+4*, C+6, C+7, C+9, D+2~, D+4*, D+6, D+8, E+2~ , E+4*, E+6, E+8, F+2~, F+9*, F+11, SET~, SET+4, SETSITE+6~, SETSITE+13* , SETSITE+15, P~, P+5*, P+7* |
| NAME | SETSITE~, SETSITE+8*, SETSITE+9*, SETSITE+13, SETSITE+17 |
| P | P~, P+4 |
| PC | P+2~*, P+5*, P+7*, P+9 |
| SITE | SETSITE~, SETSITE+8*, SETSITE+9*, SETSITE+10, SETSITE+13, SETSITE+19* |
| TYPE | SETSITE~, SETSITE+8*, SETSITE+9*, SETSITE+13 |
| U | A+4, A+6, A+7, B+4, B+6, B+7, C+4, C+6, C+7, D+4 , D+6, E+4, E+6, F+9, SETHDR+2, SETHDR+3, SET+3, SETSITE+13 |
| U1 | P+2~*, P+5, P+7 |
| U2 | P+2~*, P+5 |
| >> VERS | SETHDR+2, SETHDR+4 |
| ZIP | SETSITE~, SETSITE+8, SETSITE+9, SETSITE+13, SETSITE+18* |
