Routine: SCMSVPR1

Package	Total	Call Graph
Scheduling	1	($$CONVERT,VALIDATE)^SCMSVUT0

Package	Total	Caller Graph
Scheduling	1	SCDXMSG1

Entry Points

Name	Comments	DBIA/ICR reference
PROCVAL(PR1SEG)	; -Validate procedure fields
0403	;;6000;PROCEDURE CODING METHOD
1701	;;6300;PROCEDURE MODIFIER AND PROC+MOD COMBINATION
SETUP(MODDATA,PROC)	;
0101	;;0035;HL7 SEGMENT NAME
0401	;;6050;PROCEDURE CODE (CPT)
ENQ
1703	;;6370;PROCEDURE MODIFIER CODING METHOD
EN(PR1ARRY,HLQ,HLFS,HLECH,VALERR,ENCDT)	; ; Entry point to return the HL7 PR1 (Procedure) validation segment
0201	;;6250;HL7 SEQUENTIAL NUMBER (SET ID)

Name	Field # of Occurrence
$$CONVERT^SCMSVUT0	EN+35
VALIDATE^SCMSVUT0	EN+33, EN+42, PROCVAL+9, SETUP+34

Name	Line Occurrences
PROCVAL	EN+39
SETUP	PROCVAL+27, PROCVAL+33

Name	Field # of Occurrence
CMPSEP	PROCVAL+3~, PROCVAL+4*, PROCVAL+8, PROCVAL+24
CNT	EN+17~, EN+18*, EN+32, EN+33, EN+42, PROCVAL+9, SETUP+34
CTR	PROCVAL+30~, PROCVAL+31, PROCVAL+32, PROCVAL+34
DATA	PROCVAL+3~, PROCVAL+7, PROCVAL+8, PROCVAL+9, SETUP+21~, SETUP+30, SETUP+33, SETUP+34
ENCDT	EN~
HLECH	EN~, PROCVAL+4, PROCVAL+5
HLFS	EN~, EN+35, PROCVAL+7, PROCVAL+24, PROCVAL+25
HLQ	EN~, EN+35
I	EN+17~, EN+18, EN+21, EN+22, EN+23, EN+31
J	EN+17~, EN+23*, EN+31
MCOMPNUM	SETUP+21~, SETUP+29*, SETUP+30, SETUP+33
MODDATA	PROCVAL+23~, PROCVAL+25, PROCVAL+26, PROCVAL+27, PROCVAL+30~, PROCVAL+31, PROCVAL+32, PROCVAL+33, SETUP~, SETUP+24 , SETUP+27
MODDATA1	SETUP+21~, SETUP+27*, SETUP+30
MSG	EN+17~, EN+18*, ENQ
OLD	EN+17~, EN+32*, EN+34
OUT	EN+17~, EN+18*
PR1ARRY	EN~, EN+19, EN+20, EN+21, EN+23, EN+31
PR1ASEG	EN+17~
PR1SEG	EN+17~, EN+31, EN+33, EN+35, EN+39, PROCVAL~, PROCVAL+7, PROCVAL+24, PROCVAL+25
PR1SEG(	PROCVAL+32
PROC	PROCVAL+23~, PROCVAL+24*, PROCVAL+27, PROCVAL+33, SETUP~, SETUP+33
PRTYPE	EN+17~
REPCTR	SETUP+21~, SETUP+22, SETUP+27, SETUP+36
REPSEP	PROCVAL+3~, PROCVAL+5*, SETUP+24, SETUP+27
SCSETID	EN+17~, EN+18*
SEG	EN+17~, EN+18*, EN+33, EN+34, EN+42, ENQ, PROCVAL+9, SETUP+34
VALERR	EN~, EN+33, EN+34, EN+42, ENQ, PROCVAL+9, SETUP+34
VALID	EN+17~, EN+42
VALID(	EN+22*
X	EN+17~, EN+18*
Z	PROCVAL+3~, PROCVAL+6, PROCVAL+7, PROCVAL+8, SETUP+28, SETUP+29

Name	Field # of Occurrence
$T(@(1)	PROCVAL+9, SETUP+34