| [613] | 1 | DGPTAEE2 ;ALB/MTC - Austin Edits EAL Report Continued ; 11/28/06 3:19pm
|
|---|
| 2 | ;;5.3;Registration;**8,338,415,565,729**;Aug 13, 1993;Build 59
|
|---|
| 3 | ;
|
|---|
| 4 | H601(REC) ;-- 601 error processing
|
|---|
| 5 | ; INPUT : REC - Record that contains the errors
|
|---|
| 6 | N X,X1
|
|---|
| 7 | S X="PROC SSN ADM-DATE-TIME PROC-DATE-TIME SPC TYPE TRT"
|
|---|
| 8 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 9 | S X=$E(REC,1,4)_" "_$E(REC,5,14)_SP_$E(REC,15,16)_SP_$E(REC,17,18)_SP_$E(REC,19,20)_SP_$E(REC,21,24)_SP_$E(REC,31,32)_SP_$E(REC,33,34)_SP_$E(REC,35,36)_SP_$E(REC,37,40)_" "
|
|---|
| 10 | S X=X_$E(REC,41,42)_" "_$E(REC,43)_" "_$E(REC,44,46)
|
|---|
| 11 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 12 | S X="-----------PROCEDURE CODES-------------"
|
|---|
| 13 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 14 | S X=$E(REC,47,53)_SP_$E(REC,54,60)_SP_$E(REC,61,67)_SP_$E(REC,68,74)_SP_$E(REC,75,81)
|
|---|
| 15 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 16 | D WRER^DGPTAEE
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | H701(REC) ;-- 701 header
|
|---|
| 20 | ; INPUT : REC - Record that contains the errors
|
|---|
| 21 | N X,X1,X2
|
|---|
| 22 | S X="DISP SSN ADM-DATE-TIME DIS-DATE-TIME SPC TYPE OP/RX VA/AUS PLACE RECVNG"
|
|---|
| 23 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 24 | S X=$E(REC,1,4)_" "_$E(REC,5,14)_SP_$E(REC,15,16)_SP_$E(REC,17,18)_SP_$E(REC,19,20)_SP_$E(REC,21,24)_SP_$E(REC,31,32)_SP_$E(REC,33,34)_SP_$E(REC,35,36)_SP_$E(REC,37,40)_SP
|
|---|
| 25 | S X=X_$E(REC,41,42)_" "_$E(REC,43)_" "_$E(REC,44)_" "_$E(REC,45)_" "_$E(REC,46)_" "_$E(REC,47,52)
|
|---|
| 26 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 27 | S X="",$P(X," ",80)=" " F X1=1:1 S I=$P(DGER,",",X1) Q:I="" I $P(I,":")<11 S X2=+$P(I,":",2),X=$E(X,1,X2-1)_"#"_$E(X,X2+1,80)
|
|---|
| 28 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 29 | S X="ASIH XXXX C/P PDXLS ODX MPCR CODE PHY LOC %SC LI SI DRUG A4 A5"
|
|---|
| 30 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 31 | S X=$E(REC,53,55)_" "_$E(REC,56)_" "_$E(REC,57)_" "_$E(REC,58,64)_" "_$E(REC,65)_" "_$E(REC,66,71)_" "_$E(REC,72,73)_" "_$E(REC,74,76)_" "_$E(REC,77)_" "_$E(REC,78)_SP_$E(REC,79,82)_" "_$E(REC,83)_SP_$E(REC,84,87)
|
|---|
| 32 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 33 | S X="",$P(X," ",80)=" " F X1=1:1 S I=$P(DGER,",",X1) Q:I="" I $P(I,":")>10 S X2=+$P(I,":",2),X=$E(X,1,X2-1)_"#"_$E(X,X2+1,80)
|
|---|
| 34 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 35 | S X="SC AO IR EC MST HNC ETH RACE CV"
|
|---|
| 36 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 37 | S X=$E(REC,88)_" "_$E(REC,89)_" "_$E(REC,90)_" "_$E(REC,91)_" "_$E(REC,92)_" "_$E(REC,93)_" "_$E(REC,94,95)_" "_$E(REC,96,107)_" "_$E(REC,108)
|
|---|
| 38 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 39 | D WRER^DGPTAEE
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | H702(REC) ;-- 702 header
|
|---|
| 43 | ; INPUT : REC - Record that contains the errors
|
|---|
| 44 | N X,X1
|
|---|
| 45 | S X="ADM SSN ADM-DATE-TIME DIS-DATE-TIME"
|
|---|
| 46 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 47 | S X=$E(REC,1,4)_" "_$E(REC,5,14)_SP_$E(REC,15,16)_SP_$E(REC,17,18)_SP_$E(REC,19,20)_SP_$E(REC,21,24)_SP_$E(REC,31,32)_SP_$E(REC,33,34)_SP_$E(REC,35,36)_SP_$E(REC,37,40)
|
|---|
| 48 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 49 | S X="----------------------------DIAGNOSTIC CODES----------------------------"
|
|---|
| 50 | S X=$E(REC,41,47)_SP_$E(REC,48,54)_SP_$E(REC,55,61)_SP_$E(REC,62,68)_SP_$E(REC,69,75)_SP_$E(REC,76,82)_SP_$E(REC,83,89)_SP_$E(REC,90,96)_SP_$E(REC,97,103)
|
|---|
| 51 | S VALMCNT=VALMCNT+1,^TMP("AD",$J,VALMCNT,0)=X
|
|---|
| 52 | D WRER^DGPTAEE
|
|---|
| 53 | Q
|
|---|
| 54 | ;
|
|---|
