RCXVUTIL ;DAOU/ALA - AR Data Extract Utility Program ;29-JUL-03
Source file <RCXVUTIL.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SPAR(REF) | ; HL7 Segment Parsing
; Input Parameter ; REF = Array or global reference ; Global or array should end with ')' ; e.g. ^TMP($J,"XXX",#) |
|
| LP | ||
| CLNSTR(STRING,CHARS,SUBSEP) | ; Remove extra trailing components and subcomponents
; in the HL7 segment |
|
| RTRIMCH(STR,CHRS) | ; Remove the trailing chars from string
|
|
| DFP(IBN) | ; Date of First Payment Function
; Input Parameter ; IBN = IEN of the bill number from file 430 |
|
| DATE(X) | ; Pass in External Date and get FileMan date format
|
|
| TASK(RCDSC) | ; Check on Task Status
|
|
| SAT(RDATE) | ; Find the next Saturday date from the passed in date
|
|
| CARE(RCXVIEN) | ; Is bill VA or NON-VA care?
|
|
| IBCHG(RCIBY,RCTY,RCTMP) | ; Return charge for item entry or null if no charge
; RCTMP=array containing the RC and unit(s) and unit charge ; RCTY=3 for prescription or RCTY=5 for prosthetics or RCTY=4 for cpt ; delete charge entry in rctmp if item found |
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | FIND^DIC, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | CARE+37, CARE+40, CARE+54, CARE+60, CARE+63, CARE+81, CARE+82, CARE+97, CARE+98, CARE+118 , CARE+121 |
| ^DGCR(399.1 - [#399.1] | CARE+99 |
| ^DGCR(399.3 - [#399.3] | CARE+55 |
| ^DGPT - [#45] | CARE+88, CARE+92 |
| ^DIC(40.7 - [#40.7] | CARE+45 |
| ^IBA(362.4 - [#362.4] | CARE+72, CARE+73 |
| ^IBA(362.5 - [#362.5] | CARE+50 |
| ^PRCA(430 - [#430] | DFP+7 |
| ^PRCA(433 - [#433] | DFP+8, DFP+9 |
| ^SC - [#44] | CARE+109 |
| ^SC("B" | CARE+109 |
| ^TMP("RCXVOE" | CARE+119!, CARE+124, CARE+125! |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | DFP+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DATE+9*, DATE+13! |
| CDOW | SAT+1~, SAT+2* |
| CHARS | CLNSTR~, CLNSTR+9, CLNSTR+12 |
| CHRS | RTRIMCH~, RTRIMCH+2*, RTRIMCH+3, RTRIMCH+4 |
| DIC | DATE+13! |
| DIC(0 | DATE+10* |
| FDATE | SAT+1~, SAT+4*, SAT+5 |
| >> HL("ECH" | LP+3 |
| >> HLFS | SPAR+15, SPAR+16, LP+3, LP+4 |
| IBCBK | CARE+116~, CARE+117*, CARE+123 |
| IBN | DFP~, DFP+7, DFP+8 |
| IBPAY | DFP+4~, DFP+8*, DFP+12* |
| IBT | DFP+4~, DFP+8*, DFP+9 |
| IBT0 | DFP+4~, DFP+9*, DFP+10 |
| IBT1 | DFP+4~, DFP+9*, DFP+11, DFP+12 |
| IBVAL | CARE+116~, CARE+123 |
| IBVAL("BDT" | CARE+122* |
| IBVAL("DFN" | CARE+118* |
| IBVAL("EDT" | CARE+122* |
| II | SPAR+9~, SPAR+11*, LP+3* |
| IJ | SPAR+9~, LP+2*, LP+3 |
| IK | SPAR+9~ |
| IM | SPAR+9~, SPAR+18*, LP*, LP+1 |
| IS | SPAR+9~, SPAR+11*, SPAR+13*, SPAR+14, SPAR+15, SPAR+16, LP |
| ISBEG | SPAR+9~ |
| ISCT | SPAR+9~, SPAR+11*, SPAR+12*, SPAR+14, SPAR+15 |
| ISDATA | SPAR+9~ |
| ISDATA( | SPAR+14*, SPAR+15*, SPAR+16, LP+1 |
| ISEND | SPAR+9~ |
| ISPEC | SPAR+9~ |
| ISPEC( | SPAR+16*, LP+1 |
| L | RTRIMCH+1~, RTRIMCH+2*, RTRIMCH+4, RTRIMCH+5 |
| LSDATA | SPAR+9~, SPAR+18*, LP+1*, LP+3, LP+4* |
| NDAYS | SAT+1~, SAT+2*, SAT+3*, SAT+4 |
| NPC | SPAR+9~, LP+1*, LP+2, LP+4 |
| NUMPEC | CLNSTR+8~, CLNSTR+11*, CLNSTR+12 |
| PEC | CLNSTR+8~, CLNSTR+12* |
| R | RTRIMCH+1~, RTRIMCH+3*, RTRIMCH+4, RTRIMCH+5 |
| RCDAT | CARE+36~*, CARE+40* |
| RCDFN | CARE+36~, CARE+37*, CARE+41 |
| RCDSC | TASK~, TASK+6 |
| RCIBRX | CARE+33~, CARE+49*, CARE+50, CARE+69*, CARE+72, CARE+73 |
| RCIBX | CARE+33~, CARE+42*, CARE+43, CARE+44, CARE+54*, CARE+55, CARE+69*, CARE+72*, CARE+73, CARE+96* , CARE+97*, CARE+98, CARE+105*, CARE+106 |
| RCIBY | CARE+33~, CARE+43*, CARE+44*, CARE+45, CARE+72*, CARE+73*, CARE+74, CARE+98*, CARE+99*, CARE+100 , CARE+106*, CARE+107, CARE+109*, CARE+110, IBCHG~, IBCHG+5 |
| RCIBYC | IBCHG+4~, IBCHG+5*, IBCHG+7*, IBCHG+8 |
| RCIBZ | IBCHG+4~, IBCHG+6*, IBCHG+7* |
| RCTMP | CARE+33~, CARE+71!, CARE+74, IBCHG~, IBCHG+5*, IBCHG+6*, IBCHG+7 |
| RCTMP( | IBCHG+5, IBCHG+6, IBCHG+7*! |
| RCTMP(3 | CARE+76 |
| RCTY | CARE+33~, CARE+39*, CARE+41, CARE+107*, CARE+110*, IBCHG~, IBCHG+5, IBCHG+6, IBCHG+7 |
| RCTYPE | CARE+33~, CARE+36*, CARE+40, CARE+42, CARE+45*, CARE+46, CARE+53*, CARE+56*, CARE+57, CARE+69* , CARE+72, CARE+73, CARE+74*, CARE+77, CARE+96*, CARE+97, CARE+100*, CARE+101, CARE+104*, CARE+105 , CARE+107*, CARE+108, CARE+110*, CARE+112, CARE+119*, CARE+122*, CARE+124 |
| >> RCXSEG( | LP+3* |
| RCXTMP | CARE+36~, CARE+41! |
| RCXTMP("DILIST" | CARE+42, CARE+43, CARE+44, CARE+105, CARE+106, CARE+112 |
| RCXVCARE | CARE+32~, CARE+63*, CARE+64, CARE+65, CARE+66 |
| >> RCXVCFL | CARE+46*, CARE+50*, CARE+57*, CARE+60*, CARE+64*, CARE+65*, CARE+66*, CARE+76*, CARE+77*, CARE+82* , CARE+90*, CARE+91*, CARE+92*, CARE+93*, CARE+101*, CARE+112*, CARE+124*, CARE+126* |
| RCXVIEN | CARE~, CARE+37, CARE+40, CARE+49, CARE+54, CARE+60, CARE+63, CARE+69, CARE+71, CARE+81 , CARE+82, CARE+97, CARE+98, CARE+118, CARE+121 |
| RCXVODT | CARE+32~, CARE+119*, CARE+121*, CARE+122 |
| RCXVRATE | CARE+32~, CARE+55*, CARE+56, CARE+57 |
| RDATE | SAT~, SAT+2, SAT+4 |
| REF | SPAR~, SPAR+12, SPAR+14, SPAR+15 |
| RPTF | CARE+32~, CARE+81*, CARE+82, CARE+87, CARE+88, CARE+89, CARE+92 |
| RTASKS | TASK+5~, TASK+11! |
| RTASKS( | TASK+8 |
| RTSK | TASK+5~, TASK+7*, TASK+8*, TASK+9 |
| RTSTRING | CLNSTR+8~, CLNSTR+9*, CLNSTR+11, CLNSTR+12*, CLNSTR+13 |
| STR | RTRIMCH~, RTRIMCH+3, RTRIMCH+4*, RTRIMCH+5 |
| STRING | CLNSTR~, CLNSTR+9 |
| SUBSEP | CLNSTR~, CLNSTR+11, CLNSTR+12 |
| U | DFP+7, DFP+10, DFP+11, DFP+12, DFP+13, CARE+37, CARE+45, CARE+54, CARE+55, CARE+60 , CARE+64, CARE+65, CARE+66, CARE+81, CARE+82, CARE+88, CARE+92, CARE+98, CARE+99, CARE+109 , CARE+118, IBCHG+7 |
| VAL | DFP+4~, DFP+5*, DFP+12*, DFP+13 |
| X | DFP+12*, DATE~, DATE+9, CARE+89~*, CARE+90 |
| >> Y | DATE+12*, DATE+14 |
| ZTKEY | TASK+5~ |
| ZTSK | TASK+5~, TASK+9* |
| ZTSK(2 | TASK+12, TASK+13, TASK+14 |
