PSN565PO ;BIR/SJA-Post install routine for patch PSN*4*565 ; 02 Aug 2018 2:00 PM
;;4.0;NATIONAL DRUG FILE;**565**; 30 Oct 98;Build 16
;
Q
POST ; entry point
N CNT,DATA,II,NAME,NODE1,PSNDA
S CNT=4 K ^TMP("PSN",$J)
D BMES^XPDUTL(" Starting post-install for PSN*4*565")
D BMES^XPDUTL(" Restore GCNSEQNO field for specific VA Products....")
F II=1:1 S DATA=$P($T(@("LIST+"_II_"^PSN565PO")),";;",2) Q:DATA="" D
. S PSNDA=+DATA,NAME=$E($P($G(^PSNDF(50.68,PSNDA,0)),"^"),1,40),NODE1=$G(^PSNDF(50.68,PSNDA,1))
. I $D(^PSNDF(50.68,PSNDA,0)),'$P(NODE1,"^",5) S $P(^PSNDF(50.68,PSNDA,1),"^",5)=$E(1000000+$P(DATA,",",2),2,7) D
. . S CNT=CNT+1,^TMP("PSN",$J,CNT)=PSNDA_$J("",15-$L(PSNDA))_NAME_$J("",50-$L(NAME))_$E(1000000+$P(DATA,",",2),2,7)
D EN^PSN565P1
D MSG K ^TMP("PSN",$J)
; delete routine PSN565P1
S X="PSN565P1" X ^%ZOSF("TEST") I $T D MES^XPDUTL(" Deleting routine "_X_"...") X ^%ZOSF("DEL")
D BMES^XPDUTL(" Finished post-install for PSN*4*565")
Q
;
MSG ; Sends Mailman message about updates
N XMX,XMSUB,XMDUZ,XMTEXT
S II=0 F S II=$O(^XUSEC("PSNMGR",II)) Q:'II S XMY(II)=""
S XMY(DUZ)="",XMSUB="PSN*4*565 - GCNSEQNO field Update"
S ^TMP("PSN",$J,1)="The post-install routine restored the GCNSEQNO field value for the following VA PRODUCT entries:"
S ^TMP("PSN",$J,2)=""
S ^TMP("PSN",$J,3)="VA Product # Product Name GCNSEQNO "
S ^TMP("PSN",$J,4)="------------ ---------------------------------------- --------"
S:'$D(^TMP("PSN",$J,5)) ^TMP("PSN",$J,5)="No updates performed."
S XMDUZ=.5,XMTEXT="^TMP(""PSN"",$J," N DIFROM D ^XMD
Q
LIST ; VA PRODUCT entries missing GCNSEQNO field
;;1,4826
;;30,4175
;;38,4174
;;61,224
;;108,3577
;;111,3586
;;196,8873
;;211,43349
;;230,16065
;;252,22345
;;256,22345
;;288,3262
;;311,8809
;;329,5053
;;426,2142
;;429,2118
;;459,1220
;;498,8084
;;521,3147
;;532,24137
;;560,3603
;;569,9283
;;585,327
;;586,326
;;597,4278
;;598,2549
;;610,7480
;;611,4647
;;648,64586
;;662,4261
;;706,64537
;;707,64539
;;815,15536
;;816,15537
;;894,6997
;;943,8295
;;970,21205
;;985,7682
;;991,7679
;;1027,26869
;;1029,26869
;;1073,3202
;;1075,3203
;;1079,3117
;;1144,2492
;;1145,48094
;;1158,2251
;;1164,63385
;;1170,1386
;;1177,39753
;;1178,2511
;;1196,39742
;;1209,67478
;;1210,2477
;;1231,15466
;;1260,2510
;;1272,2477
;;1283,42926
;;1303,3167
;;1327,3648
;;1328,3656
;;1341,4675
;;1357,9218
;;1358,9223
;;1359,9219
;;1365,15943
;;1366,16815
;;1404,63829
;;1457,62033
;;1461,2523
;;1472,59703
;;1475,2532
;;1478,2470
;;1480,2470
;;1484,2475
;;1488,2532
;;1500,2522
;;1501,2470
;;1502,2523
;;1514,2530
;;1520,2532
;;1522,2482
;;1530,6440
;;1534,6435
;;1535,2470
;;1541,2524
;;1579,4755
;;1631,59782
;;1639,36045
;;1640,36047
;;1641,36046
;;1651,66719
;;1688,4767
;;1715,48548
;;1725,516
;;1727,517
;;1842,4167
;;1855,4734
;;1914,4521
;;1921,4521
;;1978,43762
;;2168,45266
;;2169,45266
;;2173,5230
;;2184,6503
;;2317,66111
;;2394,8366
;;2409,8259
;;2439,62665
;;2486,4220
;;2487,4222
;;2488,4221
;;2490,4223
;;2590,3310
;;2618,3314
;;2621,3314
;;2625,3314
;;2770,6551
;;2802,4515
;;2803,4513
;;2821,4217
;;2833,17240
;;2835,62407
;;2884,65025
;;2885,65028
;;2963,23796
;;2966,31755
;;2971,48544
;;2981,8818
;;2984,8817
;;2992,61483
;;3004,4746
;;3005,1272
;;3070,25697
;;3071,25698
;;3094,93
;;3200,8821
;;3207,4024
;;3225,64635
;;3251,9278
;;3286,8910
;;3415,64266
;;3465,65849
;;3472,7650
;;3484,7414
;;3485,7415
;;3506,4029
;;3521,41745
;;3551,7818
;;3568,62018
;;3569,62014
;;3599,6209
;;3603,75213
;;3659,70911
;;3725,4760
;;3791,4291
;;3825,60678
;;3849,7409
;;3857,38861
;;3858,38861
;;3859,38861
;;4045,17179
;;4069,63153
;;4092,3237
;;4147,15353
;;4168,45669
;;4173,59297
;;4189,59216
;;4216,7522
;;4219,47096
;;4236,3613
;;4239,3617
;;4256,130
;;4257,132
;;4259,133
;;4265,170
;;4266,48478
;;4305,64271
;;4357,59738
;;4372,16025
;;4376,2623
;;4392,66497
;;4410,4204
;;4411,4199
;;4412,4206
;;4417,4207
;;4418,4202
;;4419,4205
;;4420,16899
;;4423,26439
;;4529,3998
;;4546,4503
;;4560,6599
;;4565,1707
;;4638,3990
;;4639,3987
;;4640,3989
;;4641,3991
;;4644,4518
;;4658,23446
;;4687,3290
;;4692,3294
;;4693,3295
;;4724,3295
;;4733,7006
;;4753,5810
;;4754,5813
;;4780,2348
;;4848,910
;;4867,749
;;4928,652
;;4933,66240
;;4953,7806
;;4982,7869
;;4986,4836
;;5067,4777
;;5091,4901
;;5093,45003
;;5103,30255
;;5112,29054
;;5190,4385
;;5266,6762
;;5313,5763
;;5317,5792
;;5335,63556
;;5338,63564
;;5374,1242
;;5388,62013
;;5393,62014
;;5394,62015
;;5404,2018
;;5405,48631
;;5452,1965
;;5518,1189
;;5547,6364
;;5599,48620
;;5646,63537
;;5647,1814
;;5659,3376
;;5662,1285
;;5671,4535
;;5672,4535
;;5687,2013
;;5699,2015
;;5705,2012
;;5767,1233
;;5768,1233
;;5776,20614
;;5792,11990
;;5817,996
;;5819,16967
;;5848,2380
;;5897,53015
;;5911,27826
;;5913,13047
;;6034,11644
;;6039,8078
;;6095,4458
;;6114,62885
;;6119,13675
;;6130,1240
;;6148,570
;;6151,16849
;;6152,16850
;;6153,16572
;;6155,16570
;;6156,16571
;;6157,17205
;;6158,21282
;;6159,24536
;;6160,24537
;;6161,24538
;;6162,24539
;;6163,24478
;;6164,571
;;6165,572
;;6166,21282
;;6180,4311
;;6181,4312
;;6225,2400
;;6232,5000
;;6234,47133
;;6236,5001
;;6273,1154
;;6300,11663
;;6402,1711
;;6464,61353
;;6484,6315
;;6486,33862
;;6489,6303
;;6490,47875
;;6543,8250
;;6545,17000
;;6562,25061
;;6606,8893
;;6607,8887
;;6608,8889
;;6609,8888
;;6637,1515
;;6640,4491
;;6858,1688
;;6871,45242
;;6908,53698
;;6980,48556
;;7017,644
;;7031,45243
;;7032,45244
;;7033,45243
;;7046,1718
;;7054,7601
;;7077,2082
;;7080,9582
;;7081,9583
;;7091,5737
;;7094,5738
;;7140,4114
;;7175,16653
;;7291,9676
;;7309,3542
;;7354,13021
;;7380,48555
;;7448,12076
;;7474,48395
;;7588,1340
;;7644,19923
;;7648,4747
;;7673,7209
;;7674,7216
;;7685,13673
;;7700,15762
;;7761,61935
;;7782,31427
;;7819,9813
;;7842,16879
;;7878,8322
;;7880,8321
;;7882,5637
;;7884,14291
;;7894,15953
;;7898,2701
;;7916,5352
;;7917,5350
;;7918,64363
;;7920,8515
;;7921,5349
;;7931,60636
;;7946,65585
;;7967,2948
;;7980,16811
;;7981,16812
;;7982,16813
;;7991,2984
;;7992,2983
;;8002,61709
;;8051,64530
;;8054,3046
;;8061,35527
;;8077,14134
;;8078,63178
;;8079,7993
;;8080,14134
;;8094,1602
;;8096,63050
;;8129,65583
;;8156,9183
;;8170,61254
;;8225,7513
;;8226,7546
;;8241,48754
;;8242,48754
;;8281,1628
;;8304,71662
;;8319,33530
;;8320,43136
;;8434,25696
;;8459,2681
;;8469,7772
;;8473,7785
;;8490,2819
;;8508,23759
;;8527,46237
;;8528,31439
;;8577,2860
;;8686,52108
;;8694,2551
;;8703,8640
;;8738,8323
;;8750,23473
;;8754,3027
;;8755,3027
;;8767,3030
;;8813,29260
;;8826,15872
;;8834,23187
;;8870,14972
;;8882,63623
;;8890,22061
;;8911,63178
;;8912,63178
;;8913,7993
;;8939,5338
;;8961,46293
;;9049,5610
;;9067,24168
;;9089,16014
;;9091,38335
;;9134,70603
;;9135,58644
;;9269,5291
;;9295,15906
;;9375,7166
;;9379,60663
;;9406,8480
;;9412,5352
;;9461,1933
;;9462,1933
;;9464,1933
;;9465,1913
;;9466,1913
;;9478,65369
;;9492,13755
;;9564,7233
;;9616,8522
;;9632,6042
;;9639,23952
;;9641,21704
;;9726,47040
;;9731,18368
;;9745,16280
;;9771,60113
;;9847,74302
;;9848,2849
;;9879,14282
;;9908,17206
;;9962,7188
;;9966,6939
;;10017,5579
;;10064,8522
;;10132,48223
;;10147,7284
;;10183,11514
;;11299,10468
;;11574,61638
;;11723,63927
;;11750,8318
;;11815,46403
;;11930,66298
;;11935,66299
;;12147,21905
;;12235,11483
;;12253,22503
;;12359,24055
;;12404,5579
;;12504,5527
;;12505,5527
;;12520,17608
;;12521,24472
;;12611,27905
;;12613,26488
;;12615,26489
;;12625,30367
;;12639,28218
;;12654,63690
;;12674,29123
;;12675,1913
;;12730,27547
;;12758,64645
;;12759,64644
;;12771,41445
;;12772,41650
;;12787,45742
;;12789,45740
;;12812,37038
;;12813,37039
;;12829,39548
;;12843,39138
;;12877,30931
;;12880,46239
;;12881,46238
;;12902,37919
;;12903,37919
;;12952,4999
;;12964,19398
;;12973,3971
;;12975,44968
;;12977,40901
;;12997,58487
;;12998,58488
;;13002,40966
;;13058,24537
;;13059,24538
;;13060,24539
;;13061,24478
;;13069,11186
;;13070,16242
;;13078,23472
;;13079,40366
;;13080,23471
;;13081,3202
;;13082,3203
;;13144,65779
;;13150,23127
;;13241,71695
;;13257,23023
;;13287,16242
;;13288,16242
;;13307,41644
;;13310,24168
;;13314,22914
;;13353,34731
;;13455,27548
;;13456,27550
;;13465,22914
;;13472,63533
;;13509,42663
;;13563,21282
;;13564,16570
;;13565,16571
;;13568,41700
;;13613,2482
;;13688,266
;;13692,7225
;;13721,23129
;;13729,41698
;;13751,11186
;;13782,4439
;;13790,10458
;;13795,5633
;;13813,68636
;;13822,9846
;;13858,26490
;;13870,63717
;;13876,42800
;;13879,43879
;;13961,38264
;;13977,5125
;;14038,32174
;;14039,32600
;;14067,59459
;;14200,1933
;;14201,63940
;;14214,73689
;;14282,37029
;;14293,43761
;;14294,43760
;;14331,49375
;;14389,47608
;;14477,50836
;;14483,42966
;;14484,34359
;;14544,23882
;;14545,23881
;;14579,30007
;;14580,1913
;;14581,44337
;;14590,7663
;;14600,46484
;;14603,46698
;;14619,46942
;;14620,46754
;;14625,63189
;;14626,47021
;;14708,46295
;;14722,8111
;;14769,3590
;;14896,23881
;;14899,3656
;;14900,47429
;;14916,3295
;;14919,24441
;;14963,42081
;;14964,42082
;;14965,44853
;;15022,47323
;;15055,3313
;;15071,47318
;;15072,45981
;;15073,45982
;;15075,47525
;;15077,47526
;;15099,37754
;;15102,53036
;;15132,25621
;;15162,40224
;;15163,40223
;;15165,48077
;;15181,62817
;;15183,43899
;;15198,2582
;;15199,3290
;;15254,572
;;15333,47452
;;15363,571
;;15370,13648
;;15371,13649
;;15425,1913
;;15426,1913
;;15427,1913
;;15453,48456
;;15454,48456
;;15456,48978
;;15476,47763
;;15479,49828
;;15508,31376
;;15519,51202
;;15561,44226
;;15575,19
;;15595,26491
;;15613,2797
;;15657,65981
;;15695,1913
;;15696,1913
;;15697,1913
;;15731,16242
;;15772,64875
;;15897,50172
;;15923,47132
;;15924,50327
;;15931,22925
;;15933,47965
;;15957,43763
;;16090,53057
;;16091,53059
;;16092,53060
;;16093,53061
;;16198,50805
;;16237,30763
;;16252,51916
;;16260,50496
;;16266,16242
;;16267,16242
;;16268,50102
;;16327,52746
;;16349,1933
;;16353,5577
;;16358,49718
;;16359,52890
;;16360,52892
;;16361,52891
;;16377,65513
;;16384,51883
;;16416,10959
;;16445,52050
;;16455,64331
;;16458,53006
;;16459,53007
;;16468,24555
;;16469,3202
;;16470,23270
;;16471,3203
;;16472,16767
;;16476,24536
;;16477,24537
;;16478,24538
;;16479,24539
;;16480,24478
;;16484,13657
;;16509,21742
;;16556,50220
;;16557,50219
;;16569,45877
;;16570,58878
;;16571,58877
;;16572,58880
;;16627,48738
;;16686,16399
;;16704,2940
;;16721,45878
;;16722,58877
;;16723,48815
;;16747,49607
;;16774,51990
;;16781,52831
;;16823,60306
;;16839,27549
;;16853,57893
;;16878,57859
;;16882,57865
;;16884,57864
;;16885,57863
;;16892,38375
;;16909,58345
;;16914,49261
;;16961,49742
;;16963,27592
;;16968,39790
;;16971,40224
;;16972,40223
;;16979,23471
;;16980,23472
;;16986,60005
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN565PO 11961 printed Dec 13, 2024@02:23:34 Page 2
PSN565PO ;BIR/SJA-Post install routine for patch PSN*4*565 ; 02 Aug 2018 2:00 PM
+1 ;;4.0;NATIONAL DRUG FILE;**565**; 30 Oct 98;Build 16
+2 ;
+3 QUIT
POST ; entry point
+1 NEW CNT,DATA,II,NAME,NODE1,PSNDA
+2 SET CNT=4
KILL ^TMP("PSN",$JOB)
+3 DO BMES^XPDUTL(" Starting post-install for PSN*4*565")
+4 DO BMES^XPDUTL(" Restore GCNSEQNO field for specific VA Products....")
+5 FOR II=1:1
SET DATA=$PIECE($TEXT(@("LIST+"_II_"^PSN565PO")),";;",2)
if DATA=""
QUIT
Begin DoDot:1
+6 SET PSNDA=+DATA
SET NAME=$EXTRACT($PIECE($GET(^PSNDF(50.68,PSNDA,0)),"^"),1,40)
SET NODE1=$GET(^PSNDF(50.68,PSNDA,1))
+7 IF $DATA(^PSNDF(50.68,PSNDA,0))
IF '$PIECE(NODE1,"^",5)
SET $PIECE(^PSNDF(50.68,PSNDA,1),"^",5)=$EXTRACT(1000000+$PIECE(DATA,",",2),2,7)
Begin DoDot:2
+8 SET CNT=CNT+1
SET ^TMP("PSN",$JOB,CNT)=PSNDA_$JUSTIFY("",15-$LENGTH(PSNDA))_NAME_$JUSTIFY("",50-$LENGTH(NAME))_$EXTRACT(1000000+$PIECE(DATA,",",2),2,7)
End DoDot:2
End DoDot:1
+9 DO EN^PSN565P1
+10 DO MSG
KILL ^TMP("PSN",$JOB)
+11 ; delete routine PSN565P1
+12 SET X="PSN565P1"
XECUTE ^%ZOSF("TEST")
IF $TEST
DO MES^XPDUTL(" Deleting routine "_X_"...")
XECUTE ^%ZOSF("DEL")
+13 DO BMES^XPDUTL(" Finished post-install for PSN*4*565")
+14 QUIT
+15 ;
MSG ; Sends Mailman message about updates
+1 NEW XMX,XMSUB,XMDUZ,XMTEXT
+2 SET II=0
FOR
SET II=$ORDER(^XUSEC("PSNMGR",II))
if 'II
QUIT
SET XMY(II)=""
+3 SET XMY(DUZ)=""
SET XMSUB="PSN*4*565 - GCNSEQNO field Update"
+4 SET ^TMP("PSN",$JOB,1)="The post-install routine restored the GCNSEQNO field value for the following VA PRODUCT entries:"
+5 SET ^TMP("PSN",$JOB,2)=""
+6 SET ^TMP("PSN",$JOB,3)="VA Product # Product Name GCNSEQNO "
+7 SET ^TMP("PSN",$JOB,4)="------------ ---------------------------------------- --------"
+8 if '$DATA(^TMP("PSN",$JOB,5))
SET ^TMP("PSN",$JOB,5)="No updates performed."
+9 SET XMDUZ=.5
SET XMTEXT="^TMP(""PSN"",$J,"
NEW DIFROM
DO ^XMD
+10 QUIT
LIST ; VA PRODUCT entries missing GCNSEQNO field
+1 ;;1,4826
+2 ;;30,4175
+3 ;;38,4174
+4 ;;61,224
+5 ;;108,3577
+6 ;;111,3586
+7 ;;196,8873
+8 ;;211,43349
+9 ;;230,16065
+10 ;;252,22345
+11 ;;256,22345
+12 ;;288,3262
+13 ;;311,8809
+14 ;;329,5053
+15 ;;426,2142
+16 ;;429,2118
+17 ;;459,1220
+18 ;;498,8084
+19 ;;521,3147
+20 ;;532,24137
+21 ;;560,3603
+22 ;;569,9283
+23 ;;585,327
+24 ;;586,326
+25 ;;597,4278
+26 ;;598,2549
+27 ;;610,7480
+28 ;;611,4647
+29 ;;648,64586
+30 ;;662,4261
+31 ;;706,64537
+32 ;;707,64539
+33 ;;815,15536
+34 ;;816,15537
+35 ;;894,6997
+36 ;;943,8295
+37 ;;970,21205
+38 ;;985,7682
+39 ;;991,7679
+40 ;;1027,26869
+41 ;;1029,26869
+42 ;;1073,3202
+43 ;;1075,3203
+44 ;;1079,3117
+45 ;;1144,2492
+46 ;;1145,48094
+47 ;;1158,2251
+48 ;;1164,63385
+49 ;;1170,1386
+50 ;;1177,39753
+51 ;;1178,2511
+52 ;;1196,39742
+53 ;;1209,67478
+54 ;;1210,2477
+55 ;;1231,15466
+56 ;;1260,2510
+57 ;;1272,2477
+58 ;;1283,42926
+59 ;;1303,3167
+60 ;;1327,3648
+61 ;;1328,3656
+62 ;;1341,4675
+63 ;;1357,9218
+64 ;;1358,9223
+65 ;;1359,9219
+66 ;;1365,15943
+67 ;;1366,16815
+68 ;;1404,63829
+69 ;;1457,62033
+70 ;;1461,2523
+71 ;;1472,59703
+72 ;;1475,2532
+73 ;;1478,2470
+74 ;;1480,2470
+75 ;;1484,2475
+76 ;;1488,2532
+77 ;;1500,2522
+78 ;;1501,2470
+79 ;;1502,2523
+80 ;;1514,2530
+81 ;;1520,2532
+82 ;;1522,2482
+83 ;;1530,6440
+84 ;;1534,6435
+85 ;;1535,2470
+86 ;;1541,2524
+87 ;;1579,4755
+88 ;;1631,59782
+89 ;;1639,36045
+90 ;;1640,36047
+91 ;;1641,36046
+92 ;;1651,66719
+93 ;;1688,4767
+94 ;;1715,48548
+95 ;;1725,516
+96 ;;1727,517
+97 ;;1842,4167
+98 ;;1855,4734
+99 ;;1914,4521
+100 ;;1921,4521
+101 ;;1978,43762
+102 ;;2168,45266
+103 ;;2169,45266
+104 ;;2173,5230
+105 ;;2184,6503
+106 ;;2317,66111
+107 ;;2394,8366
+108 ;;2409,8259
+109 ;;2439,62665
+110 ;;2486,4220
+111 ;;2487,4222
+112 ;;2488,4221
+113 ;;2490,4223
+114 ;;2590,3310
+115 ;;2618,3314
+116 ;;2621,3314
+117 ;;2625,3314
+118 ;;2770,6551
+119 ;;2802,4515
+120 ;;2803,4513
+121 ;;2821,4217
+122 ;;2833,17240
+123 ;;2835,62407
+124 ;;2884,65025
+125 ;;2885,65028
+126 ;;2963,23796
+127 ;;2966,31755
+128 ;;2971,48544
+129 ;;2981,8818
+130 ;;2984,8817
+131 ;;2992,61483
+132 ;;3004,4746
+133 ;;3005,1272
+134 ;;3070,25697
+135 ;;3071,25698
+136 ;;3094,93
+137 ;;3200,8821
+138 ;;3207,4024
+139 ;;3225,64635
+140 ;;3251,9278
+141 ;;3286,8910
+142 ;;3415,64266
+143 ;;3465,65849
+144 ;;3472,7650
+145 ;;3484,7414
+146 ;;3485,7415
+147 ;;3506,4029
+148 ;;3521,41745
+149 ;;3551,7818
+150 ;;3568,62018
+151 ;;3569,62014
+152 ;;3599,6209
+153 ;;3603,75213
+154 ;;3659,70911
+155 ;;3725,4760
+156 ;;3791,4291
+157 ;;3825,60678
+158 ;;3849,7409
+159 ;;3857,38861
+160 ;;3858,38861
+161 ;;3859,38861
+162 ;;4045,17179
+163 ;;4069,63153
+164 ;;4092,3237
+165 ;;4147,15353
+166 ;;4168,45669
+167 ;;4173,59297
+168 ;;4189,59216
+169 ;;4216,7522
+170 ;;4219,47096
+171 ;;4236,3613
+172 ;;4239,3617
+173 ;;4256,130
+174 ;;4257,132
+175 ;;4259,133
+176 ;;4265,170
+177 ;;4266,48478
+178 ;;4305,64271
+179 ;;4357,59738
+180 ;;4372,16025
+181 ;;4376,2623
+182 ;;4392,66497
+183 ;;4410,4204
+184 ;;4411,4199
+185 ;;4412,4206
+186 ;;4417,4207
+187 ;;4418,4202
+188 ;;4419,4205
+189 ;;4420,16899
+190 ;;4423,26439
+191 ;;4529,3998
+192 ;;4546,4503
+193 ;;4560,6599
+194 ;;4565,1707
+195 ;;4638,3990
+196 ;;4639,3987
+197 ;;4640,3989
+198 ;;4641,3991
+199 ;;4644,4518
+200 ;;4658,23446
+201 ;;4687,3290
+202 ;;4692,3294
+203 ;;4693,3295
+204 ;;4724,3295
+205 ;;4733,7006
+206 ;;4753,5810
+207 ;;4754,5813
+208 ;;4780,2348
+209 ;;4848,910
+210 ;;4867,749
+211 ;;4928,652
+212 ;;4933,66240
+213 ;;4953,7806
+214 ;;4982,7869
+215 ;;4986,4836
+216 ;;5067,4777
+217 ;;5091,4901
+218 ;;5093,45003
+219 ;;5103,30255
+220 ;;5112,29054
+221 ;;5190,4385
+222 ;;5266,6762
+223 ;;5313,5763
+224 ;;5317,5792
+225 ;;5335,63556
+226 ;;5338,63564
+227 ;;5374,1242
+228 ;;5388,62013
+229 ;;5393,62014
+230 ;;5394,62015
+231 ;;5404,2018
+232 ;;5405,48631
+233 ;;5452,1965
+234 ;;5518,1189
+235 ;;5547,6364
+236 ;;5599,48620
+237 ;;5646,63537
+238 ;;5647,1814
+239 ;;5659,3376
+240 ;;5662,1285
+241 ;;5671,4535
+242 ;;5672,4535
+243 ;;5687,2013
+244 ;;5699,2015
+245 ;;5705,2012
+246 ;;5767,1233
+247 ;;5768,1233
+248 ;;5776,20614
+249 ;;5792,11990
+250 ;;5817,996
+251 ;;5819,16967
+252 ;;5848,2380
+253 ;;5897,53015
+254 ;;5911,27826
+255 ;;5913,13047
+256 ;;6034,11644
+257 ;;6039,8078
+258 ;;6095,4458
+259 ;;6114,62885
+260 ;;6119,13675
+261 ;;6130,1240
+262 ;;6148,570
+263 ;;6151,16849
+264 ;;6152,16850
+265 ;;6153,16572
+266 ;;6155,16570
+267 ;;6156,16571
+268 ;;6157,17205
+269 ;;6158,21282
+270 ;;6159,24536
+271 ;;6160,24537
+272 ;;6161,24538
+273 ;;6162,24539
+274 ;;6163,24478
+275 ;;6164,571
+276 ;;6165,572
+277 ;;6166,21282
+278 ;;6180,4311
+279 ;;6181,4312
+280 ;;6225,2400
+281 ;;6232,5000
+282 ;;6234,47133
+283 ;;6236,5001
+284 ;;6273,1154
+285 ;;6300,11663
+286 ;;6402,1711
+287 ;;6464,61353
+288 ;;6484,6315
+289 ;;6486,33862
+290 ;;6489,6303
+291 ;;6490,47875
+292 ;;6543,8250
+293 ;;6545,17000
+294 ;;6562,25061
+295 ;;6606,8893
+296 ;;6607,8887
+297 ;;6608,8889
+298 ;;6609,8888
+299 ;;6637,1515
+300 ;;6640,4491
+301 ;;6858,1688
+302 ;;6871,45242
+303 ;;6908,53698
+304 ;;6980,48556
+305 ;;7017,644
+306 ;;7031,45243
+307 ;;7032,45244
+308 ;;7033,45243
+309 ;;7046,1718
+310 ;;7054,7601
+311 ;;7077,2082
+312 ;;7080,9582
+313 ;;7081,9583
+314 ;;7091,5737
+315 ;;7094,5738
+316 ;;7140,4114
+317 ;;7175,16653
+318 ;;7291,9676
+319 ;;7309,3542
+320 ;;7354,13021
+321 ;;7380,48555
+322 ;;7448,12076
+323 ;;7474,48395
+324 ;;7588,1340
+325 ;;7644,19923
+326 ;;7648,4747
+327 ;;7673,7209
+328 ;;7674,7216
+329 ;;7685,13673
+330 ;;7700,15762
+331 ;;7761,61935
+332 ;;7782,31427
+333 ;;7819,9813
+334 ;;7842,16879
+335 ;;7878,8322
+336 ;;7880,8321
+337 ;;7882,5637
+338 ;;7884,14291
+339 ;;7894,15953
+340 ;;7898,2701
+341 ;;7916,5352
+342 ;;7917,5350
+343 ;;7918,64363
+344 ;;7920,8515
+345 ;;7921,5349
+346 ;;7931,60636
+347 ;;7946,65585
+348 ;;7967,2948
+349 ;;7980,16811
+350 ;;7981,16812
+351 ;;7982,16813
+352 ;;7991,2984
+353 ;;7992,2983
+354 ;;8002,61709
+355 ;;8051,64530
+356 ;;8054,3046
+357 ;;8061,35527
+358 ;;8077,14134
+359 ;;8078,63178
+360 ;;8079,7993
+361 ;;8080,14134
+362 ;;8094,1602
+363 ;;8096,63050
+364 ;;8129,65583
+365 ;;8156,9183
+366 ;;8170,61254
+367 ;;8225,7513
+368 ;;8226,7546
+369 ;;8241,48754
+370 ;;8242,48754
+371 ;;8281,1628
+372 ;;8304,71662
+373 ;;8319,33530
+374 ;;8320,43136
+375 ;;8434,25696
+376 ;;8459,2681
+377 ;;8469,7772
+378 ;;8473,7785
+379 ;;8490,2819
+380 ;;8508,23759
+381 ;;8527,46237
+382 ;;8528,31439
+383 ;;8577,2860
+384 ;;8686,52108
+385 ;;8694,2551
+386 ;;8703,8640
+387 ;;8738,8323
+388 ;;8750,23473
+389 ;;8754,3027
+390 ;;8755,3027
+391 ;;8767,3030
+392 ;;8813,29260
+393 ;;8826,15872
+394 ;;8834,23187
+395 ;;8870,14972
+396 ;;8882,63623
+397 ;;8890,22061
+398 ;;8911,63178
+399 ;;8912,63178
+400 ;;8913,7993
+401 ;;8939,5338
+402 ;;8961,46293
+403 ;;9049,5610
+404 ;;9067,24168
+405 ;;9089,16014
+406 ;;9091,38335
+407 ;;9134,70603
+408 ;;9135,58644
+409 ;;9269,5291
+410 ;;9295,15906
+411 ;;9375,7166
+412 ;;9379,60663
+413 ;;9406,8480
+414 ;;9412,5352
+415 ;;9461,1933
+416 ;;9462,1933
+417 ;;9464,1933
+418 ;;9465,1913
+419 ;;9466,1913
+420 ;;9478,65369
+421 ;;9492,13755
+422 ;;9564,7233
+423 ;;9616,8522
+424 ;;9632,6042
+425 ;;9639,23952
+426 ;;9641,21704
+427 ;;9726,47040
+428 ;;9731,18368
+429 ;;9745,16280
+430 ;;9771,60113
+431 ;;9847,74302
+432 ;;9848,2849
+433 ;;9879,14282
+434 ;;9908,17206
+435 ;;9962,7188
+436 ;;9966,6939
+437 ;;10017,5579
+438 ;;10064,8522
+439 ;;10132,48223
+440 ;;10147,7284
+441 ;;10183,11514
+442 ;;11299,10468
+443 ;;11574,61638
+444 ;;11723,63927
+445 ;;11750,8318
+446 ;;11815,46403
+447 ;;11930,66298
+448 ;;11935,66299
+449 ;;12147,21905
+450 ;;12235,11483
+451 ;;12253,22503
+452 ;;12359,24055
+453 ;;12404,5579
+454 ;;12504,5527
+455 ;;12505,5527
+456 ;;12520,17608
+457 ;;12521,24472
+458 ;;12611,27905
+459 ;;12613,26488
+460 ;;12615,26489
+461 ;;12625,30367
+462 ;;12639,28218
+463 ;;12654,63690
+464 ;;12674,29123
+465 ;;12675,1913
+466 ;;12730,27547
+467 ;;12758,64645
+468 ;;12759,64644
+469 ;;12771,41445
+470 ;;12772,41650
+471 ;;12787,45742
+472 ;;12789,45740
+473 ;;12812,37038
+474 ;;12813,37039
+475 ;;12829,39548
+476 ;;12843,39138
+477 ;;12877,30931
+478 ;;12880,46239
+479 ;;12881,46238
+480 ;;12902,37919
+481 ;;12903,37919
+482 ;;12952,4999
+483 ;;12964,19398
+484 ;;12973,3971
+485 ;;12975,44968
+486 ;;12977,40901
+487 ;;12997,58487
+488 ;;12998,58488
+489 ;;13002,40966
+490 ;;13058,24537
+491 ;;13059,24538
+492 ;;13060,24539
+493 ;;13061,24478
+494 ;;13069,11186
+495 ;;13070,16242
+496 ;;13078,23472
+497 ;;13079,40366
+498 ;;13080,23471
+499 ;;13081,3202
+500 ;;13082,3203
+501 ;;13144,65779
+502 ;;13150,23127
+503 ;;13241,71695
+504 ;;13257,23023
+505 ;;13287,16242
+506 ;;13288,16242
+507 ;;13307,41644
+508 ;;13310,24168
+509 ;;13314,22914
+510 ;;13353,34731
+511 ;;13455,27548
+512 ;;13456,27550
+513 ;;13465,22914
+514 ;;13472,63533
+515 ;;13509,42663
+516 ;;13563,21282
+517 ;;13564,16570
+518 ;;13565,16571
+519 ;;13568,41700
+520 ;;13613,2482
+521 ;;13688,266
+522 ;;13692,7225
+523 ;;13721,23129
+524 ;;13729,41698
+525 ;;13751,11186
+526 ;;13782,4439
+527 ;;13790,10458
+528 ;;13795,5633
+529 ;;13813,68636
+530 ;;13822,9846
+531 ;;13858,26490
+532 ;;13870,63717
+533 ;;13876,42800
+534 ;;13879,43879
+535 ;;13961,38264
+536 ;;13977,5125
+537 ;;14038,32174
+538 ;;14039,32600
+539 ;;14067,59459
+540 ;;14200,1933
+541 ;;14201,63940
+542 ;;14214,73689
+543 ;;14282,37029
+544 ;;14293,43761
+545 ;;14294,43760
+546 ;;14331,49375
+547 ;;14389,47608
+548 ;;14477,50836
+549 ;;14483,42966
+550 ;;14484,34359
+551 ;;14544,23882
+552 ;;14545,23881
+553 ;;14579,30007
+554 ;;14580,1913
+555 ;;14581,44337
+556 ;;14590,7663
+557 ;;14600,46484
+558 ;;14603,46698
+559 ;;14619,46942
+560 ;;14620,46754
+561 ;;14625,63189
+562 ;;14626,47021
+563 ;;14708,46295
+564 ;;14722,8111
+565 ;;14769,3590
+566 ;;14896,23881
+567 ;;14899,3656
+568 ;;14900,47429
+569 ;;14916,3295
+570 ;;14919,24441
+571 ;;14963,42081
+572 ;;14964,42082
+573 ;;14965,44853
+574 ;;15022,47323
+575 ;;15055,3313
+576 ;;15071,47318
+577 ;;15072,45981
+578 ;;15073,45982
+579 ;;15075,47525
+580 ;;15077,47526
+581 ;;15099,37754
+582 ;;15102,53036
+583 ;;15132,25621
+584 ;;15162,40224
+585 ;;15163,40223
+586 ;;15165,48077
+587 ;;15181,62817
+588 ;;15183,43899
+589 ;;15198,2582
+590 ;;15199,3290
+591 ;;15254,572
+592 ;;15333,47452
+593 ;;15363,571
+594 ;;15370,13648
+595 ;;15371,13649
+596 ;;15425,1913
+597 ;;15426,1913
+598 ;;15427,1913
+599 ;;15453,48456
+600 ;;15454,48456
+601 ;;15456,48978
+602 ;;15476,47763
+603 ;;15479,49828
+604 ;;15508,31376
+605 ;;15519,51202
+606 ;;15561,44226
+607 ;;15575,19
+608 ;;15595,26491
+609 ;;15613,2797
+610 ;;15657,65981
+611 ;;15695,1913
+612 ;;15696,1913
+613 ;;15697,1913
+614 ;;15731,16242
+615 ;;15772,64875
+616 ;;15897,50172
+617 ;;15923,47132
+618 ;;15924,50327
+619 ;;15931,22925
+620 ;;15933,47965
+621 ;;15957,43763
+622 ;;16090,53057
+623 ;;16091,53059
+624 ;;16092,53060
+625 ;;16093,53061
+626 ;;16198,50805
+627 ;;16237,30763
+628 ;;16252,51916
+629 ;;16260,50496
+630 ;;16266,16242
+631 ;;16267,16242
+632 ;;16268,50102
+633 ;;16327,52746
+634 ;;16349,1933
+635 ;;16353,5577
+636 ;;16358,49718
+637 ;;16359,52890
+638 ;;16360,52892
+639 ;;16361,52891
+640 ;;16377,65513
+641 ;;16384,51883
+642 ;;16416,10959
+643 ;;16445,52050
+644 ;;16455,64331
+645 ;;16458,53006
+646 ;;16459,53007
+647 ;;16468,24555
+648 ;;16469,3202
+649 ;;16470,23270
+650 ;;16471,3203
+651 ;;16472,16767
+652 ;;16476,24536
+653 ;;16477,24537
+654 ;;16478,24538
+655 ;;16479,24539
+656 ;;16480,24478
+657 ;;16484,13657
+658 ;;16509,21742
+659 ;;16556,50220
+660 ;;16557,50219
+661 ;;16569,45877
+662 ;;16570,58878
+663 ;;16571,58877
+664 ;;16572,58880
+665 ;;16627,48738
+666 ;;16686,16399
+667 ;;16704,2940
+668 ;;16721,45878
+669 ;;16722,58877
+670 ;;16723,48815
+671 ;;16747,49607
+672 ;;16774,51990
+673 ;;16781,52831
+674 ;;16823,60306
+675 ;;16839,27549
+676 ;;16853,57893
+677 ;;16878,57859
+678 ;;16882,57865
+679 ;;16884,57864
+680 ;;16885,57863
+681 ;;16892,38375
+682 ;;16909,58345
+683 ;;16914,49261
+684 ;;16961,49742
+685 ;;16963,27592
+686 ;;16968,39790
+687 ;;16971,40224
+688 ;;16972,40223
+689 ;;16979,23471
+690 ;;16980,23472
+691 ;;16986,60005
+692 ;
