ACGSDCI2 ;IHS/OIRM/DSD/THL,AEF - ROUTINE CALLED TO CONVERT IHSCIS TO DCIS CODES; [ 03/27/2000 2:22 PM ]
;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
;;
;;ROUTINE CALLED TO CONVERT IHSCIS TO DCIS CODES
9 ;EP;CONVERT IHSCIS 1 TO DCIS 9
I X="L" S X="A" Q
I X="S" S X="B" Q
I "AD"[X S X="C" Q
I X="P" S X="D" Q
I X="I" S X="E" Q
I X="G" S X="G" Q
I "CMR"[X S X="H" Q
I X="T" S X="J" Q
I X="U" S X="K" Q
I X="Q" S X="Q" Q
Q
24 ;EP;CONVERT IHSCIS 15 TO DCIS 24
I X=13!(X=14) S X="A" Q
I X=10 S X="J" Q
I X=11 S X="K" Q
I X=12 S X="L" Q
I X=24 S X="R" Q
I X=20 S X="S" Q
I X=21 S X="T" Q
I X=23 S X="U" Q
I X=22 S X="V" Q
I X=30 S X="Y" Q
I X=31 S X="Z" Q
Q
27 ;EP;CONVERT IHSCIS 18 TO DCIS 27
I X=70 S X="A" Q
I X=71 S X="B" Q
I X=72 S X="C" Q
I X=73 S X="D" Q
I X=74 S X="E" Q
I X=75 S X="F" Q
I X=76 S X="G" Q
I X=77 S X="H" Q
I X=78 S X="J" Q
I X=79 S X="K" Q
I X=80 S X="L" Q
I X=81 S X="M" Q
I X=82 S X="N" Q
I X=83 S X="P" Q
I X=84 S X="Q" Q
Q
30 ;EP;TO CONVERT IHSCIS 13 TO DCIS 30
I "A1A2"[X S X="A" Q
I X="A3" S X="B" Q
I "B1B2"[X S X="C" Q
I X="C1" S X="E"
I X="C2" S X="F" Q
I "C3C4"[X S X="G" Q
I X="C5" S X="D" Q
I X="D1" S X="H" Q
I X="D2" S X="J" Q
I "D3D4"[X S X="K" Q
I X="E1"[X S X="L"
I X="E2"[X S X="M"
Q
32 ;EP;TO CONVERT IHSCIS 19 TO DCIS 32
I X=59!(X=60) S X="B" Q
I X=52!(X=55) S X="C" Q
I X=50!(X=53) S X="D" Q
I X=51!(X=54) S X="E" Q
I X=57 S X="F" Q
I X=58!(X=61)!(X=62) S X="G" Q
I X=56!(X=63) S X="H" Q
Q
ACGSDCI2 ;IHS/OIRM/DSD/THL,AEF - ROUTINE CALLED TO CONVERT IHSCIS TO DCIS CODES; [ 03/27/2000 2:22 PM ]
+1 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
+2 ;;
+3 ;;ROUTINE CALLED TO CONVERT IHSCIS TO DCIS CODES
9 ;EP;CONVERT IHSCIS 1 TO DCIS 9
+1 IF X="L"
SET X="A"
QUIT
+2 IF X="S"
SET X="B"
QUIT
+3 IF "AD"[X
SET X="C"
QUIT
+4 IF X="P"
SET X="D"
QUIT
+5 IF X="I"
SET X="E"
QUIT
+6 IF X="G"
SET X="G"
QUIT
+7 IF "CMR"[X
SET X="H"
QUIT
+8 IF X="T"
SET X="J"
QUIT
+9 IF X="U"
SET X="K"
QUIT
+10 IF X="Q"
SET X="Q"
QUIT
+11 QUIT
24 ;EP;CONVERT IHSCIS 15 TO DCIS 24
+1 IF X=13!(X=14)
SET X="A"
QUIT
+2 IF X=10
SET X="J"
QUIT
+3 IF X=11
SET X="K"
QUIT
+4 IF X=12
SET X="L"
QUIT
+5 IF X=24
SET X="R"
QUIT
+6 IF X=20
SET X="S"
QUIT
+7 IF X=21
SET X="T"
QUIT
+8 IF X=23
SET X="U"
QUIT
+9 IF X=22
SET X="V"
QUIT
+10 IF X=30
SET X="Y"
QUIT
+11 IF X=31
SET X="Z"
QUIT
+12 QUIT
27 ;EP;CONVERT IHSCIS 18 TO DCIS 27
+1 IF X=70
SET X="A"
QUIT
+2 IF X=71
SET X="B"
QUIT
+3 IF X=72
SET X="C"
QUIT
+4 IF X=73
SET X="D"
QUIT
+5 IF X=74
SET X="E"
QUIT
+6 IF X=75
SET X="F"
QUIT
+7 IF X=76
SET X="G"
QUIT
+8 IF X=77
SET X="H"
QUIT
+9 IF X=78
SET X="J"
QUIT
+10 IF X=79
SET X="K"
QUIT
+11 IF X=80
SET X="L"
QUIT
+12 IF X=81
SET X="M"
QUIT
+13 IF X=82
SET X="N"
QUIT
+14 IF X=83
SET X="P"
QUIT
+15 IF X=84
SET X="Q"
QUIT
+16 QUIT
30 ;EP;TO CONVERT IHSCIS 13 TO DCIS 30
+1 IF "A1A2"[X
SET X="A"
QUIT
+2 IF X="A3"
SET X="B"
QUIT
+3 IF "B1B2"[X
SET X="C"
QUIT
+4 IF X="C1"
SET X="E"
+5 IF X="C2"
SET X="F"
QUIT
+6 IF "C3C4"[X
SET X="G"
QUIT
+7 IF X="C5"
SET X="D"
QUIT
+8 IF X="D1"
SET X="H"
QUIT
+9 IF X="D2"
SET X="J"
QUIT
+10 IF "D3D4"[X
SET X="K"
QUIT
+11 IF X="E1"[X
SET X="L"
+12 IF X="E2"[X
SET X="M"
+13 QUIT
32 ;EP;TO CONVERT IHSCIS 19 TO DCIS 32
+1 IF X=59!(X=60)
SET X="B"
QUIT
+2 IF X=52!(X=55)
SET X="C"
QUIT
+3 IF X=50!(X=53)
SET X="D"
QUIT
+4 IF X=51!(X=54)
SET X="E"
QUIT
+5 IF X=57
SET X="F"
QUIT
+6 IF X=58!(X=61)!(X=62)
SET X="G"
QUIT
+7 IF X=56!(X=63)
SET X="H"
QUIT
+8 QUIT
