Routine: SCMSVPID

Information

SCMSVPID ;ALB/ESD HL7 PID Segment Validation ; 23 Oct 98 3:36 PM

Source Information

Source file <SCMSVPID.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Scheduling	2	($$CONVERT,VALIDATE)^SCMSVUT0 (SEGPRSE,SEQPRSE)^SCMSVUT5
Health Level Seven	1	($$FMDATE,$$FMNAME)^HLFNC
Registration	1	$$FOR^DGADDUTL

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SCDXMSG1

Entry Points

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

External References

Name	Field # of Occurrence
$$FOR^DGADDUTL	ADDRCHK+14
$$FMDATE^HLFNC	EN+60
$$FMNAME^HLFNC	EN+59
$$CONVERT^SCMSVUT0	EN+53, EN+57, ADDRCHK+12, ADDRCHK+14, ADDRCHK+22, ADDRCHK+30
VALIDATE^SCMSVUT0	EN+31, EN+40, EN+54, EN+61, ADDRCHK+35
SEGPRSE^SCMSVUT5	EN+34
SEQPRSE^SCMSVUT5	EN+49, ADDRCHK+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	ADDRCHK+32
^TMP("SCMSVPID"	EN+19, EN+47, ADDRCHK+5

Label References

Name	Line Occurrences
0	EN+40
ADDRCHK	EN+44
ENQ	EN+32

Local Variables

Legend:

>>	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

Marked Items

Name	Field # of Occurrence
$T(0	EN+40
$T(@(1)	EN+54, EN+61, ADDRCHK+34

Customize PDF page

Package: Scheduling

Routine: SCMSVPID

Call Graph Total: 4

Caller Graph Total: 1