ABMDF29X.m

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