RCXVUTIL ;DAOU/ALA - AR Data Extract Utility Program ;29-JUL-03
Source file <RCXVUTIL.m>
| 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 |
