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 |