SCMSVUT0 ;ALB/ESD HL7 Segment Validation Utilities ; 7/8/04 5:06pm
Source file <SCMSVUT0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CONVERT(SEG,HLFS,HLQ) | ; Convert HLQ ("") to null in segment
; Input: SEG = HL7 segment ; HLFS = HL7 field separator ; HLQ = HL7 "" character |
|
SETID(SDOE,SDDELOE) | ; Set PCE Unique Visit Number in field #.2 of #409.68
; Input: SDOE = IEN of Outpatient Encounter (#409.68) file ; SDDELOE = IEN of Deleted Outpatient Encounter (#409.74) file |
|
GETID | ;Get unique visit ID
|
|
SETPRTY(SDOE) | ;Set outpatient provider type in field #.06 of V PROVIDER
; Input: SDOE = IEN of Outpatient Encounter (#409.68) file |
|
SETMAR(PIDSEG,HLQ,HLFS,HLECH) | ; Set marital status prior to PID segment validation
|
|
SETPOW(DFN,ZPDSEG,HLQ,HLFS) | ||
SETPOWQ | ||
SETVSI(DFN,ZSPSEG,HLQ,HLFS) | ;Set Vietnam Service Indicated field prior to ZSP segment validation
|
|
SETVSIQ | ||
HL7SEGNM(SEG,DATA) | ;checks the validity of the HL7 segment name passed in.
|
|
EVTTYP(SEG,DATA) | ;checks the event type of the segment passed in.
|
|
EVTDTTM(DATA) | ;Checks the date and time to ensure it is correct.
|
|
VALIDATE(SEG,DATA,ERRCOD,VALERR,CTR) | ;
|
|
DFN(DATA) | ;
|
|
PATNM(DATA) | ;
|
|
DOB(DATA,ENCDT) | ;
|
|
SEX(DATA) | ;
|
|
RACE(DATA) | ;
|
|
STR1(DATA) | ;
|
|
STR2(DATA) | ;
|
|
CITY(DATA) | ;
|
|
STATE(DATA) | ;
|
|
ZIP(DATA) | ;
|
|
COUNTY(DATA,STATE) | ;
|
|
MARITAL(DATA) | ;
|
|
REL(DATA) | ;
|
|
SSN(DATA,NOPCHK,NULLOK) | ; SD*5.3*345 added optional parameter NULLOK
|
|
INCR | ;increases the counter
|
|
REMOVE(SEG,ERR,VALERR,CNT) | ;
|
|
DECR(CNT) | ;
|