| 1 | SCMSVZIR ;ALB/ESD HL7 ZIR Segment Validation ;05/08/95
|
|---|
| 2 | ;;5.3;Scheduling;**44,55,66**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | EN(ZIRSEG,HLQ,HLFS,VALERR) ;
|
|---|
| 6 | ; Entry point to return the HL7 ZIR (Income Relation) validation segment
|
|---|
| 7 | ;
|
|---|
| 8 | ; Input: ZIRSEG - ZIR Segment
|
|---|
| 9 | ; HLQ - HL7 null variable
|
|---|
| 10 | ; HLFS - HL7 field separator
|
|---|
| 11 | ; VALERR - Array to put the errors in
|
|---|
| 12 | ;
|
|---|
| 13 | ; Output: 1 if ZIR passed validity check
|
|---|
| 14 | ; Error message if ZIR failed validity check in form of:
|
|---|
| 15 | ; -1^"xxx failed validity check" (xxx=element in ZIR segment)
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | N I,MSG,X,SEG,CNT,DATA
|
|---|
| 19 | S MSG="-1^Element in ZIR segment failed validity check",SEG="ZIR",CNT=1
|
|---|
| 20 | S ZIRSEG=$G(ZIRSEG)
|
|---|
| 21 | D VALIDATE^SCMSVUT0(SEG,ZIRSEG,"0011",VALERR,.CNT)
|
|---|
| 22 | I $D(@VALERR@(SEG)) G ENQ
|
|---|
| 23 | ;
|
|---|
| 24 | ;- Convert HLQ to null
|
|---|
| 25 | S ZIRSEG=$$CONVERT^SCMSVUT0(ZIRSEG,HLFS,HLQ)
|
|---|
| 26 | ;
|
|---|
| 27 | ;- Validate data elements
|
|---|
| 28 | N DATA1
|
|---|
| 29 | F I=1,12,13,14,90 D I I=14,$G(@VALERR@(SEG,CNT-1))=8100 Q
|
|---|
| 30 | . S DATA=$P(ZIRSEG,HLFS,I)
|
|---|
| 31 | . D VALIDATE^SCMSVUT0(SEG,$S(I=90:DATA1,1:DATA),$P($T(@(I)),";",3),VALERR,.CNT)
|
|---|
| 32 | . I I=12 S $P(DATA1,U,1)=DATA
|
|---|
| 33 | . I I=14 S $P(DATA1,U,2)=DATA
|
|---|
| 34 | ;
|
|---|
| 35 | ENQ Q $S($D(@VALERR@(SEG)):MSG,1:1)
|
|---|
| 36 | ;
|
|---|
| 37 | ;
|
|---|
| 38 | ERR ;;Invalid or missing patient income data for encounter (HL7 ZIR segment)
|
|---|
| 39 | ;
|
|---|
| 40 | ;
|
|---|
| 41 | ;- ZIR data elements validated
|
|---|
| 42 | ;
|
|---|
| 43 | 1 ;;0035;HL7 SEGMENT NAME
|
|---|
| 44 | 12 ;;8050;NUMBER OF DEPENDENTS
|
|---|
| 45 | 13 ;;8150;PATIENT INCOME
|
|---|
| 46 | 14 ;;8100;MEANS TEST INDICATOR
|
|---|
| 47 | 90 ;;8070;Number of dependents inconstitentwith means test
|
|---|
