IBY221P.m

IBY221P ;ALB/ARH/MAF - OCCURRENCE CODES:  FILE IN 399.1 - POST INIT ; 5/1/97

 ;;2.0;INTEGRATED BILLING;**221**;21-MAR-94

 ;

OC ; Add Occurrence Codes to 399.1 (#.11 - p4)

 D BMES^XPDUTL("Updating file 399.1 MCCR UTILITY with new occurrence codes...")

 D MES^XPDUTL("   ")

 N DLAYGO,DIC,DIE,DD,DO,DA,DR,X,Y,IBA,IBFL,IBI,IBLN,IBCNT,IBFN S IBCNT=0

 ;

 F IBI=1:1 S IBLN=$P($T(OCF+IBI),";;",2) Q:IBLN=""  I $E(IBLN)'=" " S $P(IBLN,U,2)=$S($P(IBLN,U,2)="STATE":"RZD FOR STATE ASSIGNMENT",$P(IBLN,U,2)="NATIONAL":"RZD FOR NATIONAL ASSIGNMENT",1:$P(IBLN,U,2)) D

 . ;

 . I +$$MCCRUTL($P(IBLN,U,1),4) S IBFL=0 D SET Q

 . ;

 . K DD,DO S DLAYGO=399.1,DIC="^DGCR(399.1,",DIC(0)="L",X=$P(IBLN,U,2) D FILE^DICN K DIC I Y<1 K X,Y Q

 . S IBFN=+Y,IBCNT=IBCNT+1

 . ;

 . S DR=".02////"_$P(IBLN,U,1)_";.11////"_1_";.16////"_$P(IBLN,U,4)_";.17////"_$P(IBLN,U,5)

 . S DIE="^DGCR(399.1,",DA=+IBFN D ^DIE K DIE,DA,DR,X,Y

 . S IBFL=1 D SET

 ;

BSQ S IBA(1)="      *  "_IBCNT_" Occurrence Codes added (#399.1)"

 D BMES^XPDUTL(.IBA)

 Q

 ;

MCCRUTL(X,P) ; returns IFN of item in 399.1 if Code is found and piece P is true

 ;

 N IBX,IBY S IBY=""

 I $G(X)'="" S IBX=0 F  S IBX=$O(^DGCR(399.1,"C",X,IBX)) Q:'IBX  I $P($G(^DGCR(399.1,IBX,0)),U,+$G(P)) S IBY=IBX

 Q IBY

 ;

SET ; SET IBA() FOR DISPLAY 

 S IBA(IBI)="  "_$P(IBLN,U,1)_"    "_$P(IBLN,U,2)_"    "_$S(IBFL=1:"*** Code Added ***",1:"*** Duplicate ***")

 Q

 ;

 ;

OCF ; occurrence codes (399.1)   CODE^CODE NAME^SPAN^10 HCFA^OSC

 ;; 

 ;;16^DATE OF LAST THERAPY^1^^

 ;;23^DATE OF CANCELLATION OF HOSPICE ELECTION PERIOD^1^^

 ;;47^DATE COST OUTLIER STATUS BEGINS^1^^

 ;;48^PAYER CODES^1^^

 ;;49^PAYER CODES^1^^

 ;;M2^PATIENT RESPITE DATES^1^^1

 ;;50^STATE^1^^

 ;;51^STATE^1^^

 ;;52^STATE^1^^

 ;;53^STATE^1^^

 ;;54^STATE^1^^

 ;;55^STATE^1^^

 ;;56^STATE^1^^

 ;;57^STATE^1^^

 ;;58^STATE^1^^

 ;;59^STATE^1^^

 ;;60^STATE^1^^

 ;;61^STATE^1^^

 ;;62^STATE^1^^

 ;;63^STATE^1^^

 ;;64^STATE^1^^

 ;;65^STATE^1^^

 ;;66^STATE^1^^

 ;;67^STATE^1^^

 ;;68^STATE^1^^

 ;;69^STATE^1^^

 ;;80^STATE^1^^1

 ;;81^STATE^1^^1

 ;;82^STATE^1^^1

 ;;83^STATE^1^^1

 ;;84^STATE^1^^1

 ;;85^STATE^1^^1

 ;;86^STATE^1^^1

 ;;87^STATE^1^^1

 ;;88^STATE^1^^1

 ;;89^STATE^1^^1

 ;;90^STATE^1^^1

 ;;91^STATE^1^^1

 ;;92^STATE^1^^1

 ;;93^STATE^1^^1

 ;;94^STATE^1^^1

 ;;95^STATE^1^^1

 ;;96^STATE^1^^1

 ;;97^STATE^1^^1

 ;;98^STATE^1^^1

 ;;99^STATE^1^^1

 ;;J0^STATE^1^^

 ;;J1^STATE^1^^

 ;;J2^STATE^1^^

 ;;J3^STATE^1^^

 ;;J4^STATE^1^^

 ;;J5^STATE^1^^

 ;;J6^STATE^1^^

 ;;J7^STATE^1^^

 ;;J8^STATE^1^^

 ;;J9^STATE^1^^

 ;;K0^STATE^1^^

 ;;K1^STATE^1^^

 ;;K2^STATE^1^^

 ;;K3^STATE^1^^

 ;;K4^STATE^1^^

 ;;K5^STATE^1^^

 ;;K6^STATE^1^^

 ;;K7^STATE^1^^

 ;;K8^STATE^1^^

 ;;K9^STATE^1^^

 ;;L0^STATE^1^^

 ;;L1^STATE^1^^

 ;;L2^STATE^1^^

 ;;L3^STATE^1^^

 ;;L4^STATE^1^^

 ;;L5^STATE^1^^

 ;;L6^STATE^1^^

 ;;L7^STATE^1^^

 ;;L8^STATE^1^^

 ;;L9^STATE^1^^

 ;;X0^STATE^1^^1

 ;;X1^STATE^1^^1

 ;;X2^STATE^1^^1

 ;;X3^STATE^1^^1

 ;;X4^STATE^1^^1

 ;;X5^STATE^1^^1

 ;;X6^STATE^1^^1

 ;;X7^STATE^1^^1

 ;;X8^STATE^1^^1

 ;;X9^STATE^1^^1

 ;;Y0^STATE^1^^1

 ;;Y1^STATE^1^^1

 ;;Y2^STATE^1^^1

 ;;Y3^STATE^1^^1

 ;;Y4^STATE^1^^1

 ;;Y5^STATE^1^^1

 ;;Y6^STATE^1^^1

 ;;Y7^STATE^1^^1

 ;;Y8^STATE^1^^1

 ;;Y9^STATE^1^^1

 ;;Z0^STATE^1^^1

 ;;Z1^STATE^1^^1

 ;;Z2^STATE^1^^1

 ;;Z3^STATE^1^^1

 ;;Z4^STATE^1^^1

 ;;Z5^STATE^1^^1

 ;;Z6^STATE^1^^1

 ;;Z7^STATE^1^^1

 ;;Z8^STATE^1^^1

 ;;Z9^STATE^1^^1

 ;;07^NATIONAL^1^^

 ;;08^NATIONAL^1^^

 ;;13^NATIONAL^1^^

 ;;14^NATIONAL^1^^

 ;;15^NATIONAL^1^^

 ;;A0^NATIONAL^1^^

 ;;A4^NATIONAL^1^^

 ;;A5^NATIONAL^1^^

 ;;A6^NATIONAL^1^^

 ;;A7^NATIONAL^1^^

 ;;A8^NATIONAL^1^^

 ;;A9^NATIONAL^1^^

 ;;B0^NATIONAL^1^^

 ;;B4^NATIONAL^1^^

 ;;B5^NATIONAL^1^^

 ;;B6^NATIONAL^1^^

 ;;B7^NATIONAL^1^^

 ;;B8^NATIONAL^1^^

 ;;B9^NATIONAL^1^^

 ;;C0^NATIONAL^1^^

 ;;C4^NATIONAL^1^^

 ;;C5^NATIONAL^1^^

 ;;C6^NATIONAL^1^^

 ;;C7^NATIONAL^1^^

 ;;C8^NATIONAL^1^^

 ;;C9^NATIONAL^1^^

 ;;D0^NATIONAL^1^^

 ;;D1^NATIONAL^1^^

 ;;D2^NATIONAL^1^^

 ;;D3^NATIONAL^1^^

 ;;D4^NATIONAL^1^^

 ;;D5^NATIONAL^1^^

 ;;D6^NATIONAL^1^^

 ;;D7^NATIONAL^1^^

 ;;D8^NATIONAL^1^^

 ;;D9^NATIONAL^1^^

 ;;E0^NATIONAL^1^^

 ;;E4^NATIONAL^1^^

 ;;E5^NATIONAL^1^^

 ;;E6^NATIONAL^1^^

 ;;E7^NATIONAL^1^^

 ;;E8^NATIONAL^1^^

 ;;E9^NATIONAL^1^^

 ;;F0^NATIONAL^1^^

 ;;F4^NATIONAL^1^^

 ;;F5^NATIONAL^1^^

 ;;F6^NATIONAL^1^^

 ;;F7^NATIONAL^1^^

 ;;F8^NATIONAL^1^^

 ;;F9^NATIONAL^1^^

 ;;G0^NATIONAL^1^^

 ;;G4^NATIONAL^1^^

 ;;G5^NATIONAL^1^^

 ;;G6^NATIONAL^1^^

 ;;G7^NATIONAL^1^^

 ;;G8^NATIONAL^1^^

 ;;G9^NATIONAL^1^^

 ;;H0^NATIONAL^1^^

 ;;H1^NATIONAL^1^^

 ;;H2^NATIONAL^1^^

 ;;H3^NATIONAL^1^^

 ;;H4^NATIONAL^1^^

 ;;H5^NATIONAL^1^^

 ;;H6^NATIONAL^1^^

 ;;H7^NATIONAL^1^^

 ;;H8^NATIONAL^1^^

 ;;H9^NATIONAL^1^^

 ;;I0^NATIONAL^1^^

 ;;I1^NATIONAL^1^^

 ;;I2^NATIONAL^1^^

 ;;I3^NATIONAL^1^^

 ;;I4^NATIONAL^1^^

 ;;I5^NATIONAL^1^^

 ;;I6^NATIONAL^1^^

 ;;I7^NATIONAL^1^^

 ;;I8^NATIONAL^1^^

 ;;I9^NATIONAL^1^^

 ;;M3^NATIONAL^1^^1

 ;;M4^NATIONAL^1^^1

 ;;M5^NATIONAL^1^^1

 ;;M6^NATIONAL^1^^1

 ;;M7^NATIONAL^1^^1

 ;;M8^NATIONAL^1^^1

 ;;M9^NATIONAL^1^^1

 ;;N0^NATIONAL^1^^1

 ;;N1^NATIONAL^1^^1

 ;;N2^NATIONAL^1^^1

 ;;N3^NATIONAL^1^^1

 ;;N4^NATIONAL^1^^1

 ;;N5^NATIONAL^1^^1

 ;;N6^NATIONAL^1^^1

 ;;N7^NATIONAL^1^^1

 ;;N8^NATIONAL^1^^1

 ;;N9^NATIONAL^1^^1

 ;;O0^NATIONAL^1^^1

 ;;O1^NATIONAL^1^^1

 ;;O2^NATIONAL^1^^1

 ;;O3^NATIONAL^1^^1

 ;;O4^NATIONAL^1^^1

 ;;O5^NATIONAL^1^^1

 ;;O6^NATIONAL^1^^1

 ;;O7^NATIONAL^1^^1

 ;;O8^NATIONAL^1^^1

 ;;O9^NATIONAL^1^^1

 ;;P0^NATIONAL^1^^1

 ;;P1^NATIONAL^1^^1

 ;;P2^NATIONAL^1^^1

 ;;P3^NATIONAL^1^^1

 ;;P4^NATIONAL^1^^1

 ;;P5^NATIONAL^1^^1

 ;;P6^NATIONAL^1^^1

 ;;P7^NATIONAL^1^^1

 ;;P8^NATIONAL^1^^1

 ;;P9^NATIONAL^1^^1

 ;;Q0^NATIONAL^1^^1

 ;;Q1^NATIONAL^1^^1

 ;;Q2^NATIONAL^1^^1

 ;;Q3^NATIONAL^1^^1

 ;;Q4^NATIONAL^1^^1

 ;;Q5^NATIONAL^1^^1

 ;;Q6^NATIONAL^1^^1

 ;;Q7^NATIONAL^1^^1

 ;;Q8^NATIONAL^1^^1

 ;;Q9^NATIONAL^1^^1

 ;;R0^NATIONAL^1^^1

 ;;R1^NATIONAL^1^^1

 ;;R2^NATIONAL^1^^1

 ;;R3^NATIONAL^1^^1

 ;;R4^NATIONAL^1^^1

 ;;R5^NATIONAL^1^^1

 ;;R6^NATIONAL^1^^1

 ;;R7^NATIONAL^1^^1

 ;;R8^NATIONAL^1^^1

 ;;R9^NATIONAL^1^^1

 ;;S0^NATIONAL^1^^1

 ;;S1^NATIONAL^1^^1

 ;;S2^NATIONAL^1^^1

 ;;S3^NATIONAL^1^^1

 ;;S4^NATIONAL^1^^1

 ;;S5^NATIONAL^1^^1

 ;;S6^NATIONAL^1^^1

 ;;S7^NATIONAL^1^^1

 ;;S8^NATIONAL^1^^1

 ;;S9^NATIONAL^1^^1

 ;;T0^NATIONAL^1^^1

 ;;T1^NATIONAL^1^^1

 ;;T2^NATIONAL^1^^1

 ;;T3^NATIONAL^1^^1

 ;;T4^NATIONAL^1^^1

 ;;T5^NATIONAL^1^^1

 ;;T6^NATIONAL^1^^1

 ;;T7^NATIONAL^1^^1

 ;;T8^NATIONAL^1^^1

 ;;T9^NATIONAL^1^^1

 ;;U0^NATIONAL^1^^1

 ;;U1^NATIONAL^1^^1

 ;;U2^NATIONAL^1^^1

 ;;U3^NATIONAL^1^^1

 ;;U4^NATIONAL^1^^1

 ;;U5^NATIONAL^1^^1

 ;;U6^NATIONAL^1^^1

 ;;U7^NATIONAL^1^^1

 ;;U8^NATIONAL^1^^1

 ;;U9^NATIONAL^1^^1

 ;;V0^NATIONAL^1^^1

 ;;V1^NATIONAL^1^^1

 ;;V2^NATIONAL^1^^1

 ;;V3^NATIONAL^1^^1

 ;;V4^NATIONAL^1^^1

 ;;V5^NATIONAL^1^^1

 ;;V6^NATIONAL^1^^1

 ;;V7^NATIONAL^1^^1

 ;;V8^NATIONAL^1^^1

 ;;V9^NATIONAL^1^^1

 ;;W0^NATIONAL^1^^1

 ;;W1^NATIONAL^1^^1

 ;;W2^NATIONAL^1^^1

 ;;W3^NATIONAL^1^^1

 ;;W4^NATIONAL^1^^1

 ;;W5^NATIONAL^1^^1

 ;;W6^NATIONAL^1^^1

 ;;W7^NATIONAL^1^^1

 ;;W8^NATIONAL^1^^1

 ;;W9^NATIONAL^1^^1

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY221P   7243     printed  Feb 18, 2025@23:59:59                                                                                                                                                                                                     Page 2

IBY221P   ;ALB/ARH/MAF - OCCURRENCE CODES:  FILE IN 399.1 - POST INIT ; 5/1/97

 +1       ;;2.0;INTEGRATED BILLING;**221**;21-MAR-94

 +2       ;

OC        ; Add Occurrence Codes to 399.1 (#.11 - p4)

 +1        DO BMES^XPDUTL("Updating file 399.1 MCCR UTILITY with new occurrence codes...")

 +2        DO MES^XPDUTL("   ")

 +3        NEW DLAYGO,DIC,DIE,DD,DO,DA,DR,X,Y,IBA,IBFL,IBI,IBLN,IBCNT,IBFN

           SET IBCNT=0

 +4       ;

 +5        FOR IBI=1:1

               SET IBLN=$PIECE($TEXT(OCF+IBI),";;",2)

               if IBLN=""

                   QUIT 

               IF $EXTRACT(IBLN)'=" "

                   SET $PIECE(IBLN,U,2)=$SELECT($PIECE(IBLN,U,2)="STATE":"RZD FOR STATE ASSIGNMENT",$PIECE(IBLN,U,2)="NATIONAL":"RZD FOR NATIONAL ASSIGNMENT",1:$PIECE(IBLN,U,2))

                   Begin DoDot:1

 +6       ;

 +7                    IF +$$MCCRUTL($PIECE(IBLN,U,1),4)

                           SET IBFL=0

                           DO SET

                           QUIT 

 +8       ;

 +9                    KILL DD,DO

                       SET DLAYGO=399.1

                       SET DIC="^DGCR(399.1,"

                       SET DIC(0)="L"

                       SET X=$PIECE(IBLN,U,2)

                       DO FILE^DICN

                       KILL DIC

                       IF Y<1

                           KILL X,Y

                           QUIT 

 +10                   SET IBFN=+Y

                       SET IBCNT=IBCNT+1

 +11      ;

 +12                   SET DR=".02////"_$PIECE(IBLN,U,1)_";.11////"_1_";.16////"_$PIECE(IBLN,U,4)_";.17////"_$PIECE(IBLN,U,5)

 +13                   SET DIE="^DGCR(399.1,"

                       SET DA=+IBFN

                       DO ^DIE

                       KILL DIE,DA,DR,X,Y

 +14                   SET IBFL=1

                       DO SET

                   End DoDot:1

 +15      ;

BSQ        SET IBA(1)="      *  "_IBCNT_" Occurrence Codes added (#399.1)"

 +1        DO BMES^XPDUTL(.IBA)

 +2        QUIT 

 +3       ;

MCCRUTL(X,P) ; returns IFN of item in 399.1 if Code is found and piece P is true

 +1       ;

 +2        NEW IBX,IBY

           SET IBY=""

 +3        IF $GET(X)'=""

               SET IBX=0

               FOR 

                   SET IBX=$ORDER(^DGCR(399.1,"C",X,IBX))

                   if 'IBX

                       QUIT 

                   IF $PIECE($GET(^DGCR(399.1,IBX,0)),U,+$GET(P))

                       SET IBY=IBX

 +4        QUIT IBY

 +5       ;

SET       ; SET IBA() FOR DISPLAY 

 +1        SET IBA(IBI)="  "_$PIECE(IBLN,U,1)_"    "_$PIECE(IBLN,U,2)_"    "_$SELECT(IBFL=1:"*** Code Added ***",1:"*** Duplicate ***")

 +2        QUIT 

 +3       ;

 +4       ;

OCF       ; occurrence codes (399.1)   CODE^CODE NAME^SPAN^10 HCFA^OSC

 +1       ;; 

 +2       ;;16^DATE OF LAST THERAPY^1^^

 +3       ;;23^DATE OF CANCELLATION OF HOSPICE ELECTION PERIOD^1^^

 +4       ;;47^DATE COST OUTLIER STATUS BEGINS^1^^

 +5       ;;48^PAYER CODES^1^^

 +6       ;;49^PAYER CODES^1^^

 +7       ;;M2^PATIENT RESPITE DATES^1^^1

 +8       ;;50^STATE^1^^

 +9       ;;51^STATE^1^^

 +10      ;;52^STATE^1^^

 +11      ;;53^STATE^1^^

 +12      ;;54^STATE^1^^

 +13      ;;55^STATE^1^^

 +14      ;;56^STATE^1^^

 +15      ;;57^STATE^1^^

 +16      ;;58^STATE^1^^

 +17      ;;59^STATE^1^^

 +18      ;;60^STATE^1^^

 +19      ;;61^STATE^1^^

 +20      ;;62^STATE^1^^

 +21      ;;63^STATE^1^^

 +22      ;;64^STATE^1^^

 +23      ;;65^STATE^1^^

 +24      ;;66^STATE^1^^

 +25      ;;67^STATE^1^^

 +26      ;;68^STATE^1^^

 +27      ;;69^STATE^1^^

 +28      ;;80^STATE^1^^1

 +29      ;;81^STATE^1^^1

 +30      ;;82^STATE^1^^1

 +31      ;;83^STATE^1^^1

 +32      ;;84^STATE^1^^1

 +33      ;;85^STATE^1^^1

 +34      ;;86^STATE^1^^1

 +35      ;;87^STATE^1^^1

 +36      ;;88^STATE^1^^1

 +37      ;;89^STATE^1^^1

 +38      ;;90^STATE^1^^1

 +39      ;;91^STATE^1^^1

 +40      ;;92^STATE^1^^1

 +41      ;;93^STATE^1^^1

 +42      ;;94^STATE^1^^1

 +43      ;;95^STATE^1^^1

 +44      ;;96^STATE^1^^1

 +45      ;;97^STATE^1^^1

 +46      ;;98^STATE^1^^1

 +47      ;;99^STATE^1^^1

 +48      ;;J0^STATE^1^^

 +49      ;;J1^STATE^1^^

 +50      ;;J2^STATE^1^^

 +51      ;;J3^STATE^1^^

 +52      ;;J4^STATE^1^^

 +53      ;;J5^STATE^1^^

 +54      ;;J6^STATE^1^^

 +55      ;;J7^STATE^1^^

 +56      ;;J8^STATE^1^^

 +57      ;;J9^STATE^1^^

 +58      ;;K0^STATE^1^^

 +59      ;;K1^STATE^1^^

 +60      ;;K2^STATE^1^^

 +61      ;;K3^STATE^1^^

 +62      ;;K4^STATE^1^^

 +63      ;;K5^STATE^1^^

 +64      ;;K6^STATE^1^^

 +65      ;;K7^STATE^1^^

 +66      ;;K8^STATE^1^^

 +67      ;;K9^STATE^1^^

 +68      ;;L0^STATE^1^^

 +69      ;;L1^STATE^1^^

 +70      ;;L2^STATE^1^^

 +71      ;;L3^STATE^1^^

 +72      ;;L4^STATE^1^^

 +73      ;;L5^STATE^1^^

 +74      ;;L6^STATE^1^^

 +75      ;;L7^STATE^1^^

 +76      ;;L8^STATE^1^^

 +77      ;;L9^STATE^1^^

 +78      ;;X0^STATE^1^^1

 +79      ;;X1^STATE^1^^1

 +80      ;;X2^STATE^1^^1

 +81      ;;X3^STATE^1^^1

 +82      ;;X4^STATE^1^^1

 +83      ;;X5^STATE^1^^1

 +84      ;;X6^STATE^1^^1

 +85      ;;X7^STATE^1^^1

 +86      ;;X8^STATE^1^^1

 +87      ;;X9^STATE^1^^1

 +88      ;;Y0^STATE^1^^1

 +89      ;;Y1^STATE^1^^1

 +90      ;;Y2^STATE^1^^1

 +91      ;;Y3^STATE^1^^1

 +92      ;;Y4^STATE^1^^1

 +93      ;;Y5^STATE^1^^1

 +94      ;;Y6^STATE^1^^1

 +95      ;;Y7^STATE^1^^1

 +96      ;;Y8^STATE^1^^1

 +97      ;;Y9^STATE^1^^1

 +98      ;;Z0^STATE^1^^1

 +99      ;;Z1^STATE^1^^1

 +100     ;;Z2^STATE^1^^1

 +101     ;;Z3^STATE^1^^1

 +102     ;;Z4^STATE^1^^1

 +103     ;;Z5^STATE^1^^1

 +104     ;;Z6^STATE^1^^1

 +105     ;;Z7^STATE^1^^1

 +106     ;;Z8^STATE^1^^1

 +107     ;;Z9^STATE^1^^1

 +108     ;;07^NATIONAL^1^^

 +109     ;;08^NATIONAL^1^^

 +110     ;;13^NATIONAL^1^^

 +111     ;;14^NATIONAL^1^^

 +112     ;;15^NATIONAL^1^^

 +113     ;;A0^NATIONAL^1^^

 +114     ;;A4^NATIONAL^1^^

 +115     ;;A5^NATIONAL^1^^

 +116     ;;A6^NATIONAL^1^^

 +117     ;;A7^NATIONAL^1^^

 +118     ;;A8^NATIONAL^1^^

 +119     ;;A9^NATIONAL^1^^

 +120     ;;B0^NATIONAL^1^^

 +121     ;;B4^NATIONAL^1^^

 +122     ;;B5^NATIONAL^1^^

 +123     ;;B6^NATIONAL^1^^

 +124     ;;B7^NATIONAL^1^^

 +125     ;;B8^NATIONAL^1^^

 +126     ;;B9^NATIONAL^1^^

 +127     ;;C0^NATIONAL^1^^

 +128     ;;C4^NATIONAL^1^^

 +129     ;;C5^NATIONAL^1^^

 +130     ;;C6^NATIONAL^1^^

 +131     ;;C7^NATIONAL^1^^

 +132     ;;C8^NATIONAL^1^^

 +133     ;;C9^NATIONAL^1^^

 +134     ;;D0^NATIONAL^1^^

 +135     ;;D1^NATIONAL^1^^

 +136     ;;D2^NATIONAL^1^^

 +137     ;;D3^NATIONAL^1^^

 +138     ;;D4^NATIONAL^1^^

 +139     ;;D5^NATIONAL^1^^

 +140     ;;D6^NATIONAL^1^^

 +141     ;;D7^NATIONAL^1^^

 +142     ;;D8^NATIONAL^1^^

 +143     ;;D9^NATIONAL^1^^

 +144     ;;E0^NATIONAL^1^^

 +145     ;;E4^NATIONAL^1^^

 +146     ;;E5^NATIONAL^1^^

 +147     ;;E6^NATIONAL^1^^

 +148     ;;E7^NATIONAL^1^^

 +149     ;;E8^NATIONAL^1^^

 +150     ;;E9^NATIONAL^1^^

 +151     ;;F0^NATIONAL^1^^

 +152     ;;F4^NATIONAL^1^^

 +153     ;;F5^NATIONAL^1^^

 +154     ;;F6^NATIONAL^1^^

 +155     ;;F7^NATIONAL^1^^

 +156     ;;F8^NATIONAL^1^^

 +157     ;;F9^NATIONAL^1^^

 +158     ;;G0^NATIONAL^1^^

 +159     ;;G4^NATIONAL^1^^

 +160     ;;G5^NATIONAL^1^^

 +161     ;;G6^NATIONAL^1^^

 +162     ;;G7^NATIONAL^1^^

 +163     ;;G8^NATIONAL^1^^

 +164     ;;G9^NATIONAL^1^^

 +165     ;;H0^NATIONAL^1^^

 +166     ;;H1^NATIONAL^1^^

 +167     ;;H2^NATIONAL^1^^

 +168     ;;H3^NATIONAL^1^^

 +169     ;;H4^NATIONAL^1^^

 +170     ;;H5^NATIONAL^1^^

 +171     ;;H6^NATIONAL^1^^

 +172     ;;H7^NATIONAL^1^^

 +173     ;;H8^NATIONAL^1^^

 +174     ;;H9^NATIONAL^1^^

 +175     ;;I0^NATIONAL^1^^

 +176     ;;I1^NATIONAL^1^^

 +177     ;;I2^NATIONAL^1^^

 +178     ;;I3^NATIONAL^1^^

 +179     ;;I4^NATIONAL^1^^

 +180     ;;I5^NATIONAL^1^^

 +181     ;;I6^NATIONAL^1^^

 +182     ;;I7^NATIONAL^1^^

 +183     ;;I8^NATIONAL^1^^

 +184     ;;I9^NATIONAL^1^^

 +185     ;;M3^NATIONAL^1^^1

 +186     ;;M4^NATIONAL^1^^1

 +187     ;;M5^NATIONAL^1^^1

 +188     ;;M6^NATIONAL^1^^1

 +189     ;;M7^NATIONAL^1^^1

 +190     ;;M8^NATIONAL^1^^1

 +191     ;;M9^NATIONAL^1^^1

 +192     ;;N0^NATIONAL^1^^1

 +193     ;;N1^NATIONAL^1^^1

 +194     ;;N2^NATIONAL^1^^1

 +195     ;;N3^NATIONAL^1^^1

 +196     ;;N4^NATIONAL^1^^1

 +197     ;;N5^NATIONAL^1^^1

 +198     ;;N6^NATIONAL^1^^1

 +199     ;;N7^NATIONAL^1^^1

 +200     ;;N8^NATIONAL^1^^1

 +201     ;;N9^NATIONAL^1^^1

 +202     ;;O0^NATIONAL^1^^1

 +203     ;;O1^NATIONAL^1^^1

 +204     ;;O2^NATIONAL^1^^1

 +205     ;;O3^NATIONAL^1^^1

 +206     ;;O4^NATIONAL^1^^1

 +207     ;;O5^NATIONAL^1^^1

 +208     ;;O6^NATIONAL^1^^1

 +209     ;;O7^NATIONAL^1^^1

 +210     ;;O8^NATIONAL^1^^1

 +211     ;;O9^NATIONAL^1^^1

 +212     ;;P0^NATIONAL^1^^1

 +213     ;;P1^NATIONAL^1^^1

 +214     ;;P2^NATIONAL^1^^1

 +215     ;;P3^NATIONAL^1^^1

 +216     ;;P4^NATIONAL^1^^1

 +217     ;;P5^NATIONAL^1^^1

 +218     ;;P6^NATIONAL^1^^1

 +219     ;;P7^NATIONAL^1^^1

 +220     ;;P8^NATIONAL^1^^1

 +221     ;;P9^NATIONAL^1^^1

 +222     ;;Q0^NATIONAL^1^^1

 +223     ;;Q1^NATIONAL^1^^1

 +224     ;;Q2^NATIONAL^1^^1

 +225     ;;Q3^NATIONAL^1^^1

 +226     ;;Q4^NATIONAL^1^^1

 +227     ;;Q5^NATIONAL^1^^1

 +228     ;;Q6^NATIONAL^1^^1

 +229     ;;Q7^NATIONAL^1^^1

 +230     ;;Q8^NATIONAL^1^^1

 +231     ;;Q9^NATIONAL^1^^1

 +232     ;;R0^NATIONAL^1^^1

 +233     ;;R1^NATIONAL^1^^1

 +234     ;;R2^NATIONAL^1^^1

 +235     ;;R3^NATIONAL^1^^1

 +236     ;;R4^NATIONAL^1^^1

 +237     ;;R5^NATIONAL^1^^1

 +238     ;;R6^NATIONAL^1^^1

 +239     ;;R7^NATIONAL^1^^1

 +240     ;;R8^NATIONAL^1^^1

 +241     ;;R9^NATIONAL^1^^1

 +242     ;;S0^NATIONAL^1^^1

 +243     ;;S1^NATIONAL^1^^1

 +244     ;;S2^NATIONAL^1^^1

 +245     ;;S3^NATIONAL^1^^1

 +246     ;;S4^NATIONAL^1^^1

 +247     ;;S5^NATIONAL^1^^1

 +248     ;;S6^NATIONAL^1^^1

 +249     ;;S7^NATIONAL^1^^1

 +250     ;;S8^NATIONAL^1^^1

 +251     ;;S9^NATIONAL^1^^1

 +252     ;;T0^NATIONAL^1^^1

 +253     ;;T1^NATIONAL^1^^1

 +254     ;;T2^NATIONAL^1^^1

 +255     ;;T3^NATIONAL^1^^1

 +256     ;;T4^NATIONAL^1^^1

 +257     ;;T5^NATIONAL^1^^1

 +258     ;;T6^NATIONAL^1^^1

 +259     ;;T7^NATIONAL^1^^1

 +260     ;;T8^NATIONAL^1^^1

 +261     ;;T9^NATIONAL^1^^1

 +262     ;;U0^NATIONAL^1^^1

 +263     ;;U1^NATIONAL^1^^1

 +264     ;;U2^NATIONAL^1^^1

 +265     ;;U3^NATIONAL^1^^1

 +266     ;;U4^NATIONAL^1^^1

 +267     ;;U5^NATIONAL^1^^1

 +268     ;;U6^NATIONAL^1^^1

 +269     ;;U7^NATIONAL^1^^1

 +270     ;;U8^NATIONAL^1^^1

 +271     ;;U9^NATIONAL^1^^1

 +272     ;;V0^NATIONAL^1^^1

 +273     ;;V1^NATIONAL^1^^1

 +274     ;;V2^NATIONAL^1^^1

 +275     ;;V3^NATIONAL^1^^1

 +276     ;;V4^NATIONAL^1^^1

 +277     ;;V5^NATIONAL^1^^1

 +278     ;;V6^NATIONAL^1^^1

 +279     ;;V7^NATIONAL^1^^1

 +280     ;;V8^NATIONAL^1^^1

 +281     ;;V9^NATIONAL^1^^1

 +282     ;;W0^NATIONAL^1^^1

 +283     ;;W1^NATIONAL^1^^1

 +284     ;;W2^NATIONAL^1^^1

 +285     ;;W3^NATIONAL^1^^1

 +286     ;;W4^NATIONAL^1^^1

 +287     ;;W5^NATIONAL^1^^1

 +288     ;;W6^NATIONAL^1^^1

 +289     ;;W7^NATIONAL^1^^1

 +290     ;;W8^NATIONAL^1^^1

 +291     ;;W9^NATIONAL^1^^1