ACGSDCI2.m

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