SCMSVPR1 ;ALB/ESD HL7 PR1 Segment Validation ;06/24/99
Source file <SCMSVPR1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(PR1ARRY,HLQ,HLFS,HLECH,VALERR,ENCDT) | ;
; Entry point to return the HL7 PR1 (Procedure) validation segment |
|
| ENQ | ||
| PROCVAL(PR1SEG) | ; -Validate procedure fields
|
|
| SETUP(MODDATA,PROC) | ;
|
|
| 0101 | ;;0035;HL7 SEGMENT NAME
|
|
| 0201 | ;;6250;HL7 SEQUENTIAL NUMBER (SET ID)
|
|
| 0401 | ;;6050;PROCEDURE CODE (CPT)
|
|
| 0403 | ;;6000;PROCEDURE CODING METHOD
|
|
| 1701 | ;;6300;PROCEDURE MODIFIER AND PROC+MOD COMBINATION
|
|
| 1703 | ;;6370;PROCEDURE MODIFIER CODING METHOD
|
| Name | Line Occurrences |
|---|---|
| PROCVAL | EN+39 |
| SETUP | PROCVAL+27, PROCVAL+33 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| 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 |
