SCMSVUT0 ;ALB/ESD HL7 Segment Validation Utilities ; 7/8/04 5:06pm
Source file <SCMSVUT0.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 2 | PCLASS^PXAPIOE $$IEN2VID^VSIT |
Scheduling | 2 | (SEGPRSE,SEQPRSE)^SCMSVUT5 GETPRV^SDOE |
Kernel | 1 | $$GET^XUA4A72 |
Registration | 1 | MAKEIT^VAFHLU |
VA Fileman | 1 | ^%DT |
Name | Comments | DBIA/ICR reference |
---|---|---|
SETVSI(DFN,ZSPSEG,HLQ,HLFS) | ;Set Vietnam Service Indicated field prior to ZSP segment validation
|
|
SETPRTY(SDOE) | ;Set outpatient provider type in field #.06 of V PROVIDER
; Input: SDOE = IEN of Outpatient Encounter (#409.68) file |
|
RACE(DATA) | ;
|
|
EVTTYP(SEG,DATA) | ;checks the event type of the segment passed in.
|
|
STR2(DATA) | ;
|
|
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 |
|
SSN(DATA,NOPCHK,NULLOK) | ; SD*5.3*345 added optional parameter NULLOK
|
|
INCR | ;increases the counter
|
|
DOB(DATA,ENCDT) | ;
|
|
SETMAR(PIDSEG,HLQ,HLFS,HLECH) | ; Set marital status prior to PID segment validation
|
|
SETPOW(DFN,ZPDSEG,HLQ,HLFS) | ||
CITY(DATA) | ;
|
|
EVTDTTM(DATA) | ;Checks the date and time to ensure it is correct.
|
|
REMOVE(SEG,ERR,VALERR,CNT) | ;
|
|
COUNTY(DATA,STATE) | ;
|
|
REL(DATA) | ;
|
|
SETPOWQ | ||
VALIDATE(SEG,DATA,ERRCOD,VALERR,CTR) | ;
|
|
STATE(DATA) | ;
|
|
SETVSIQ | ||
STR1(DATA) | ;
|
|
DECR(CNT) | ;
|
|
SEX(DATA) | ;
|
|
GETID | ;Get unique visit ID
|
|
DFN(DATA) | ;
|
|
CONVERT(SEG,HLFS,HLQ) | ; Convert HLQ ("") to null in segment
; Input: SEG = HL7 segment ; HLFS = HL7 field separator ; HLQ = HL7 "" character |
|
HL7SEGNM(SEG,DATA) | ;checks the validity of the HL7 segment name passed in.
|
|
MARITAL(DATA) | ;
|
|
PATNM(DATA) | ;
|
|
ZIP(DATA) | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(13 - [#13] | REL+5 |
^DIC(5 - [#5] | STATE+5, COUNTY+6 |
^DPT - [#2] | SETPOW+22, SETPOW+23, SETVSI+13, SETVSI+14 |
^SCE - [#409.68] | SETPRTY+15 |
^SCE("APAR" | SETID+25 |
^SD(404.91 - [#404.91] | EVTDTTM+8, EVTDTTM+9 |
^SD(409.76 - [#409.76] | VALIDATE+3, VALIDATE+5 |
Name | Line Occurrences |
---|---|
GETID | SETID+22, SETID+25 |
INCR | VALIDATE+4, VALIDATE+6, VALIDATE+8 |
SETPOWQ | SETPOW+14 |
SETVSIQ | SETVSI+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | EVTDTTM+7~, EVTDTTM+11*, DOB+4~, DOB+8* |
%DT(0 | EVTDTTM+11*, DOB+8* |
CNT | REMOVE~, REMOVE+7, DECR~, DECR+1* |
CTR | VALIDATE~, VALIDATE+4, VALIDATE+6, VALIDATE+8, INCR+1* |
DATA | HL7SEGNM~, HL7SEGNM+7, HL7SEGNM+8, EVTTYP~, EVTTYP+7, EVTTYP+8, EVTDTTM~, EVTDTTM+6, EVTDTTM+11, VALIDATE~ , DFN~, DFN+3, DFN+4, DFN+5, PATNM~, PATNM+3, PATNM+4, PATNM+5, PATNM+6, DOB~ , DOB+5, DOB+7, DOB+8, SEX~, SEX+3, SEX+4, RACE~, RACE+4, RACE+5, RACE+6 , RACE+7, STR1~, STR1+4, STR1+5, STR1+6, STR1+7, STR1+8, STR2~, STR2+2, CITY~ , CITY+3, CITY+4, STATE~, STATE+3, STATE+4, STATE+5, ZIP~, ZIP+3, ZIP+4, ZIP+5 , COUNTY~, COUNTY+4, COUNTY+6, MARITAL~, MARITAL+3, MARITAL+4, REL~, REL+3, REL+4, REL+5 , SSN~, SSN+7, SSN+8, SSN+10 |
DFN | SETPOW~, SETPOW+13*, SETPOW+14, SETPOW+22, SETPOW+23, SETVSI~, SETVSI+11*, SETVSI+12, SETVSI+13, SETVSI+14 |
ENCDT | DOB~, DOB+6, DOB+8 |
ERR | REMOVE~, REMOVE+7 |
ERRCHK | VALIDATE+2~, VALIDATE+5*, VALIDATE+6, VALIDATE+7 |
ERRCOD | VALIDATE~, VALIDATE+3, VALIDATE+4, VALIDATE+6, VALIDATE+8 |
ERRIEN | VALIDATE+2~, VALIDATE+3*, VALIDATE+4, VALIDATE+5 |
HLECH | SETMAR~, SETMAR+19, SETMAR+26, SETMAR+27, SETMAR+28 |
HLFS | CONVERT~, CONVERT+9, SETMAR~, SETMAR+14, SETPOW~, SETPOW+18, SETVSI~, SETVSI+13, SETVSI+14 |
HLQ | CONVERT~, CONVERT+9, SETMAR~, SETMAR+18, SETMAR+22, SETPOW~, SETPOW+22, SETPOW+23, SETVSI~, SETVSI+13 , SETVSI+14 |
I | CONVERT+8~, CONVERT+9* |
LP | STR1+3~, STR1+8*, STR1+9, REMOVE+6~, REMOVE+7* |
MTHD | RACE+3~, RACE+7*, RACE+9 |
NOPCHK | SSN~, SSN+12 |
NULLOK | SSN~, SSN+7 |
PIDSEG | SETMAR~, SETMAR+14, SETMAR+25!, SETMAR+32, SETMAR+33! |
PSD | SSN+9~, SSN+10*, SSN+12 |
REBLD | SETMAR+12~, SETMAR+16*, SETMAR+18*, SETMAR+33, SETPOW+16~, SETPOW+20*, SETPOW+22*, SETPOW+23*, SETPOW+25 |
RES | VALIDATE+2~, VALIDATE+8 |
SDARRY | SETID+8~, SETID+14*, SETID+17*, SETID+20, SETID+25*, GETID+1* |
SDDELOE | SETID~, SETID+11*, SETID+17 |
SDOE | SETID~, SETID+10*, SETID+14, SETID+25, SETPRTY~, SETPRTY+7*, SETPRTY+10, SETPRTY+15 |
SDOEC | SETID+8~, SETID+9*, SETID+25* |
SDPRTYP | SETPRTY+6~, SETPRTY+12*, SETPRTY+15*, SETPRTY+16 |
SDPRVS | SETPRTY+6~ |
SDPRVS( | SETPRTY+11, SETPRTY+15 |
SDVPRV | SETPRTY+6~, SETPRTY+7*, SETPRTY+11*, SETPRTY+15, SETPRTY+16 |
SEG | CONVERT~, CONVERT+9*, CONVERT+10, HL7SEGNM~, HL7SEGNM+7, HL7SEGNM+8, EVTTYP~, EVTTYP+7, EVTTYP+8, VALIDATE~ , VALIDATE+4, VALIDATE+6, VALIDATE+8, REMOVE~, REMOVE+7 |
SSN | SSN+9~, SSN+10*, SSN+11, SSN+13 |
STATE | COUNTY~, COUNTY+5, COUNTY+6 |
STRTDT | EVTDTTM+7~, EVTDTTM+8*, EVTDTTM+9*, EVTDTTM+10, EVTDTTM+11 |
TMPARR | SETMAR+12~, SETMAR+32, SETMAR+33, SETPOW+16~, SETPOW+25 |
TMPARR(0 | SETMAR+25!, SETMAR+33!, SETPOW+25! |
TMPARR(11 | SETMAR+28, SETMAR+31!* |
TMPARR(16 | SETMAR+17, SETMAR+18* |
TMPARR(17 | SETMAR+21, SETMAR+22*, SETPOW+21, SETPOW+22*, SETPOW+23* |
TMPARR(3 | SETMAR+26, SETMAR+29!* |
TMPARR(5 | SETMAR+27, SETMAR+30!* |
TMPARR11 | SETMAR+12~, SETMAR+31 |
TMPARR3 | SETMAR+12~, SETMAR+29 |
TMPARR5 | SETMAR+12~, SETMAR+30 |
U | EVTDTTM+9 |
VAL | RACE+3~, RACE+6*, RACE+8 |
VALERR | VALIDATE~, VALIDATE+4, VALIDATE+6, VALIDATE+8, REMOVE~, REMOVE+7 |
VAR | STR1+3~, STR1+8* |
X | SETMAR+12~, SETMAR+17*, SETMAR+18, SETMAR+21*, SETMAR+22, SETPOW+16~, SETPOW+21*, SETPOW+22, EVTDTTM+7~, EVTDTTM+11* , DOB+4~, DOB+8* |
Y | EVTDTTM+7~, EVTDTTM+13, DOB+4~, DOB+10 |
ZPDSEG | SETPOW~, SETPOW+14, SETPOW+18, SETPOW+25! |
ZSPSEG | SETVSI~, SETVSI+11*, SETVSI+12, SETVSI+13*, SETVSI+14*, SETVSIQ |