Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSN565PO

PSN565PO.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. Q
  1. POST ; entry point
  1. N CNT,DATA,II,NAME,NODE1,PSNDA
  1. S CNT=4 K ^TMP("PSN",$J)
  1. D BMES^XPDUTL(" Starting post-install for PSN*4*565")
  1. D BMES^XPDUTL(" Restore GCNSEQNO field for specific VA Products....")
  1. F II=1:1 S DATA=$P($T(@("LIST+"_II_"^PSN565PO")),";;",2) Q:DATA="" D
  1. . S PSNDA=+DATA,NAME=$E($P($G(^PSNDF(50.68,PSNDA,0)),"^"),1,40),NODE1=$G(^PSNDF(50.68,PSNDA,1))
  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
  1. . . 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)
  1. D EN^PSN565P1
  1. D MSG K ^TMP("PSN",$J)
  1. ; delete routine PSN565P1
  1. S X="PSN565P1" X ^%ZOSF("TEST") I $T D MES^XPDUTL(" Deleting routine "_X_"...") X ^%ZOSF("DEL")
  1. D BMES^XPDUTL(" Finished post-install for PSN*4*565")
  1. Q
  1. ;
  1. MSG ; Sends Mailman message about updates
  1. N XMX,XMSUB,XMDUZ,XMTEXT
  1. S II=0 F S II=$O(^XUSEC("PSNMGR",II)) Q:'II S XMY(II)=""
  1. S XMY(DUZ)="",XMSUB="PSN*4*565 - GCNSEQNO field Update"
  1. S ^TMP("PSN",$J,1)="The post-install routine restored the GCNSEQNO field value for the following VA PRODUCT entries:"
  1. S ^TMP("PSN",$J,2)=""
  1. S ^TMP("PSN",$J,3)="VA Product # Product Name GCNSEQNO "
  1. S ^TMP("PSN",$J,4)="------------ ---------------------------------------- --------"
  1. S:'$D(^TMP("PSN",$J,5)) ^TMP("PSN",$J,5)="No updates performed."
  1. S XMDUZ=.5,XMTEXT="^TMP(""PSN"",$J," N DIFROM D ^XMD
  1. Q
  1. LIST ; VA PRODUCT entries missing GCNSEQNO field
  1. ;;1,4826
  1. ;;30,4175
  1. ;;38,4174
  1. ;;61,224
  1. ;;108,3577
  1. ;;111,3586
  1. ;;196,8873
  1. ;;211,43349
  1. ;;230,16065
  1. ;;252,22345
  1. ;;256,22345
  1. ;;288,3262
  1. ;;311,8809
  1. ;;329,5053
  1. ;;426,2142
  1. ;;429,2118
  1. ;;459,1220
  1. ;;498,8084
  1. ;;521,3147
  1. ;;532,24137
  1. ;;560,3603
  1. ;;569,9283
  1. ;;585,327
  1. ;;586,326
  1. ;;597,4278
  1. ;;598,2549
  1. ;;610,7480
  1. ;;611,4647
  1. ;;648,64586
  1. ;;662,4261
  1. ;;706,64537
  1. ;;707,64539
  1. ;;815,15536
  1. ;;816,15537
  1. ;;894,6997
  1. ;;943,8295
  1. ;;970,21205
  1. ;;985,7682
  1. ;;991,7679
  1. ;;1027,26869
  1. ;;1029,26869
  1. ;;1073,3202
  1. ;;1075,3203
  1. ;;1079,3117
  1. ;;1144,2492
  1. ;;1145,48094
  1. ;;1158,2251
  1. ;;1164,63385
  1. ;;1170,1386
  1. ;;1177,39753
  1. ;;1178,2511
  1. ;;1196,39742
  1. ;;1209,67478
  1. ;;1210,2477
  1. ;;1231,15466
  1. ;;1260,2510
  1. ;;1272,2477
  1. ;;1283,42926
  1. ;;1303,3167
  1. ;;1327,3648
  1. ;;1328,3656
  1. ;;1341,4675
  1. ;;1357,9218
  1. ;;1358,9223
  1. ;;1359,9219
  1. ;;1365,15943
  1. ;;1366,16815
  1. ;;1404,63829
  1. ;;1457,62033
  1. ;;1461,2523
  1. ;;1472,59703
  1. ;;1475,2532
  1. ;;1478,2470
  1. ;;1480,2470
  1. ;;1484,2475
  1. ;;1488,2532
  1. ;;1500,2522
  1. ;;1501,2470
  1. ;;1502,2523
  1. ;;1514,2530
  1. ;;1520,2532
  1. ;;1522,2482
  1. ;;1530,6440
  1. ;;1534,6435
  1. ;;1535,2470
  1. ;;1541,2524
  1. ;;1579,4755
  1. ;;1631,59782
  1. ;;1639,36045
  1. ;;1640,36047
  1. ;;1641,36046
  1. ;;1651,66719
  1. ;;1688,4767
  1. ;;1715,48548
  1. ;;1725,516
  1. ;;1727,517
  1. ;;1842,4167
  1. ;;1855,4734
  1. ;;1914,4521
  1. ;;1921,4521
  1. ;;1978,43762
  1. ;;2168,45266
  1. ;;2169,45266
  1. ;;2173,5230
  1. ;;2184,6503
  1. ;;2317,66111
  1. ;;2394,8366
  1. ;;2409,8259
  1. ;;2439,62665
  1. ;;2486,4220
  1. ;;2487,4222
  1. ;;2488,4221
  1. ;;2490,4223
  1. ;;2590,3310
  1. ;;2618,3314
  1. ;;2621,3314
  1. ;;2625,3314
  1. ;;2770,6551
  1. ;;2802,4515
  1. ;;2803,4513
  1. ;;2821,4217
  1. ;;2833,17240
  1. ;;2835,62407
  1. ;;2884,65025
  1. ;;2885,65028
  1. ;;2963,23796
  1. ;;2966,31755
  1. ;;2971,48544
  1. ;;2981,8818
  1. ;;2984,8817
  1. ;;2992,61483
  1. ;;3004,4746
  1. ;;3005,1272
  1. ;;3070,25697
  1. ;;3071,25698
  1. ;;3094,93
  1. ;;3200,8821
  1. ;;3207,4024
  1. ;;3225,64635
  1. ;;3251,9278
  1. ;;3286,8910
  1. ;;3415,64266
  1. ;;3465,65849
  1. ;;3472,7650
  1. ;;3484,7414
  1. ;;3485,7415
  1. ;;3506,4029
  1. ;;3521,41745
  1. ;;3551,7818
  1. ;;3568,62018
  1. ;;3569,62014
  1. ;;3599,6209
  1. ;;3603,75213
  1. ;;3659,70911
  1. ;;3725,4760
  1. ;;3791,4291
  1. ;;3825,60678
  1. ;;3849,7409
  1. ;;3857,38861
  1. ;;3858,38861
  1. ;;3859,38861
  1. ;;4045,17179
  1. ;;4069,63153
  1. ;;4092,3237
  1. ;;4147,15353
  1. ;;4168,45669
  1. ;;4173,59297
  1. ;;4189,59216
  1. ;;4216,7522
  1. ;;4219,47096
  1. ;;4236,3613
  1. ;;4239,3617
  1. ;;4256,130
  1. ;;4257,132
  1. ;;4259,133
  1. ;;4265,170
  1. ;;4266,48478
  1. ;;4305,64271
  1. ;;4357,59738
  1. ;;4372,16025
  1. ;;4376,2623
  1. ;;4392,66497
  1. ;;4410,4204
  1. ;;4411,4199
  1. ;;4412,4206
  1. ;;4417,4207
  1. ;;4418,4202
  1. ;;4419,4205
  1. ;;4420,16899
  1. ;;4423,26439
  1. ;;4529,3998
  1. ;;4546,4503
  1. ;;4560,6599
  1. ;;4565,1707
  1. ;;4638,3990
  1. ;;4639,3987
  1. ;;4640,3989
  1. ;;4641,3991
  1. ;;4644,4518
  1. ;;4658,23446
  1. ;;4687,3290
  1. ;;4692,3294
  1. ;;4693,3295
  1. ;;4724,3295
  1. ;;4733,7006
  1. ;;4753,5810
  1. ;;4754,5813
  1. ;;4780,2348
  1. ;;4848,910
  1. ;;4867,749
  1. ;;4928,652
  1. ;;4933,66240
  1. ;;4953,7806
  1. ;;4982,7869
  1. ;;4986,4836
  1. ;;5067,4777
  1. ;;5091,4901
  1. ;;5093,45003
  1. ;;5103,30255
  1. ;;5112,29054
  1. ;;5190,4385
  1. ;;5266,6762
  1. ;;5313,5763
  1. ;;5317,5792
  1. ;;5335,63556
  1. ;;5338,63564
  1. ;;5374,1242
  1. ;;5388,62013
  1. ;;5393,62014
  1. ;;5394,62015
  1. ;;5404,2018
  1. ;;5405,48631
  1. ;;5452,1965
  1. ;;5518,1189
  1. ;;5547,6364
  1. ;;5599,48620
  1. ;;5646,63537
  1. ;;5647,1814
  1. ;;5659,3376
  1. ;;5662,1285
  1. ;;5671,4535
  1. ;;5672,4535
  1. ;;5687,2013
  1. ;;5699,2015
  1. ;;5705,2012
  1. ;;5767,1233
  1. ;;5768,1233
  1. ;;5776,20614
  1. ;;5792,11990
  1. ;;5817,996
  1. ;;5819,16967
  1. ;;5848,2380
  1. ;;5897,53015
  1. ;;5911,27826
  1. ;;5913,13047
  1. ;;6034,11644
  1. ;;6039,8078
  1. ;;6095,4458
  1. ;;6114,62885
  1. ;;6119,13675
  1. ;;6130,1240
  1. ;;6148,570
  1. ;;6151,16849
  1. ;;6152,16850
  1. ;;6153,16572
  1. ;;6155,16570
  1. ;;6156,16571
  1. ;;6157,17205
  1. ;;6158,21282
  1. ;;6159,24536
  1. ;;6160,24537
  1. ;;6161,24538
  1. ;;6162,24539
  1. ;;6163,24478
  1. ;;6164,571
  1. ;;6165,572
  1. ;;6166,21282
  1. ;;6180,4311
  1. ;;6181,4312
  1. ;;6225,2400
  1. ;;6232,5000
  1. ;;6234,47133
  1. ;;6236,5001
  1. ;;6273,1154
  1. ;;6300,11663
  1. ;;6402,1711
  1. ;;6464,61353
  1. ;;6484,6315
  1. ;;6486,33862
  1. ;;6489,6303
  1. ;;6490,47875
  1. ;;6543,8250
  1. ;;6545,17000
  1. ;;6562,25061
  1. ;;6606,8893
  1. ;;6607,8887
  1. ;;6608,8889
  1. ;;6609,8888
  1. ;;6637,1515
  1. ;;6640,4491
  1. ;;6858,1688
  1. ;;6871,45242
  1. ;;6908,53698
  1. ;;6980,48556
  1. ;;7017,644
  1. ;;7031,45243
  1. ;;7032,45244
  1. ;;7033,45243
  1. ;;7046,1718
  1. ;;7054,7601
  1. ;;7077,2082
  1. ;;7080,9582
  1. ;;7081,9583
  1. ;;7091,5737
  1. ;;7094,5738
  1. ;;7140,4114
  1. ;;7175,16653
  1. ;;7291,9676
  1. ;;7309,3542
  1. ;;7354,13021
  1. ;;7380,48555
  1. ;;7448,12076
  1. ;;7474,48395
  1. ;;7588,1340
  1. ;;7644,19923
  1. ;;7648,4747
  1. ;;7673,7209
  1. ;;7674,7216
  1. ;;7685,13673
  1. ;;7700,15762
  1. ;;7761,61935
  1. ;;7782,31427
  1. ;;7819,9813
  1. ;;7842,16879
  1. ;;7878,8322
  1. ;;7880,8321
  1. ;;7882,5637
  1. ;;7884,14291
  1. ;;7894,15953
  1. ;;7898,2701
  1. ;;7916,5352
  1. ;;7917,5350
  1. ;;7918,64363
  1. ;;7920,8515
  1. ;;7921,5349
  1. ;;7931,60636
  1. ;;7946,65585
  1. ;;7967,2948
  1. ;;7980,16811
  1. ;;7981,16812
  1. ;;7982,16813
  1. ;;7991,2984
  1. ;;7992,2983
  1. ;;8002,61709
  1. ;;8051,64530
  1. ;;8054,3046
  1. ;;8061,35527
  1. ;;8077,14134
  1. ;;8078,63178
  1. ;;8079,7993
  1. ;;8080,14134
  1. ;;8094,1602
  1. ;;8096,63050
  1. ;;8129,65583
  1. ;;8156,9183
  1. ;;8170,61254
  1. ;;8225,7513
  1. ;;8226,7546
  1. ;;8241,48754
  1. ;;8242,48754
  1. ;;8281,1628
  1. ;;8304,71662
  1. ;;8319,33530
  1. ;;8320,43136
  1. ;;8434,25696
  1. ;;8459,2681
  1. ;;8469,7772
  1. ;;8473,7785
  1. ;;8490,2819
  1. ;;8508,23759
  1. ;;8527,46237
  1. ;;8528,31439
  1. ;;8577,2860
  1. ;;8686,52108
  1. ;;8694,2551
  1. ;;8703,8640
  1. ;;8738,8323
  1. ;;8750,23473
  1. ;;8754,3027
  1. ;;8755,3027
  1. ;;8767,3030
  1. ;;8813,29260
  1. ;;8826,15872
  1. ;;8834,23187
  1. ;;8870,14972
  1. ;;8882,63623
  1. ;;8890,22061
  1. ;;8911,63178
  1. ;;8912,63178
  1. ;;8913,7993
  1. ;;8939,5338
  1. ;;8961,46293
  1. ;;9049,5610
  1. ;;9067,24168
  1. ;;9089,16014
  1. ;;9091,38335
  1. ;;9134,70603
  1. ;;9135,58644
  1. ;;9269,5291
  1. ;;9295,15906
  1. ;;9375,7166
  1. ;;9379,60663
  1. ;;9406,8480
  1. ;;9412,5352
  1. ;;9461,1933
  1. ;;9462,1933
  1. ;;9464,1933
  1. ;;9465,1913
  1. ;;9466,1913
  1. ;;9478,65369
  1. ;;9492,13755
  1. ;;9564,7233
  1. ;;9616,8522
  1. ;;9632,6042
  1. ;;9639,23952
  1. ;;9641,21704
  1. ;;9726,47040
  1. ;;9731,18368
  1. ;;9745,16280
  1. ;;9771,60113
  1. ;;9847,74302
  1. ;;9848,2849
  1. ;;9879,14282
  1. ;;9908,17206
  1. ;;9962,7188
  1. ;;9966,6939
  1. ;;10017,5579
  1. ;;10064,8522
  1. ;;10132,48223
  1. ;;10147,7284
  1. ;;10183,11514
  1. ;;11299,10468
  1. ;;11574,61638
  1. ;;11723,63927
  1. ;;11750,8318
  1. ;;11815,46403
  1. ;;11930,66298
  1. ;;11935,66299
  1. ;;12147,21905
  1. ;;12235,11483
  1. ;;12253,22503
  1. ;;12359,24055
  1. ;;12404,5579
  1. ;;12504,5527
  1. ;;12505,5527
  1. ;;12520,17608
  1. ;;12521,24472
  1. ;;12611,27905
  1. ;;12613,26488
  1. ;;12615,26489
  1. ;;12625,30367
  1. ;;12639,28218
  1. ;;12654,63690
  1. ;;12674,29123
  1. ;;12675,1913
  1. ;;12730,27547
  1. ;;12758,64645
  1. ;;12759,64644
  1. ;;12771,41445
  1. ;;12772,41650
  1. ;;12787,45742
  1. ;;12789,45740
  1. ;;12812,37038
  1. ;;12813,37039
  1. ;;12829,39548
  1. ;;12843,39138
  1. ;;12877,30931
  1. ;;12880,46239
  1. ;;12881,46238
  1. ;;12902,37919
  1. ;;12903,37919
  1. ;;12952,4999
  1. ;;12964,19398
  1. ;;12973,3971
  1. ;;12975,44968
  1. ;;12977,40901
  1. ;;12997,58487
  1. ;;12998,58488
  1. ;;13002,40966
  1. ;;13058,24537
  1. ;;13059,24538
  1. ;;13060,24539
  1. ;;13061,24478
  1. ;;13069,11186
  1. ;;13070,16242
  1. ;;13078,23472
  1. ;;13079,40366
  1. ;;13080,23471
  1. ;;13081,3202
  1. ;;13082,3203
  1. ;;13144,65779
  1. ;;13150,23127
  1. ;;13241,71695
  1. ;;13257,23023
  1. ;;13287,16242
  1. ;;13288,16242
  1. ;;13307,41644
  1. ;;13310,24168
  1. ;;13314,22914
  1. ;;13353,34731
  1. ;;13455,27548
  1. ;;13456,27550
  1. ;;13465,22914
  1. ;;13472,63533
  1. ;;13509,42663
  1. ;;13563,21282
  1. ;;13564,16570
  1. ;;13565,16571
  1. ;;13568,41700
  1. ;;13613,2482
  1. ;;13688,266
  1. ;;13692,7225
  1. ;;13721,23129
  1. ;;13729,41698
  1. ;;13751,11186
  1. ;;13782,4439
  1. ;;13790,10458
  1. ;;13795,5633
  1. ;;13813,68636
  1. ;;13822,9846
  1. ;;13858,26490
  1. ;;13870,63717
  1. ;;13876,42800
  1. ;;13879,43879
  1. ;;13961,38264
  1. ;;13977,5125
  1. ;;14038,32174
  1. ;;14039,32600
  1. ;;14067,59459
  1. ;;14200,1933
  1. ;;14201,63940
  1. ;;14214,73689
  1. ;;14282,37029
  1. ;;14293,43761
  1. ;;14294,43760
  1. ;;14331,49375
  1. ;;14389,47608
  1. ;;14477,50836
  1. ;;14483,42966
  1. ;;14484,34359
  1. ;;14544,23882
  1. ;;14545,23881
  1. ;;14579,30007
  1. ;;14580,1913
  1. ;;14581,44337
  1. ;;14590,7663
  1. ;;14600,46484
  1. ;;14603,46698
  1. ;;14619,46942
  1. ;;14620,46754
  1. ;;14625,63189
  1. ;;14626,47021
  1. ;;14708,46295
  1. ;;14722,8111
  1. ;;14769,3590
  1. ;;14896,23881
  1. ;;14899,3656
  1. ;;14900,47429
  1. ;;14916,3295
  1. ;;14919,24441
  1. ;;14963,42081
  1. ;;14964,42082
  1. ;;14965,44853
  1. ;;15022,47323
  1. ;;15055,3313
  1. ;;15071,47318
  1. ;;15072,45981
  1. ;;15073,45982
  1. ;;15075,47525
  1. ;;15077,47526
  1. ;;15099,37754
  1. ;;15102,53036
  1. ;;15132,25621
  1. ;;15162,40224
  1. ;;15163,40223
  1. ;;15165,48077
  1. ;;15181,62817
  1. ;;15183,43899
  1. ;;15198,2582
  1. ;;15199,3290
  1. ;;15254,572
  1. ;;15333,47452
  1. ;;15363,571
  1. ;;15370,13648
  1. ;;15371,13649
  1. ;;15425,1913
  1. ;;15426,1913
  1. ;;15427,1913
  1. ;;15453,48456
  1. ;;15454,48456
  1. ;;15456,48978
  1. ;;15476,47763
  1. ;;15479,49828
  1. ;;15508,31376
  1. ;;15519,51202
  1. ;;15561,44226
  1. ;;15575,19
  1. ;;15595,26491
  1. ;;15613,2797
  1. ;;15657,65981
  1. ;;15695,1913
  1. ;;15696,1913
  1. ;;15697,1913
  1. ;;15731,16242
  1. ;;15772,64875
  1. ;;15897,50172
  1. ;;15923,47132
  1. ;;15924,50327
  1. ;;15931,22925
  1. ;;15933,47965
  1. ;;15957,43763
  1. ;;16090,53057
  1. ;;16091,53059
  1. ;;16092,53060
  1. ;;16093,53061
  1. ;;16198,50805
  1. ;;16237,30763
  1. ;;16252,51916
  1. ;;16260,50496
  1. ;;16266,16242
  1. ;;16267,16242
  1. ;;16268,50102
  1. ;;16327,52746
  1. ;;16349,1933
  1. ;;16353,5577
  1. ;;16358,49718
  1. ;;16359,52890
  1. ;;16360,52892
  1. ;;16361,52891
  1. ;;16377,65513
  1. ;;16384,51883
  1. ;;16416,10959
  1. ;;16445,52050
  1. ;;16455,64331
  1. ;;16458,53006
  1. ;;16459,53007
  1. ;;16468,24555
  1. ;;16469,3202
  1. ;;16470,23270
  1. ;;16471,3203
  1. ;;16472,16767
  1. ;;16476,24536
  1. ;;16477,24537
  1. ;;16478,24538
  1. ;;16479,24539
  1. ;;16480,24478
  1. ;;16484,13657
  1. ;;16509,21742
  1. ;;16556,50220
  1. ;;16557,50219
  1. ;;16569,45877
  1. ;;16570,58878
  1. ;;16571,58877
  1. ;;16572,58880
  1. ;;16627,48738
  1. ;;16686,16399
  1. ;;16704,2940
  1. ;;16721,45878
  1. ;;16722,58877
  1. ;;16723,48815
  1. ;;16747,49607
  1. ;;16774,51990
  1. ;;16781,52831
  1. ;;16823,60306
  1. ;;16839,27549
  1. ;;16853,57893
  1. ;;16878,57859
  1. ;;16882,57865
  1. ;;16884,57864
  1. ;;16885,57863
  1. ;;16892,38375
  1. ;;16909,58345
  1. ;;16914,49261
  1. ;;16961,49742
  1. ;;16963,27592
  1. ;;16968,39790
  1. ;;16971,40224
  1. ;;16972,40223
  1. ;;16979,23471
  1. ;;16980,23472
  1. ;;16986,60005
  1. ;