SCMSVPID ;ALB/ESD HL7 PID Segment Validation ; 23 Oct 98 3:36 PM
Source file <SCMSVPID.m>
| Package | Total | Call Graph | 
|---|---|---|
| Scheduling | 2 | ($$CONVERT,VALIDATE)^SCMSVUT0 (SEGPRSE,SEQPRSE)^SCMSVUT5 | 
| Health Level Seven | 1 | ($$FMDATE,$$FMNAME)^HLFNC | 
| Registration | 1 | $$FOR^DGADDUTL | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ADDRCHK(SEG,VALERR,CNT) | ;- Validity check for address (seq 11) | |
| ERR | ;;Invalid or missing patient ID data for encounter (HL7 PID data segment) | |
| 22 | ;;2380;ETHNICITY | |
| 0 | ;;0035;HL7 SEGMENT NAME | |
| 3 | ;;2030;PATIENT ID (INTERNAL) | |
| 1112 | ;;2280;ADDRESS START/STOP DATE | |
| 5 | ;;2000;NAME | |
| 7 | ;;2050;DATE OF BIRTH | |
| 8 | ;;2100;SEX | |
| ENQ | ||
| 10 | ;;2150;RACE | |
| EN(PIDSEG,HLQ,HLFS,HLECH,VALERR,ENCDT,EVNTHL7) | ; ; Entry point to return the HL7 PID (Patient ID) validation segment | |
| 17 | ;;2330;RELIGION | |
| 16 | ;;2300;MARITAL STATUS | |
| 19 | ;;2360;SSN | |
| 1107 | ;;2270;ADDRESS TYPE | |
| 1104 | ;;2230;STATE | |
| 1105 | ;;2240;ZIP CODE | |
| 1102 | ;;2210;STREET ADDRESS 2 | |
| 1103 | ;;2220;CITY | |
| 1101 | ;;2200;STREET ADDRESS 1 | |
| 1109 | ;;2250;COUNTY CODE | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DIC(5 - [#5] | ADDRCHK+32 | 
| ^TMP("SCMSVPID" | EN+19, EN+47, ADDRCHK+5 | 
| Name | Line Occurrences | 
|---|---|
| 0 | EN+40 | 
| ADDRCHK | EN+44 | 
| ENQ | EN+32 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| CNT | EN+31, EN+39*, EN+40, EN+44, EN+54, EN+61, ADDRCHK~, ADDRCHK+35 | 
| CODE | ADDRCHK+3~, ADDRCHK+33*, ADDRCHK+34*, ADDRCHK+35 | 
| COMP | EN+46~, ADDRCHK+3~ | 
| DATA | EN+53*, EN+54, EN+56*, EN+57*, EN+59*, EN+60*, EN+61, ADDRCHK+3~, ADDRCHK+22*, ADDRCHK+23 , ADDRCHK+24, ADDRCHK+30*, ADDRCHK+31, ADDRCHK+35 | 
| ENCDT | EN~ | 
| EVNTHL7 | EN~, EN+28 | 
| FORIGN | ADDRCHK+3~, ADDRCHK+14*, ADDRCHK+28 | 
| HLECH | EN~, EN+24*, EN+25*, EN+49, EN+53, EN+54, EN+57, ADDRCHK+7, ADDRCHK+12, ADDRCHK+14 , ADDRCHK+22, ADDRCHK+23, ADDRCHK+30, ADDRCHK+31 | 
| HLFS | EN~, EN+34 | 
| HLQ | EN~, EN+23*, EN+53, EN+57, ADDRCHK+12, ADDRCHK+14, ADDRCHK+22, ADDRCHK+30 | 
| I | EN+18~, EN+28* | 
| MSG | EN+18~, EN+21*, ENQ+1 | 
| OFFSET | ADDRCHK+3~, ADDRCHK+18*, ADDRCHK+34 | 
| PARSEG | EN+18~, EN+19*, EN+20, EN+34, EN+40, EN+49, EN+56, ENQ, ADDRCHK+7 | 
| PARSEQ | EN+46~, EN+47*, EN+48, EN+49, EN+51, EN+52, EN+53, EN+55, ADDRCHK+3~, ADDRCHK+5* , ADDRCHK+6, ADDRCHK+7, ADDRCHK+10, ADDRCHK+12, ADDRCHK+14, ADDRCHK+22, ADDRCHK+30, ADDRCHK+32, ADDRCHK+36 | 
| PIDSEG | EN~, EN+31 | 
| REP | EN+46~, EN+50*, EN+51*, EN+52, EN+53, ADDRCHK+3~, ADDRCHK+9*, ADDRCHK+10*, ADDRCHK+12, ADDRCHK+14 , ADDRCHK+22, ADDRCHK+30, ADDRCHK+32 | 
| SD | EN+18~, EN+28! | 
| SD( | EN+27*, EN+28*, EN+43 | 
| SEG | EN+18~, EN+30*, EN+31, EN+32, EN+40, EN+44, EN+54, EN+61, ENQ+1, ADDRCHK~ , ADDRCHK+35 | 
| SEQ | EN+18~, EN+27*, EN+28, EN+42*, EN+43*, EN+44, EN+45, EN+49, EN+52, EN+56 , EN+59, EN+60, ADDRCHK+21*, ADDRCHK+22, ADDRCHK+23, ADDRCHK+27*, ADDRCHK+28, ADDRCHK+29, ADDRCHK+30, ADDRCHK+31 , ADDRCHK+32, ADDRCHK+33 | 
| SKIP | ADDRCHK+3~, ADDRCHK+20*, ADDRCHK+21, ADDRCHK+23*, ADDRCHK+24* | 
| STATE | ADDRCHK+3~, ADDRCHK+26*, ADDRCHK+32* | 
| TYPE | ADDRCHK+3~, ADDRCHK+12*, ADDRCHK+15, ADDRCHK+16*, ADDRCHK+18, ADDRCHK+20, ADDRCHK+29 | 
| VALERR | EN~, EN+31, EN+32, EN+40, EN+44, EN+54, EN+61, ENQ+1, ADDRCHK~, ADDRCHK+35 | 
| Name | Field # of Occurrence | 
|---|---|
| $T(0 | EN+40 | 
| $T(@(1) | EN+54, EN+61, ADDRCHK+34 |