ABMDF29X ; IHS/ASDST/DMJ - ADA-2006 FORM ;
;;2.6;IHS 3P BILLING SYSTEM;**3,8,9,11,13,21**;NOV 12, 2009;Build 379
;
; IHS/SD/SDR - v2.5 p12 - IM25568 - Corrected alignment issues
; IHS/SD/PMT - abm*2.6*3 - HEAT8604 - Corrected report to start at line 1, not line 2
; IHS/SD/SDR - abm*2.6*3 - HEAT12620 - Moved last lin of box 48 one space left
;IHS/SD/SDR - 2.6*13 - VMBP - RQMT_95 - Added code to populated remarks box 35 (line 41)
;IHS/SD/SDR - 2.6*21 - HEAT133954 - Made change for <UNDEF>LOOP+19^ABMDF29X. Test print erred because it
; expected ABMP("ITYPE") to be defined.
;IHS/SD/SDR - 2.6*21 - HEAT205579 - Made T1015 print first for ARBOR HEALTH PLAN
;************************************************************************************
;
MARG ;Set left and top margins
S U="^",(ABM("LM"),ABM("TM"),ABM("LN"))=0
I $D(^ABMDEXP(29,0)) S ABM("TM")=$P(^(0),U,3),ABM("LM")=$P(^(0),U,2)
W $$EN^ABMVDF("IOF")
I +ABM("TM") F ABM("I")=1:1:ABM("TM") W !
;
LOOP ;
;Loop thru line number array
S ABM("LN")=$O(ABMF(ABM("LN"))) I +ABM("LN")=0!(ABM("LN")>63) G XIT
;
;Set to correct format line
S ABM("FL")=ABM("LN")
;I ABM("LN")>27,ABM("LN")<37 S ABM("FL")=27 ;Lines 27 thru 36 are same HEAT8604
I ABM("LN")>25,ABM("LN")<37 S ABM("FL")=26 ;Lines 27 thru 36 are same
;I ABM("LN")>39,ABM("LN")<44 S ABM("FL")=40 ;Lines 40 thru 42 are same HEAT8604
;I ABM("LN")>38,ABM("LN")<43 S ABM("FL")=40 ;Lines 39 thru 42 are same ;abm*2.6*9 IHS/SD/AML 2/9/2012 HEAT55261
I ABM("LN")>38,ABM("LN")<43 S ABM("FL")=39 ;Lines 39 thru 42 are same ;abm*2.6*9 IHS/SD/AML 2/9/2012 HEAT55261
;
;Set tab & format variables
S ABM("TABS")=$P($T(@ABM("FL")),";;",2)
S ABM("FMAT")=$P($T(@ABM("FL")),";;",3)
;
;start new code abm*2.6*8 HEAT41791
;added NE Medicaid code for W0047 to print first
;I $P(ABMF(7),U)["NEBRASKA MEDICAID" D ;abm*2.6*11 HEAT117086
;start old abm*2.6*21 IHS/SD/SDR HEAT133954
;I ABMP("ITYP")="D" D ;abm*2.6*11 HEAT117086
;.F ABMLOOP=26:1:36 D
;..Q:'$D(ABMF(ABMLOOP))
;..S ABMCHK=$TR($P(ABMF(ABMLOOP),U,6)," ","")
;..I ABMCHK["T1015",ABMLOOP'=26 D
;...S ABMF("TMP")=$G(ABMF(26))
;...S ABMF(26)=$G(ABMF(ABMLOOP))
;...S ABMF(ABMLOOP)=$G(ABMF("TMP"))
;end old start new abm*2.6*21 IHS/SD/SDR HEAT133954
I '$D(ABMF("TEST")) D
.I $G(ABMP("ITYP"))="D"!(+$G(ABMP("INS"))'=0&(($P($G(^AUTNINS(ABMP("INS"),0)),U)="ARBOR HEALTH PLAN"))) D ;abm*2.6*21 IHS/SD/SDR HEAT205579
..F ABMLOOP=26:1:36 D
...Q:'$D(ABMF(ABMLOOP))
...S ABMCHK=$TR($P(ABMF(ABMLOOP),U,6)," ","")
...I ABMCHK["T1015",ABMLOOP'=26 D
....S ABMF("TMP")=$G(ABMF(26))
....S ABMF(26)=$G(ABMF(ABMLOOP))
....S ABMF(ABMLOOP)=$G(ABMF("TMP"))
;end new abm*2.6*21 IHS/SD/SDR HEAT133954
K ABMLOOP,ABMCHK,ABMF("TMP")
;end new code abm*2.6*8 HEAT41791
;
;Skip to req'd line
F Q:$Y-ABM("TM")>(ABM("LN")+0) W !
;
; Test Modes for setting Data Fields
G LOOP2:'$D(ABMF("TEST"))
F ABM("I")=1:1:$L(ABM("FMAT"),U) D
.I $P(ABM("TABS"),U,ABM("I"))]"" D
..S ABM("FLD")=""
..S $P(ABM("FLD"),"X",$P(ABM("FMAT"),U,ABM("I"))+1)=""
..I ABM("FLD")]"" D
...W ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM"))
...D FRMT
G LOOP
;
LOOP2 ;
;Loop thru the pieces of the line array
F ABM("I")=1:1:$L(ABMF(ABM("LN")),U) D
.I $P(ABM("TABS"),U,ABM("I"))]"" D
..S ABM("FLD")=$P(ABMF(ABM("LN")),U,ABM("I"))
..I ABM("FLD")]"" D
...W ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM"))
...D FRMT
G LOOP
;
FRMT ;
;Write the field in the designated format
S ABM("LTH")=$P(ABM("FMAT"),U,ABM("I"))
I +ABM("LTH")=0 S ABM("LTH")=99
;
I ABM("LTH")["$" D Q
.S ABM("LTH")=$P(ABM("LTH"),"$")
.S ABM("FLD")=$TR($FN(+ABM("FLD"),"",2),".")
.S ABM("RT")=ABM("LTH")-$L(ABM("FLD"))+1
.I ABM("RT")>1 D
..S ABM("BLNK")=""
..S $P(ABM("BLNK")," ",ABM("RT"))=""
..S ABM("FLD")=ABM("BLNK")_ABM("FLD")
.W $E(ABM("FLD"),1,ABM("LTH"))
;
I ABM("LTH")["D" D Q
.S ABM("LTH")=$P(ABM("LTH"),"D")
.W $E(ABM("FLD"),4,5),"/",$E(ABM("FLD"),6,7),"/",($E(ABM("FLD"),1,3)+1700)
;
I ABM("LTH")["L" D
.S ABM("LTH")=$P(ABM("LTH"),"L")
.F Q:$L(ABM("FLD"))=ABM("LTH")!($L(ABM("FLD"))>ABM("LTH")) D
..S ABM("FLD")="0"_ABM("FLD")
;
I ABM("LTH")["C" D
.S ABM("LTH")=$P(ABM("LTH"),"C")
.S ABM("FLD")=$J("",ABM("LTH")-$L(ABM("FLD"))\2)_ABM("FLD")
;
I ABM("LTH")["R" D
.S ABM("LTH")=$P(ABM("LTH"),"R")
.S ABM("RT")=ABM("LTH")-$L(ABM("FLD"))+1
.I ABM("RT")>1 D
..S ABM("BLNK")=""
..S $P(ABM("BLNK")," ",ABM("RT"))=""
..S ABM("FLD")=ABM("BLNK")_ABM("FLD")
;
W $E(ABM("FLD"),1,ABM("LTH"))
Q
;
TEST ;
S ABMF("TEST")=1
F ABM=0:ABMF("TEST"):63 S ABMF(ABM)=""
G MARG
;
XIT ;
I '$D(ABM("MORE")) K ABMF,ABM
E K ABM("MORE")
Q
TEXT ;;TABS;;FIELD LENGTH
; FORMAT ($-$ FORMAT,L-LNGTH REQ'D,C-CENTER,R-RIGHT,D-DATE)
;2 ;;1;;1 HEAT8604
1 ;;1;;1
;3 ;;1;;1 HEAT8604
2 ;;1;;1
;5 ;;1;;30 HEAT8604
4 ;;1;;30
;6 ;;42;;30 HEAT8604
5 ;;42;;30
;7 ;;42;;30 HEAT8604
6 ;;42;;30
;8 ;;5^42;;34^30 HEAT8604
7 ;;5^42;;34^30
;9 ;;5;;34 HEAT8604
8 ;;5;;34
;10 ;;5;;34 HEAT8604
9 ;;5;;34
;11 ;;42^56^59^64;;10D^1^1^15 HEAT8604
10 ;;42^56^59^64;;10D^1^1^15
;13 ;;16^26^42^55;;1^1^12^20 HEAT8604
12 ;;16^26^42^55;;1^1^12^20
;15 ;;1;;30 HEAT8604
14 ;;1;;30
;16 ;;42^47^53^62^70^75;;1^1^1^1^1^1 HEAT8604
15 ;;42^47^53^62^70^75;;1^1^1^1^1^1
;17 ;;1^15^18^23;;10D^1^1^10 HEAT8604
16 ;;1^15^18^23;;10D^1^1^10
;18 ;;42;;30 HEAT8604
17 ;;42;;30
;19 ;;1^15^20^26^33^42;;11^1^1^1^1^30 HEAT8604
18 ;;1^15^20^26^33^42;;11^1^1^1^1^30
;20 ;;42;;30 HEAT8604
19 ;;42;;30
;21 ;;1;;30 HEAT8604
20 ;;1;;30
;22 ;;1;;30 HEAT8604
21 ;;1;;30
;23 ;;1^42^56^59^63;;30^10D^1^1^16 HEAT8604
22 ;;1^42^56^59^63;;30^10D^1^1^16
;27 ;;1^12^15^18^30^36^42^74;;10D^2^2^11^5^5^30^6$ HEAT8604
26 ;;1^12^15^18^30^36^42^74;;10D^2^2^11^5^5^30^6$
;38 ;;74;;6$ HEAT8604
37 ;;74;;6$
;39 ;;74;;6$ HEAT8604
38 ;;74;;6$
;40 ;;5;;73 HEAT8604
39 ;;5;;73
;44 ;;42^50^55^59^67^72^77;;1^1^1^1^2R^2R^2R HEAT8604
41 ;;1;;40
;abm*2.6*13 VMBP RQMT_95
43 ;;42^50^55^59^67^72^77;;1^1^1^1^2R^2R^2R
;46 ;;1^28^42^51^65;;25^10D^1^1^10D HEAT8604
45 ;;1^28^42^51^65;;25^10D^1^1^10D
;48 ;;47^51^54^65;;2^1^1^10D HEAT8604
47 ;;47^51^54^65;;2^1^1^10D
;50 ;;2^29^43^58^68;;25^10D^1^1^1 HEAT8604
49 ;;2^29^43^58^68;;25^10D^1^1^1
;51 ;;56^77;;10D^2 HEAT8604
50 ;;56^77;;10D^2
;55 ;;2^42^69;;30^25^10D HEAT8604
54 ;;2^42^69;;30^25^10D
;56 ;;2;;30 HEAT8604
55 ;;2;;30
;57 ;;3^48^69;;30^10^10 HEAT8604 & HEAT12620
56 ;;2^48^69;;30^10^10
;58 ;;68;;10 HEAT8604
57 ;;68;;10
;59 ;;43;;30 HEAT8604
58 ;;43;;30
;60 ;;1^14^27^43;;10^10^11^30 HEAT8604
59 ;;1^14^27^43;;10^10^11^30
;61 ;;6^28^46^68;;14^14^12^10 HEAT8604
60 ;;6^28^46^68;;14^14^14^10
;60 ;;6^28^46^68;;14^14^12^10 ;abm*2.6*8
ABMDF29X ; IHS/ASDST/DMJ - ADA-2006 FORM ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;**3,8,9,11,13,21**;NOV 12, 2009;Build 379
+2 ;
+3 ; IHS/SD/SDR - v2.5 p12 - IM25568 - Corrected alignment issues
+4 ; IHS/SD/PMT - abm*2.6*3 - HEAT8604 - Corrected report to start at line 1, not line 2
+5 ; IHS/SD/SDR - abm*2.6*3 - HEAT12620 - Moved last lin of box 48 one space left
+6 ;IHS/SD/SDR - 2.6*13 - VMBP - RQMT_95 - Added code to populated remarks box 35 (line 41)
+7 ;IHS/SD/SDR - 2.6*21 - HEAT133954 - Made change for <UNDEF>LOOP+19^ABMDF29X. Test print erred because it
+8 ; expected ABMP("ITYPE") to be defined.
+9 ;IHS/SD/SDR - 2.6*21 - HEAT205579 - Made T1015 print first for ARBOR HEALTH PLAN
+10 ;************************************************************************************
+11 ;
MARG ;Set left and top margins
+1 SET U="^"
SET (ABM("LM"),ABM("TM"),ABM("LN"))=0
+2 IF $DATA(^ABMDEXP(29,0))
SET ABM("TM")=$PIECE(^(0),U,3)
SET ABM("LM")=$PIECE(^(0),U,2)
+3 WRITE $$EN^ABMVDF("IOF")
+4 IF +ABM("TM")
FOR ABM("I")=1:1:ABM("TM")
WRITE !
+5 ;
LOOP ;
+1 ;Loop thru line number array
+2 SET ABM("LN")=$ORDER(ABMF(ABM("LN")))
IF +ABM("LN")=0!(ABM("LN")>63)
GOTO XIT
+3 ;
+4 ;Set to correct format line
+5 SET ABM("FL")=ABM("LN")
+6 ;I ABM("LN")>27,ABM("LN")<37 S ABM("FL")=27 ;Lines 27 thru 36 are same HEAT8604
+7 ;Lines 27 thru 36 are same
IF ABM("LN")>25
IF ABM("LN")<37
SET ABM("FL")=26
+8 ;I ABM("LN")>39,ABM("LN")<44 S ABM("FL")=40 ;Lines 40 thru 42 are same HEAT8604
+9 ;I ABM("LN")>38,ABM("LN")<43 S ABM("FL")=40 ;Lines 39 thru 42 are same ;abm*2.6*9 IHS/SD/AML 2/9/2012 HEAT55261
+10 ;Lines 39 thru 42 are same ;abm*2.6*9 IHS/SD/AML 2/9/2012 HEAT55261
IF ABM("LN")>38
IF ABM("LN")<43
SET ABM("FL")=39
+11 ;
+12 ;Set tab & format variables
+13 SET ABM("TABS")=$PIECE($TEXT(@ABM("FL")),";;",2)
+14 SET ABM("FMAT")=$PIECE($TEXT(@ABM("FL")),";;",3)
+15 ;
+16 ;start new code abm*2.6*8 HEAT41791
+17 ;added NE Medicaid code for W0047 to print first
+18 ;I $P(ABMF(7),U)["NEBRASKA MEDICAID" D ;abm*2.6*11 HEAT117086
+19 ;start old abm*2.6*21 IHS/SD/SDR HEAT133954
+20 ;I ABMP("ITYP")="D" D ;abm*2.6*11 HEAT117086
+21 ;.F ABMLOOP=26:1:36 D
+22 ;..Q:'$D(ABMF(ABMLOOP))
+23 ;..S ABMCHK=$TR($P(ABMF(ABMLOOP),U,6)," ","")
+24 ;..I ABMCHK["T1015",ABMLOOP'=26 D
+25 ;...S ABMF("TMP")=$G(ABMF(26))
+26 ;...S ABMF(26)=$G(ABMF(ABMLOOP))
+27 ;...S ABMF(ABMLOOP)=$G(ABMF("TMP"))
+28 ;end old start new abm*2.6*21 IHS/SD/SDR HEAT133954
+29 IF '$DATA(ABMF("TEST"))
Begin DoDot:1
+30 ;abm*2.6*21 IHS/SD/SDR HEAT205579
IF $GET(ABMP("ITYP"))="D"!(+$GET(ABMP("INS"))'=0&(($PIECE($GET(^AUTNINS(ABMP("INS"),0)),U)="ARBOR HEALTH PLAN")))
Begin DoDot:2
+31 FOR ABMLOOP=26:1:36
Begin DoDot:3
+32 IF '$DATA(ABMF(ABMLOOP))
QUIT
+33 SET ABMCHK=$TRANSLATE($PIECE(ABMF(ABMLOOP),U,6)," ","")
+34 IF ABMCHK["T1015"
IF ABMLOOP'=26
Begin DoDot:4
+35 SET ABMF("TMP")=$GET(ABMF(26))
+36 SET ABMF(26)=$GET(ABMF(ABMLOOP))
+37 SET ABMF(ABMLOOP)=$GET(ABMF("TMP"))
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+38 ;end new abm*2.6*21 IHS/SD/SDR HEAT133954
+39 KILL ABMLOOP,ABMCHK,ABMF("TMP")
+40 ;end new code abm*2.6*8 HEAT41791
+41 ;
+42 ;Skip to req'd line
+43 FOR
IF $Y-ABM("TM")>(ABM("LN")+0)
QUIT
WRITE !
+44 ;
+45 ; Test Modes for setting Data Fields
+46 IF '$DATA(ABMF("TEST"))
GOTO LOOP2
+47 FOR ABM("I")=1:1:$LENGTH(ABM("FMAT"),U)
Begin DoDot:1
+48 IF $PIECE(ABM("TABS"),U,ABM("I"))]""
Begin DoDot:2
+49 SET ABM("FLD")=""
+50 SET $PIECE(ABM("FLD"),"X",$PIECE(ABM("FMAT"),U,ABM("I"))+1)=""
+51 IF ABM("FLD")]""
Begin DoDot:3
+52 WRITE ?($PIECE(ABM("TABS"),U,ABM("I"))+ABM("LM"))
+53 DO FRMT
End DoDot:3
End DoDot:2
End DoDot:1
+54 GOTO LOOP
+55 ;
LOOP2 ;
+1 ;Loop thru the pieces of the line array
+2 FOR ABM("I")=1:1:$LENGTH(ABMF(ABM("LN")),U)
Begin DoDot:1
+3 IF $PIECE(ABM("TABS"),U,ABM("I"))]""
Begin DoDot:2
+4 SET ABM("FLD")=$PIECE(ABMF(ABM("LN")),U,ABM("I"))
+5 IF ABM("FLD")]""
Begin DoDot:3
+6 WRITE ?($PIECE(ABM("TABS"),U,ABM("I"))+ABM("LM"))
+7 DO FRMT
End DoDot:3
End DoDot:2
End DoDot:1
+8 GOTO LOOP
+9 ;
FRMT ;
+1 ;Write the field in the designated format
+2 SET ABM("LTH")=$PIECE(ABM("FMAT"),U,ABM("I"))
+3 IF +ABM("LTH")=0
SET ABM("LTH")=99
+4 ;
+5 IF ABM("LTH")["$"
Begin DoDot:1
+6 SET ABM("LTH")=$PIECE(ABM("LTH"),"$")
+7 SET ABM("FLD")=$TRANSLATE($FNUMBER(+ABM("FLD"),"",2),".")
+8 SET ABM("RT")=ABM("LTH")-$LENGTH(ABM("FLD"))+1
+9 IF ABM("RT")>1
Begin DoDot:2
+10 SET ABM("BLNK")=""
+11 SET $PIECE(ABM("BLNK")," ",ABM("RT"))=""
+12 SET ABM("FLD")=ABM("BLNK")_ABM("FLD")
End DoDot:2
+13 WRITE $EXTRACT(ABM("FLD"),1,ABM("LTH"))
End DoDot:1
QUIT
+14 ;
+15 IF ABM("LTH")["D"
Begin DoDot:1
+16 SET ABM("LTH")=$PIECE(ABM("LTH"),"D")
+17 WRITE $EXTRACT(ABM("FLD"),4,5),"/",$EXTRACT(ABM("FLD"),6,7),"/",($EXTRACT(ABM("FLD"),1,3)+1700)
End DoDot:1
QUIT
+18 ;
+19 IF ABM("LTH")["L"
Begin DoDot:1
+20 SET ABM("LTH")=$PIECE(ABM("LTH"),"L")
+21 FOR
IF $LENGTH(ABM("FLD"))=ABM("LTH")!($LENGTH(ABM("FLD"))>ABM("LTH"))
QUIT
Begin DoDot:2
+22 SET ABM("FLD")="0"_ABM("FLD")
End DoDot:2
End DoDot:1
+23 ;
+24 IF ABM("LTH")["C"
Begin DoDot:1
+25 SET ABM("LTH")=$PIECE(ABM("LTH"),"C")
+26 SET ABM("FLD")=$JUSTIFY("",ABM("LTH")-$LENGTH(ABM("FLD"))\2)_ABM("FLD")
End DoDot:1
+27 ;
+28 IF ABM("LTH")["R"
Begin DoDot:1
+29 SET ABM("LTH")=$PIECE(ABM("LTH"),"R")
+30 SET ABM("RT")=ABM("LTH")-$LENGTH(ABM("FLD"))+1
+31 IF ABM("RT")>1
Begin DoDot:2
+32 SET ABM("BLNK")=""
+33 SET $PIECE(ABM("BLNK")," ",ABM("RT"))=""
+34 SET ABM("FLD")=ABM("BLNK")_ABM("FLD")
End DoDot:2
End DoDot:1
+35 ;
+36 WRITE $EXTRACT(ABM("FLD"),1,ABM("LTH"))
+37 QUIT
+38 ;
TEST ;
+1 SET ABMF("TEST")=1
+2 FOR ABM=0:ABMF("TEST"):63
SET ABMF(ABM)=""
+3 GOTO MARG
+4 ;
XIT ;
+1 IF '$DATA(ABM("MORE"))
KILL ABMF,ABM
+2 IF '$TEST
KILL ABM("MORE")
+3 QUIT
TEXT ;;TABS;;FIELD LENGTH
+1 ; FORMAT ($-$ FORMAT,L-LNGTH REQ'D,C-CENTER,R-RIGHT,D-DATE)
+2 ;2 ;;1;;1 HEAT8604
1 ;;1;;1
+1 ;3 ;;1;;1 HEAT8604
2 ;;1;;1
+1 ;5 ;;1;;30 HEAT8604
4 ;;1;;30
+1 ;6 ;;42;;30 HEAT8604
5 ;;42;;30
+1 ;7 ;;42;;30 HEAT8604
6 ;;42;;30
+1 ;8 ;;5^42;;34^30 HEAT8604
7 ;;5^42;;34^30
+1 ;9 ;;5;;34 HEAT8604
8 ;;5;;34
+1 ;10 ;;5;;34 HEAT8604
9 ;;5;;34
+1 ;11 ;;42^56^59^64;;10D^1^1^15 HEAT8604
10 ;;42^56^59^64;;10D^1^1^15
+1 ;13 ;;16^26^42^55;;1^1^12^20 HEAT8604
12 ;;16^26^42^55;;1^1^12^20
+1 ;15 ;;1;;30 HEAT8604
14 ;;1;;30
+1 ;16 ;;42^47^53^62^70^75;;1^1^1^1^1^1 HEAT8604
15 ;;42^47^53^62^70^75;;1^1^1^1^1^1
+1 ;17 ;;1^15^18^23;;10D^1^1^10 HEAT8604
16 ;;1^15^18^23;;10D^1^1^10
+1 ;18 ;;42;;30 HEAT8604
17 ;;42;;30
+1 ;19 ;;1^15^20^26^33^42;;11^1^1^1^1^30 HEAT8604
18 ;;1^15^20^26^33^42;;11^1^1^1^1^30
+1 ;20 ;;42;;30 HEAT8604
19 ;;42;;30
+1 ;21 ;;1;;30 HEAT8604
20 ;;1;;30
+1 ;22 ;;1;;30 HEAT8604
21 ;;1;;30
+1 ;23 ;;1^42^56^59^63;;30^10D^1^1^16 HEAT8604
22 ;;1^42^56^59^63;;30^10D^1^1^16
+1 ;27 ;;1^12^15^18^30^36^42^74;;10D^2^2^11^5^5^30^6$ HEAT8604
26 ;;1^12^15^18^30^36^42^74;;10D^2^2^11^5^5^30^6$
+1 ;38 ;;74;;6$ HEAT8604
37 ;;74;;6$
+1 ;39 ;;74;;6$ HEAT8604
38 ;;74;;6$
+1 ;40 ;;5;;73 HEAT8604
39 ;;5;;73
+1 ;44 ;;42^50^55^59^67^72^77;;1^1^1^1^2R^2R^2R HEAT8604
41 ;;1;;40
+1 ;abm*2.6*13 VMBP RQMT_95
43 ;;42^50^55^59^67^72^77;;1^1^1^1^2R^2R^2R
+1 ;46 ;;1^28^42^51^65;;25^10D^1^1^10D HEAT8604
45 ;;1^28^42^51^65;;25^10D^1^1^10D
+1 ;48 ;;47^51^54^65;;2^1^1^10D HEAT8604
47 ;;47^51^54^65;;2^1^1^10D
+1 ;50 ;;2^29^43^58^68;;25^10D^1^1^1 HEAT8604
49 ;;2^29^43^58^68;;25^10D^1^1^1
+1 ;51 ;;56^77;;10D^2 HEAT8604
50 ;;56^77;;10D^2
+1 ;55 ;;2^42^69;;30^25^10D HEAT8604
54 ;;2^42^69;;30^25^10D
+1 ;56 ;;2;;30 HEAT8604
55 ;;2;;30
+1 ;57 ;;3^48^69;;30^10^10 HEAT8604 & HEAT12620
56 ;;2^48^69;;30^10^10
+1 ;58 ;;68;;10 HEAT8604
57 ;;68;;10
+1 ;59 ;;43;;30 HEAT8604
58 ;;43;;30
+1 ;60 ;;1^14^27^43;;10^10^11^30 HEAT8604
59 ;;1^14^27^43;;10^10^11^30
+1 ;61 ;;6^28^46^68;;14^14^12^10 HEAT8604
60 ;;6^28^46^68;;14^14^14^10
+1 ;60 ;;6^28^46^68;;14^14^12^10 ;abm*2.6*8
