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 |