AG71POST.m

AG71POST ;IHS/SD/TPF - POST INSTALL TO PLACE SITE MANDATORY FIELDS DATA INTO THE REGISTRATION PARAMTER FILE

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

START ;EP

 ;FOR ALL SITES IN THE REGISTRATION FILE

 S AGIEN=0

 F  S AGIEN=$O(^AGFAC(AGIEN)) Q:+AGIEN=0  D

 .K ^AGFAC(AGIEN,11)

 .D POPULATE(AGIEN)

 Q

POPULATE(AGFACIEN)       ;EP

 F LINE=1:2 S NODE=$P($T(DATA+LINE),";;",2) Q:NODE="*END*"  S DATA=$P($T(DATA+LINE+1),";;",2)  D

 .S @NODE=DATA

 Q

DATA ;

 ;;^AGFAC(AGIEN,11,0)

 ;;^9009061.11P^12^9

 ;;^AGFAC(AGIEN,11,1,0)

 ;;2

 ;;^AGFAC(AGIEN,11,1,1,0)

 ;;^9009061.1101^15^8

 ;;^AGFAC(AGIEN,11,1,1,1,0)

 ;;SSN^1

 ;;^AGFAC(AGIEN,11,1,1,4,0)

 ;;EMPLOYMENT STATUS^1

 ;;^AGFAC(AGIEN,11,1,1,5,0)

 ;;EMPLOYER NAME^1

 ;;^AGFAC(AGIEN,11,1,1,9,0)

 ;;MAILING ADDRESS-STREET^1

 ;;^AGFAC(AGIEN,11,1,1,12,0)

 ;;MAILING ADDRESS-CITY^1

 ;;^AGFAC(AGIEN,11,1,1,13,0)

 ;;MAILING ADDRESS-ZIP^1

 ;;^AGFAC(AGIEN,11,1,1,14,0)

 ;;HOME PHONE^1

 ;;^AGFAC(AGIEN,11,1,1,15,0)

 ;;MAILING ADDRESS-STATE^1

 ;;^AGFAC(AGIEN,11,1,1,"B","EMPLOYER NAME",5)

 ;;

 ;;^AGFAC(AGIEN,11,1,1,"B","EMPLOYMENT STATUS",4)

 ;;

 ;;^AGFAC(AGIEN,11,1,1,"B","HOME PHONE",14)

 ;;

 ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-CITY",12)

 ;;

 ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-STATE",15)

 ;;

 ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-STREET",9)

 ;;

 ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-ZIP",13)

 ;;

 ;;^AGFAC(AGIEN,11,1,1,"B","SSN",1)

 ;;

 ;;^AGFAC(AGIEN,11,3,0)

 ;;9000004

 ;;^AGFAC(AGIEN,11,3,1,0)

 ;;^9009061.1101^4^4

 ;;^AGFAC(AGIEN,11,3,1,1,0)

 ;;POLICY HOLDER^1

 ;;^AGFAC(AGIEN,11,3,1,2,0)

 ;;RELATIONSHIP TO INSURED^1

 ;;^AGFAC(AGIEN,11,3,1,3,0)

 ;;GROUP NAME^1

 ;;^AGFAC(AGIEN,11,3,1,4,0)

 ;;MEDICAID DATE OF BIRTH^1

 ;;^AGFAC(AGIEN,11,3,1,"B","GROUP NAME",3)

 ;;

 ;;^AGFAC(AGIEN,11,3,1,"B","MEDICAID DATE OF BIRTH",4)

 ;;

 ;;^AGFAC(AGIEN,11,3,1,"B","POLICY HOLDER",1)

 ;;

 ;;^AGFAC(AGIEN,11,3,1,"B","RELATIONSHIP TO INSURED",2)

 ;;

 ;;^AGFAC(AGIEN,11,4,0)

 ;;9000003

 ;;^AGFAC(AGIEN,11,4,1,0)

 ;;^9009061.1101^1^1

 ;;^AGFAC(AGIEN,11,4,1,1,0)

 ;;MEDICARE DATE OF BIRTH^1

 ;;^AGFAC(AGIEN,11,4,1,"B","MEDICARE DATE OF BIRTH",1)

 ;;

 ;;^AGFAC(AGIEN,11,5,0)

 ;;9000003.1

 ;;^AGFAC(AGIEN,11,5,1,0)

 ;;^9009061.1101^9^9

 ;;^AGFAC(AGIEN,11,5,1,1,0)

 ;;POLICY NUMBER^1

 ;;^AGFAC(AGIEN,11,5,1,2,0)

 ;;GROUP NAME^1

 ;;^AGFAC(AGIEN,11,5,1,3,0)

 ;;HOLDER'S ADDRESS - CITY^1

 ;;^AGFAC(AGIEN,11,5,1,4,0)

 ;;HOLDER'S ADDRESS - STATE^1

 ;;^AGFAC(AGIEN,11,5,1,5,0)

 ;;HOLDER'S ADDRESS - STREET^1

 ;;^AGFAC(AGIEN,11,5,1,6,0)

 ;;HOLDER'S ADDRESS - ZIP^1

 ;;^AGFAC(AGIEN,11,5,1,7,0)

 ;;HOLDER'S TELEPHONE NUMBER^1

 ;;^AGFAC(AGIEN,11,5,1,8,0)

 ;;HOLDER'S EMPLOYMENT STATUS^1

 ;;^AGFAC(AGIEN,11,5,1,9,0)

 ;;DATE  OF BIRTH^1

 ;;^AGFAC(AGIEN,11,5,1,"B","DATE OF BIRTH",9)

 ;;

 ;;^AGFAC(AGIEN,11,5,1,"B","GROUP NAME",2)

 ;;

 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - CITY",3)

 ;;

 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - STATE",4)

 ;;

 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - STREET",5)

 ;;

 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - ZIP",6)

 ;;

 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S EMPLOYMENT STATUS",8)

 ;;

 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S TELEPHONE NUMBER",7)

 ;;

 ;;^AGFAC(AGIEN,11,5,1,"B","POLICY NUMBER",1)

 ;;

 ;;^AGFAC(AGIEN,11,6,0)

 ;;9000005

 ;;^AGFAC(AGIEN,11,6,1,0)

 ;;^9009061.1101^2^2

 ;;^AGFAC(AGIEN,11,6,1,1,0)

 ;;RAILROAD NAME^1

 ;;^AGFAC(AGIEN,11,6,1,2,0)

 ;;RAILROAD DATE OF BIRTH^1

 ;;^AGFAC(AGIEN,11,6,1,"B","RAILROAD DATE OF BIRTH",2)

 ;;

 ;;^AGFAC(AGIEN,11,6,1,"B","RAILROAD NAME",1)

 ;;

 ;;^AGFAC(AGIEN,11,7,0)

 ;;9000041

 ;;^AGFAC(AGIEN,11,7,1,0)

 ;;^9009061.1101^1^1

 ;;^AGFAC(AGIEN,11,7,1,1,0)

 ;;POLICY NUMBER^1

 ;;^AGFAC(AGIEN,11,7,1,"B","POLICY NUMBER",1)

 ;;

 ;;^AGFAC(AGIEN,11,8,0)

 ;;9000043

 ;;^AGFAC(AGIEN,11,8,1,0)

 ;;^9009061.1101^5^5

 ;;^AGFAC(AGIEN,11,8,1,1,0)

 ;;GUARANTOR^1

 ;;^AGFAC(AGIEN,11,8,1,2,0)

 ;;REFERENCE NUMBER^1

 ;;^AGFAC(AGIEN,11,8,1,3,0)

 ;;DATE OF BIRTH^1

 ;;^AGFAC(AGIEN,11,8,1,4,0)

 ;;GENDER^1

 ;;^AGFAC(AGIEN,11,8,1,5,0)

 ;;EFFECTIVE DATE^1

 ;;^AGFAC(AGIEN,11,8,1,"B","DATE OF BIRTH",3)

 ;;

 ;;^AGFAC(AGIEN,11,8,1,"B","EFFECTIVE DATE",5)

 ;;

 ;;^AGFAC(AGIEN,11,8,1,"B","GENDER",4)

 ;

 ;;^AGFAC(AGIEN,11,8,1,"B","GUARANTOR",1)

 ;;

 ;;^AGFAC(AGIEN,11,8,1,"B","REFERENCE NUMBER",2)

 ;;

 ;;^AGFAC(AGIEN,11,10,0)

 ;;9999999.75

 ;;^AGFAC(AGIEN,11,10,1,0)

 ;;^9009061.1101^4^4

 ;;^AGFAC(AGIEN,11,10,1,1,0)

 ;;STREET ADDRESS^1

 ;;^AGFAC(AGIEN,11,10,1,2,0)

 ;;CITY^1

 ;;^AGFAC(AGIEN,11,10,1,3,0)

 ;;STATE^1

 ;;^AGFAC(AGIEN,11,10,1,4,0)

 ;;ZIP^1

 ;;^AGFAC(AGIEN,11,10,1,"B","CITY",2)

 ;;

 ;;^AGFAC(AGIEN,11,10,1,"B","STATE",3)

 ;;

 ;;^AGFAC(AGIEN,11,10,1,"B","STREET ADDRESS",1)

 ;;

 ;;^AGFAC(AGIEN,11,10,1,"B","ZIP",4)

 ;;

 ;;^AGFAC(AGIEN,11,12,0)

 ;;9000001

 ;;^AGFAC(AGIEN,11,12,1,0)

 ;;^9009061.1101^3^3

 ;;^AGFAC(AGIEN,11,12,1,1,0)

 ;;EMPLOYMENT STATUS^1

 ;;^AGFAC(AGIEN,11,12,1,2,0)

 ;;EMPLOYER NAME^1

 ;;^AGFAC(AGIEN,11,12,1,3,0)

 ;;RELEASE OF INFORMATION^1

 ;;^AGFAC(AGIEN,11,12,1,"B","EMPLOYER NAME",2)

 ;;

 ;;^AGFAC(AGIEN,11,12,1,"B","EMPLOYMENT STATUS",1)

 ;;

 ;;^AGFAC(AGIEN,11,12,1,"B","RELEASE OF INFORMATION",3)

 ;;

 ;;^AGFAC(AGIEN,11,"B",2,1)

 ;;

 ;;^AGFAC(AGIEN,11,"B",9000001,12)

 ;;

 ;;^AGFAC(AGIEN,11,"B",9000003,4)

 ;;

 ;;^AGFAC(AGIEN,11,"B",9000003.1,5)

 ;;

 ;;^AGFAC(AGIEN,11,"B",9000004,3)

 ;;

 ;;^AGFAC(AGIEN,11,"B",9000005,6)

 ;;

 ;;^AGFAC(AGIEN,11,"B",9000041,7)

 ;;

 ;;^AGFAC(AGIEN,11,"B",9000043,8)

 ;;

 ;;*END*

AG71POST  ;IHS/SD/TPF - POST INSTALL TO PLACE SITE MANDATORY FIELDS DATA INTO THE REGISTRATION PARAMTER FILE

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

START     ;EP

 +1       ;FOR ALL SITES IN THE REGISTRATION FILE

 +2        SET AGIEN=0

 +3        FOR 

               SET AGIEN=$ORDER(^AGFAC(AGIEN))

               IF +AGIEN=0

                   QUIT 

               Begin DoDot:1

 +4                KILL ^AGFAC(AGIEN,11)

 +5                DO POPULATE(AGIEN)

               End DoDot:1

 +6        QUIT 

POPULATE(AGFACIEN) ;EP

 +1        FOR LINE=1:2

               SET NODE=$PIECE($TEXT(DATA+LINE),";;",2)

               IF NODE="*END*"

                   QUIT 

               SET DATA=$PIECE($TEXT(DATA+LINE+1),";;",2)

               Begin DoDot:1

 +2                SET @NODE=DATA

               End DoDot:1

 +3        QUIT 

DATA      ;

 +1       ;;^AGFAC(AGIEN,11,0)

 +2       ;;^9009061.11P^12^9

 +3       ;;^AGFAC(AGIEN,11,1,0)

 +4       ;;2

 +5       ;;^AGFAC(AGIEN,11,1,1,0)

 +6       ;;^9009061.1101^15^8

 +7       ;;^AGFAC(AGIEN,11,1,1,1,0)

 +8       ;;SSN^1

 +9       ;;^AGFAC(AGIEN,11,1,1,4,0)

 +10      ;;EMPLOYMENT STATUS^1

 +11      ;;^AGFAC(AGIEN,11,1,1,5,0)

 +12      ;;EMPLOYER NAME^1

 +13      ;;^AGFAC(AGIEN,11,1,1,9,0)

 +14      ;;MAILING ADDRESS-STREET^1

 +15      ;;^AGFAC(AGIEN,11,1,1,12,0)

 +16      ;;MAILING ADDRESS-CITY^1

 +17      ;;^AGFAC(AGIEN,11,1,1,13,0)

 +18      ;;MAILING ADDRESS-ZIP^1

 +19      ;;^AGFAC(AGIEN,11,1,1,14,0)

 +20      ;;HOME PHONE^1

 +21      ;;^AGFAC(AGIEN,11,1,1,15,0)

 +22      ;;MAILING ADDRESS-STATE^1

 +23      ;;^AGFAC(AGIEN,11,1,1,"B","EMPLOYER NAME",5)

 +24      ;;

 +25      ;;^AGFAC(AGIEN,11,1,1,"B","EMPLOYMENT STATUS",4)

 +26      ;;

 +27      ;;^AGFAC(AGIEN,11,1,1,"B","HOME PHONE",14)

 +28      ;;

 +29      ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-CITY",12)

 +30      ;;

 +31      ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-STATE",15)

 +32      ;;

 +33      ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-STREET",9)

 +34      ;;

 +35      ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-ZIP",13)

 +36      ;;

 +37      ;;^AGFAC(AGIEN,11,1,1,"B","SSN",1)

 +38      ;;

 +39      ;;^AGFAC(AGIEN,11,3,0)

 +40      ;;9000004

 +41      ;;^AGFAC(AGIEN,11,3,1,0)

 +42      ;;^9009061.1101^4^4

 +43      ;;^AGFAC(AGIEN,11,3,1,1,0)

 +44      ;;POLICY HOLDER^1

 +45      ;;^AGFAC(AGIEN,11,3,1,2,0)

 +46      ;;RELATIONSHIP TO INSURED^1

 +47      ;;^AGFAC(AGIEN,11,3,1,3,0)

 +48      ;;GROUP NAME^1

 +49      ;;^AGFAC(AGIEN,11,3,1,4,0)

 +50      ;;MEDICAID DATE OF BIRTH^1

 +51      ;;^AGFAC(AGIEN,11,3,1,"B","GROUP NAME",3)

 +52      ;;

 +53      ;;^AGFAC(AGIEN,11,3,1,"B","MEDICAID DATE OF BIRTH",4)

 +54      ;;

 +55      ;;^AGFAC(AGIEN,11,3,1,"B","POLICY HOLDER",1)

 +56      ;;

 +57      ;;^AGFAC(AGIEN,11,3,1,"B","RELATIONSHIP TO INSURED",2)

 +58      ;;

 +59      ;;^AGFAC(AGIEN,11,4,0)

 +60      ;;9000003

 +61      ;;^AGFAC(AGIEN,11,4,1,0)

 +62      ;;^9009061.1101^1^1

 +63      ;;^AGFAC(AGIEN,11,4,1,1,0)

 +64      ;;MEDICARE DATE OF BIRTH^1

 +65      ;;^AGFAC(AGIEN,11,4,1,"B","MEDICARE DATE OF BIRTH",1)

 +66      ;;

 +67      ;;^AGFAC(AGIEN,11,5,0)

 +68      ;;9000003.1

 +69      ;;^AGFAC(AGIEN,11,5,1,0)

 +70      ;;^9009061.1101^9^9

 +71      ;;^AGFAC(AGIEN,11,5,1,1,0)

 +72      ;;POLICY NUMBER^1

 +73      ;;^AGFAC(AGIEN,11,5,1,2,0)

 +74      ;;GROUP NAME^1

 +75      ;;^AGFAC(AGIEN,11,5,1,3,0)

 +76      ;;HOLDER'S ADDRESS - CITY^1

 +77      ;;^AGFAC(AGIEN,11,5,1,4,0)

 +78      ;;HOLDER'S ADDRESS - STATE^1

 +79      ;;^AGFAC(AGIEN,11,5,1,5,0)

 +80      ;;HOLDER'S ADDRESS - STREET^1

 +81      ;;^AGFAC(AGIEN,11,5,1,6,0)

 +82      ;;HOLDER'S ADDRESS - ZIP^1

 +83      ;;^AGFAC(AGIEN,11,5,1,7,0)

 +84      ;;HOLDER'S TELEPHONE NUMBER^1

 +85      ;;^AGFAC(AGIEN,11,5,1,8,0)

 +86      ;;HOLDER'S EMPLOYMENT STATUS^1

 +87      ;;^AGFAC(AGIEN,11,5,1,9,0)

 +88      ;;DATE  OF BIRTH^1

 +89      ;;^AGFAC(AGIEN,11,5,1,"B","DATE OF BIRTH",9)

 +90      ;;

 +91      ;;^AGFAC(AGIEN,11,5,1,"B","GROUP NAME",2)

 +92      ;;

 +93      ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - CITY",3)

 +94      ;;

 +95      ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - STATE",4)

 +96      ;;

 +97      ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - STREET",5)

 +98      ;;

 +99      ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - ZIP",6)

 +100     ;;

 +101     ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S EMPLOYMENT STATUS",8)

 +102     ;;

 +103     ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S TELEPHONE NUMBER",7)

 +104     ;;

 +105     ;;^AGFAC(AGIEN,11,5,1,"B","POLICY NUMBER",1)

 +106     ;;

 +107     ;;^AGFAC(AGIEN,11,6,0)

 +108     ;;9000005

 +109     ;;^AGFAC(AGIEN,11,6,1,0)

 +110     ;;^9009061.1101^2^2

 +111     ;;^AGFAC(AGIEN,11,6,1,1,0)

 +112     ;;RAILROAD NAME^1

 +113     ;;^AGFAC(AGIEN,11,6,1,2,0)

 +114     ;;RAILROAD DATE OF BIRTH^1

 +115     ;;^AGFAC(AGIEN,11,6,1,"B","RAILROAD DATE OF BIRTH",2)

 +116     ;;

 +117     ;;^AGFAC(AGIEN,11,6,1,"B","RAILROAD NAME",1)

 +118     ;;

 +119     ;;^AGFAC(AGIEN,11,7,0)

 +120     ;;9000041

 +121     ;;^AGFAC(AGIEN,11,7,1,0)

 +122     ;;^9009061.1101^1^1

 +123     ;;^AGFAC(AGIEN,11,7,1,1,0)

 +124     ;;POLICY NUMBER^1

 +125     ;;^AGFAC(AGIEN,11,7,1,"B","POLICY NUMBER",1)

 +126     ;;

 +127     ;;^AGFAC(AGIEN,11,8,0)

 +128     ;;9000043

 +129     ;;^AGFAC(AGIEN,11,8,1,0)

 +130     ;;^9009061.1101^5^5

 +131     ;;^AGFAC(AGIEN,11,8,1,1,0)

 +132     ;;GUARANTOR^1

 +133     ;;^AGFAC(AGIEN,11,8,1,2,0)

 +134     ;;REFERENCE NUMBER^1

 +135     ;;^AGFAC(AGIEN,11,8,1,3,0)

 +136     ;;DATE OF BIRTH^1

 +137     ;;^AGFAC(AGIEN,11,8,1,4,0)

 +138     ;;GENDER^1

 +139     ;;^AGFAC(AGIEN,11,8,1,5,0)

 +140     ;;EFFECTIVE DATE^1

 +141     ;;^AGFAC(AGIEN,11,8,1,"B","DATE OF BIRTH",3)

 +142     ;;

 +143     ;;^AGFAC(AGIEN,11,8,1,"B","EFFECTIVE DATE",5)

 +144     ;;

 +145     ;;^AGFAC(AGIEN,11,8,1,"B","GENDER",4)

 +146     ;

 +147     ;;^AGFAC(AGIEN,11,8,1,"B","GUARANTOR",1)

 +148     ;;

 +149     ;;^AGFAC(AGIEN,11,8,1,"B","REFERENCE NUMBER",2)

 +150     ;;

 +151     ;;^AGFAC(AGIEN,11,10,0)

 +152     ;;9999999.75

 +153     ;;^AGFAC(AGIEN,11,10,1,0)

 +154     ;;^9009061.1101^4^4

 +155     ;;^AGFAC(AGIEN,11,10,1,1,0)

 +156     ;;STREET ADDRESS^1

 +157     ;;^AGFAC(AGIEN,11,10,1,2,0)

 +158     ;;CITY^1

 +159     ;;^AGFAC(AGIEN,11,10,1,3,0)

 +160     ;;STATE^1

 +161     ;;^AGFAC(AGIEN,11,10,1,4,0)

 +162     ;;ZIP^1

 +163     ;;^AGFAC(AGIEN,11,10,1,"B","CITY",2)

 +164     ;;

 +165     ;;^AGFAC(AGIEN,11,10,1,"B","STATE",3)

 +166     ;;

 +167     ;;^AGFAC(AGIEN,11,10,1,"B","STREET ADDRESS",1)

 +168     ;;

 +169     ;;^AGFAC(AGIEN,11,10,1,"B","ZIP",4)

 +170     ;;

 +171     ;;^AGFAC(AGIEN,11,12,0)

 +172     ;;9000001

 +173     ;;^AGFAC(AGIEN,11,12,1,0)

 +174     ;;^9009061.1101^3^3

 +175     ;;^AGFAC(AGIEN,11,12,1,1,0)

 +176     ;;EMPLOYMENT STATUS^1

 +177     ;;^AGFAC(AGIEN,11,12,1,2,0)

 +178     ;;EMPLOYER NAME^1

 +179     ;;^AGFAC(AGIEN,11,12,1,3,0)

 +180     ;;RELEASE OF INFORMATION^1

 +181     ;;^AGFAC(AGIEN,11,12,1,"B","EMPLOYER NAME",2)

 +182     ;;

 +183     ;;^AGFAC(AGIEN,11,12,1,"B","EMPLOYMENT STATUS",1)

 +184     ;;

 +185     ;;^AGFAC(AGIEN,11,12,1,"B","RELEASE OF INFORMATION",3)

 +186     ;;

 +187     ;;^AGFAC(AGIEN,11,"B",2,1)

 +188     ;;

 +189     ;;^AGFAC(AGIEN,11,"B",9000001,12)

 +190     ;;

 +191     ;;^AGFAC(AGIEN,11,"B",9000003,4)

 +192     ;;

 +193     ;;^AGFAC(AGIEN,11,"B",9000003.1,5)

 +194     ;;

 +195     ;;^AGFAC(AGIEN,11,"B",9000004,3)

 +196     ;;

 +197     ;;^AGFAC(AGIEN,11,"B",9000005,6)

 +198     ;;

 +199     ;;^AGFAC(AGIEN,11,"B",9000041,7)

 +200     ;;

 +201     ;;^AGFAC(AGIEN,11,"B",9000043,8)

 +202     ;;

 +203     ;;*END*