PSN576PO ;BP/AGV - Patch 576 Post Install routine ;7/11/24
;;4.0;NATIONAL DRUG FILE;**576**; 30 Oct 98;Build 25
;
POST ; post install routine to initialize PGx field values
N PSNLINE,PSNCNT,PSNTEXT S PSNTEXT="",PSNLINE=0
K ^TMP("PSN576PO",$J),^PSNDF(50.68,"APGX")
;
F PSNCNT=1:1:80 S PSNTEXT=PSNTEXT_"_"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
D SETNO
;
S PSNTEXT="" F PSNCNT=1:1:80 S PSNTEXT=PSNTEXT_"_"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
D SETYES
;
S PSNTEXT="" F PSNCNT=1:1:80 S PSNTEXT=PSNTEXT_"_"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
;
D MAIL
Q
;
SETNO ; sets all values to '0' in the PGX ELIGIBILE and PGX SUPPRESSED fields in the VA PRODUCT (#50.68) and DRUG INGREDIENTS (#50.416) files
N PSNCNT,PSNTEXT S PSNCNT=0,PSNTEXT=""
S PSNTEXT="Initializing the PGX ELIGIBLE (#46) and PGX SUPPRESSED (#47) fields in the"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
S PSNTEXT="" N X F X=0:0 S X=$O(^PSNDF(50.68,X)) Q:'X D
.S ^PSNDF(50.68,X,"PGX")="0^0",PSNCNT=PSNCNT+1
.I PSNCNT=100 S PSNTEXT=PSNTEXT_".",PSNCNT=0
S PSNTEXT="VA PRODUCT (#50.68) file"_PSNTEXT_"OK!"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
;
N PSNCNT,PSNTEXT S PSNCNT=0,PSNTEXT=""
S PSNTEXT="Initializing the PGX ELIGIBLE (#5) and PGX SUPPRESSED (#6) fields in the"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
S PSNTEXT="" N X F X=0:0 S X=$O(^PS(50.416,X)) Q:'X D
.S ^PS(50.416,X,"PGX")="0^0",PSNCNT=PSNCNT+1
.I PSNCNT=100 S PSNTEXT=PSNTEXT_".",PSNCNT=0
S PSNTEXT="DRUG INGREDIENTS (#50.416) file"_PSNTEXT_"OK!"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
Q
;
SETYES ; sets values for specified entries to '1' in the PGX ELIGIBLE and PGX SUPPRESSED fields in the VA PRODUCT (#50.68) and DRUG INGREDIENTS (#50.416) files
N PSNFILE,PSNIEN,PSNFDA,PSNERR,P1,PSNSTR
S PSNFILE=50.68,PSNCNT=0,PSNTEXT=""
S PSNTEXT="Setting specified entries of the PGX ELIGIBLE (#46) and"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
F P1=1:1 S PSNSTR=$T(PGXVPE+P1) Q:PSNSTR["END" D
.S PSNIEN=$P(PSNSTR,";;",2),PSNFDA(PSNFILE,PSNIEN_",",46)=1,PSNCNT=PSNCNT+1
F P1=1:1 S PSNSTR=$T(PGXVPS+P1) Q:(PSNSTR["END") D
.S PSNIEN=$P(PSNSTR,";;",2),PSNFDA(PSNFILE,PSNIEN_",",47)=1,PSNCNT=PSNCNT+1
D FILE^DIE("","PSNFDA","PSNERR")
I $D(PSNERR("DIERR",1,"PSNTEXT",1)) D ERROR Q
S PSNTEXT="" F X=1:1:100 S PSNTEXT=PSNTEXT_"."
S PSNTEXT="PGX SUPPRESSED (#47) fields to 'Y' in the VA PRODUCT (#50.68) file"_PSNTEXT_"OK!"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
;
N PSNFILE,PSNIEN,PSNFDA,PSNERR
S PSNFILE=50.416,PSNCNT=0,PSNTEXT=""
S PSNTEXT="Setting specified entries of the PGX ELIGIBLE (#5) and"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
F P1=1:1 S PSNSTR=$T(PGXDIE+P1) Q:PSNSTR["END" D
.S PSNIEN=$P(PSNSTR,";;",2),PSNFDA(PSNFILE,PSNIEN_",",5)=1
F P1=1:1 S PSNSTR=$T(PGXDIS+P1) Q:(PSNSTR["END") D
.S PSNIEN=$P(PSNSTR,";;",2),PSNFDA(PSNFILE,PSNIEN_",",6)=1
D FILE^DIE("","PSNFDA","PSNERR")
I $D(PSNERR("DIERR",1,"TEXT",1)) D ERROR Q
S PSNTEXT="" F X=1:1:100 S PSNTEXT=PSNTEXT_"."
S PSNTEXT="PGX SUPPRESSED (#6) fields to 'Y' in the DRUG INGREDIENTS (#50.416) file"_PSNTEXT_"OK!"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
Q
;
MAIL ; sends mailman message
N XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
D BMES^XPDUTL("Sending Mailman Message with update...")
S XMY(DUZ)="",XMSUB="PSN*4*576 Post-Install Complete"
S XMDUZ="PSN*4*576 Install",XMTEXT="^TMP(""PSN576PO"",$J,"
D ^XMD
Q
;
ERROR ; an error condition needs to be reported
S PSNTEXT="PGX field(s) initialization was unsuccessful due to the following error"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
S PSNTEXT="condition:"
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
S PSNTEXT=$S($G(PSNERR("DIERR",1,"TEXT",1))]"":$G(PSNERR("DIERR",1,"TEXT",1)),1:"No error TEXT available.")
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
S PSNTEXT="Submit a ServiceNow ticket requesting assistance in researching the error."
D BMES^XPDUTL(PSNTEXT),SETTXT(PSNTEXT)
Q
;
SETTXT(PSNTXT) ; setting plain PSNTEXT
S PSNLINE=PSNLINE+1,^TMP("PSN576PO",$J,PSNLINE)=PSNTXT
Q
;
PGXVPE ; PGX ELIGIBLE (#46) field is set to '1' in the VA PRODUCT (#50.68) file for below specified records
;;13019
;;13017
;;13018
;;25023
;;16858
;;31890
;;31731
;;31732
;;31729
;;33288
;;30531
;;2118
;;2120
;;32296
;;27915
;;2119
;;2121
;;27916
;;15049
;;28977
;;28846
;;3226
;;1371
;;1374
;;1368
;;2297
;;2299
;;6425
;;1372
;;1367
;;13543
;;6426
;;2298
;;2300
;;1369
;;1375
;;2296
;;1370
;;1376
;;29824
;;29822
;;29823
;;16944
;;16948
;;16950
;;16949
;;18074
;;18073
;;18072
;;16945
;;16946
;;16943
;;16947
;;29837
;;33855
;;16005
;;18233
;;16006
;;16008
;;18232
;;16007
;;17311
;;16009
;;33853
;;17585
;;26008
;;26011
;;16011
;;16012
;;26009
;;26010
;;33854
;;16474
;;19487
;;32690
;;32691
;;27779
;;26112
;;26214
;;28627
;;26113
;;30968
;;30959
;;30963
;;30957
;;30967
;;30960
;;30965
;;30961
;;30966
;;30962
;;30964
;;30958
;;27192
;;27191
;;21203
;;21204
;;21205
;;25423
;;25328
;;17699
;;15996
;;15997
;;15998
;;15999
;;16000
;;17724
;;12595
;;12596
;;32572
;;12597
;;14527
;;16514
;;5960
;;5959
;;16513
;;24906
;;25874
;;25871
;;33058
;;25861
;;33057
;;25862
;;25876
;;25879
;;31161
;;31160
;;12836
;;12837
;;24848
;;24844
;;24856
;;33066
;;24846
;;24839
;;24853
;;24849
;;24841
;;24855
;;24850
;;24843
;;24859
;;24852
;;15091
;;15096
;;15092
;;27325
;;27326
;;27327
;;15093
;;2008
;;13672
;;33890
;;33824
;;31580
;;32913
;;32344
;;29451
;;2010
;;30719
;;2009
;;15095
;;22842
;;2007
;;33808
;;33888
;;33822
;;31582
;;32911
;;32342
;;29770
;;2011
;;30717
;;13553
;;33889
;;33823
;;31581
;;32912
;;32343
;;21559
;;29805
;;2012
;;33427
;;30718
;;13023
;;13024
;;31579
;;13025
;;13026
;;16120
;;16121
;;18145
;;22839
;;31667
;;15286
;;14299
;;12926
;;12927
;;31775
;;12928
;;12929
;;28896
;;22769
;;24088
;;28897
;;22768
;;28895
;;8586
;;8587
;;13054
;;8588
;;19298
;;12794
;;12795
;;4263
;;28843
;;4105
;;4102
;;27213
;;4172
;;24317
;;4169
;;27225
;;18912
;;1866
;;26016
;;1869
;;24834
;;1840
;;4300
;;1839
;;13911
;;24068
;;7181
;;5920
;;29086
;;1838
;;24724
;;25167
;;27
;;28
;;15762
;;29
;;7650
;;7651
;;20301
;;26784
;;11744
;;5086
;;5082
;;5087
;;5083
;;5084
;;5085
;;24453
;;25617
;;24450
;;24451
;;27634
;;32666
;;33612
;;32667
;;33552
;;33553
;;33555
;;33554
;;27632
;;32665
;;27633
;;32844
;;20546
;;20547
;;18807
;;18808
;;21872
;;21874
;;1896
;;1892
;;1899
;;1898
;;1893
;;13570
;;1894
;;14905
;;1895
;;28402
;;15499
;;17832
;;28438
;;24999
;;15944
;;15945
;;15946
;;15947
;;15942
;;16475
;;28043
;;30118
;;29308
;;29309
;;21876
;;21877
;;18254
;;17780
;;18255
;;27583
;;17596
;;17595
;;31012
;;31015
;;31017
;;31016
;;16877
;;16879
;;16881
;;16883
;;22390
;;1674
;;15305
;;1673
;;1669
;;1668
;;1670
;;1671
;;7452
;;11937
;;11938
;;14960
;;20172
;;12356
;;14135
;;20171
;;12357
;;12355
;;14134
;;15740
;;5390
;;3570
;;3571
;;3573
;;3564
;;5392
;;3572
;;3563
;;3578
;;24838
;;4048
;;4047
;;4049
;;23130
;;4422
;;25759
;;13362
;;15915
;;24183
;;4413
;;24184
;;23128
;;16778
;;13360
;;4635
;;4636
;;23129
;;16373
;;22716
;;24185
;;13361
;;25286
;;24479
;;22131
;;25285
;;24481
;;22130
;;24482
;;25281
;;24483
;;25282
;;24484
;;25283
;;24485
;;22129
;;25288
;;12782
;;25287
;;8187
;;1831
;;1830
;;33447
;;1832
;;1828
;;20753
;;20752
;;23413
;;1827
;;14487
;;24644
;;10149
;;10150
;;1823
;;1833
;;29758
;;24398
;;1824
;;1835
;;1825
;;1834
;;24378
;;20625
;;20626
;;20620
;;20621
;;20622
;;20623
;;20624
;;20627
;;1946
;;1947
;;1948
;;1951
;;1952
;;1950
;;1949
;;12541
;;26238
;;7310
;;17782
;;17781
;;16694
;;17783
;;17784
;;16695
;;8521
;;16530
;;8520
;;16775
;;16531
;;8519
;;16776
;;16532
;;16777
;;26352
;;15127
;;30033
;;26353
;;14312
;;14313
;;21981
;;24748
;;5989
;;27361
;;5885
;;33273
;;33592
;;30420
;;2170
;;13594
;;2174
;;14323
;;17208
;;17207
;;2172
;;33403
;;28677
;;4059
;;28678
;;4060
;;28675
;;15070
;;28676
;;4058
;;20705
;;4056
;;14755
;;4057
;;16581
;;18060
;;26623
;;4055
;;13912
;;26624
;;4999
;;568
;;572
;;6332
;;32952
;;6326
;;6330
;;6325
;;6335
;;15469
;;605
;;603
;;606
;;13599
;;607
;;15720
;;604
;;27311
;;17788
;;17790
;;17791
;;28056
;;28576
;;16450
;;17908
;;18761
;;32560
;;17792
;;17909
;;18759
;;21165
;;24990
;;33596
;;13815
;;24911
;;24139
;;8831
;;8832
;;13194
;;8835
;;8833
;;13195
;;15593
;;14097
;;23634
;;14098
;;14099
;;23636
;;14100
;;15310
;;14101
;;23635
;;14102
;;22561
;;33638
;;33637
;;33825
;;16696
;;14317
;;16902
;;19656
;;15283
;;5236
;;24087
;;9882
;;19489
;;9884
;;15873
;;9880
;;13626
;;15874
;;9881
;;15875
;;9883
;;21978
;;25367
;;25368
;;1918
;;15119
;;1915
;;13683
;;1920
;;1924
;;1916
;;13684
;;1923
;;22545
;;16019
;;16020
;;1917
;;14584
;;4430
;;5153
;;5154
;;28414
;;28415
;;28416
;;28412
;;28413
;;29568
;;29567
;;28655
;;9680
;;9681
;;17552
;;9682
;;19366
;;15470
;;12862
;;3785
;;16212
;;18277
;;29370
;;29371
;;29372
;;29369
;;16387
;;16388
;;16389
;;16390
;;16391
;;16386
;;31488
;;31489
;;9715
;;13667
;;14369
;;9716
;;9714
;;13668
;;12413
;;9742
;;14321
;;9743
;;14760
;;27928
;;9744
;;16244
;;27929
;;9741
;;14759
;;12914
;;16135
;;29154
;;29156
;;31853
;;31851
;;29155
;;444
;;1340
;;26852
;;26969
;;26984
;;24115
;;24116
;;24117
;;26447
;;26448
;;26449
;;29110
;;21983
;;21984
;;29109
;;21985
;;13413
;;12118
;;12119
;;12120
;;28886
;;29009
;;18330
;;4342
;;4343
;;19955
;;19956
;;5990
;;2093
;;2104
;;2090
;;13615
;;2091
;;2092
;;23789
;;24206
;;5011
;;25274
;;14892
;;5008
;;5009
;;29020
;;29021
;;24975
;;29946
;;29022
;;29023
;;24976
;;33255
;;29024
;;29025
;;24977
;;24877
;;24876
;;31717
;;12380
;;14324
;;30520
;;33870
;;2817
;;2815
;;2816
;;27703
;;33481
;;29207
;;31110
;;33483
;;27965
;;33484
;;33219
;;11814
;;22895
;;22896
;;20091
;;20092
;;11810
;;22897
;;22898
;;20093
;;11811
;;14956
;;11812
;;22899
;;22900
;;20094
;;11813
;;15881
;;17822
;;15883
;;15880
;;24238
;;24239
;;24237
;;25499
;;25500
;;25502
;;25501
;;25503
;;25504
;;25505
;;25506
;;25507
;;21207
;;21209
;;21210
;;21212
;;21214
;;21215
;;21213
;;21211
;;21208
;;30098
;;30097
;;30081
;;30082
;;30085
;;30086
;;30083
;;30084
;;30087
;;30088
;;30089
;;30090
;;30091
;;30092
;;30094
;;30093
;;30095
;;30096
;;27890
;;27896
;;27891
;;27893
;;27897
;;27898
;;27894
;;27892
;;27895
;;30462
;;30463
;;30464
;;30465
;;30466
;;30467
;;30468
;;30469
;;30470
;;4654
;;4656
;;4651
;;4650
;;4659
;;4657
;;4652
;;4660
;;4653
;;END
;
PGXVPS ; PGX SUPPRESSED (#47) field is set to '1' in the VA PRODUCT (#50.68) file for below specified records
;;1371
;;1374
;;1368
;;2297
;;2299
;;6425
;;1372
;;1367
;;13543
;;6426
;;2298
;;2300
;;1369
;;1375
;;2296
;;1370
;;1376
;;16944
;;16948
;;16950
;;16949
;;18074
;;18073
;;18072
;;16945
;;16946
;;16943
;;16947
;;12595
;;12596
;;32572
;;12597
;;14527
;;15286
;;14299
;;12926
;;12927
;;31775
;;12928
;;12929
;;8586
;;8587
;;13054
;;8588
;;4263
;;28843
;;4105
;;4102
;;27213
;;4172
;;24317
;;4169
;;27225
;;18912
;;1866
;;26016
;;1869
;;24834
;;1840
;;4300
;;1839
;;13911
;;24068
;;7181
;;5920
;;29086
;;1838
;;24724
;;25167
;;27
;;28
;;15762
;;29
;;5086
;;5082
;;5087
;;5083
;;5084
;;5085
;;21872
;;21874
;;1896
;;1892
;;1899
;;1898
;;1893
;;13570
;;1894
;;14905
;;1895
;;15944
;;15945
;;15946
;;15947
;;15942
;;16475
;;31012
;;31015
;;31017
;;31016
;;16877
;;16879
;;16881
;;16883
;;11937
;;11938
;;14960
;;1946
;;1947
;;1948
;;1951
;;1952
;;1950
;;1949
;;8521
;;16530
;;8520
;;16775
;;16531
;;8519
;;16776
;;16532
;;16777
;;605
;;603
;;606
;;13599
;;607
;;15720
;;604
;;33596
;;13815
;;24911
;;24139
;;8831
;;8832
;;13194
;;8835
;;8833
;;13195
;;15593
;;24087
;;9882
;;19489
;;9884
;;15873
;;9880
;;13626
;;15874
;;9881
;;15875
;;9883
;;28414
;;28415
;;28416
;;28412
;;28413
;;9680
;;9681
;;17552
;;9682
;;19366
;;15470
;;29370
;;29371
;;29372
;;29369
;;16387
;;16388
;;16389
;;16390
;;16391
;;16386
;;9742
;;14321
;;9743
;;14760
;;27928
;;9744
;;16244
;;27929
;;9741
;;14759
;;12914
;;16135
;;18330
;;4342
;;4343
;;29020
;;29021
;;24975
;;29946
;;29022
;;29023
;;24976
;;33255
;;29024
;;29025
;;24977
;;24877
;;24876
;;12380
;;14324
;;30520
;;33870
;;2817
;;2815
;;2816
;;END
;
PGXDIE ; PGX ELIGIBLE (#5) field is set to '1' in the DRUG INGREDIENTS (#50.416) file for below specified records
;;3811
;;5512
;;490
;;5228
;;5205
;;734
;;338
;;4041
;;5012
;;4656
;;4073
;;4038
;;3666
;;1368
;;4941
;;5000
;;3767
;;468
;;3815
;;3800
;;3801
;;4437
;;2106
;;3746
;;101
;;6
;;2105
;;5
;;1874
;;3299
;;1208
;;4503
;;5086
;;4577
;;2355
;;446
;;3805
;;4948
;;1712
;;4030
;;3931
;;3932
;;4287
;;4875
;;401
;;1763
;;1762
;;3510
;;3550
;;3640
;;807
;;1097
;;762
;;1071
;;2022
;;435
;;4896
;;4582
;;457
;;458
;;3635
;;1713
;;3582
;;2096
;;3875
;;1378
;;1335
;;1178
;;2458
;;500
;;3532
;;991
;;2917
;;93
;;1452
;;1451
;;112
;;2053
;;4650
;;2488
;;2178
;;3868
;;3880
;;3881
;;1239
;;3471
;;3388
;;4709
;;451
;;452
;;450
;;1077
;;1227
;;4660
;;5151
;;5150
;;5293
;;5171
;;3194
;;3011
;;827
;;4050
;;4081
;;3197
;;3038
;;3584
;;3045
;;5250
;;67
;;325
;;3525
;;5212
;;2565
;;1060
;;4534
;;1379
;;487
;;1194
;;1195
;;3572
;;657
;;5089
;;5686
;;3502
;;4021
;;4885
;;1147
;;END
;
PGXDIS ; PGX SUPPRESSED (#6) field is set to '1' in the DRUG INGREDIENTS (#50.416) file for below specified records
;;338
;;3666
;;3800
;;3801
;;2106
;;101
;;6
;;2105
;;5
;;1208
;;2355
;;446
;;4030
;;3510
;;457
;;458
;;2096
;;112
;;2488
;;2178
;;3471
;;3388
;;4660
;;5151
;;5150
;;3194
;;3011
;;4081
;;3045
;;2565
;;3572
;;657
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN576PO 15565 printed Sep 23, 2025@19:59:38 Page 2
PSN576PO ;BP/AGV - Patch 576 Post Install routine ;7/11/24
+1 ;;4.0;NATIONAL DRUG FILE;**576**; 30 Oct 98;Build 25
+2 ;
POST ; post install routine to initialize PGx field values
+1 NEW PSNLINE,PSNCNT,PSNTEXT
SET PSNTEXT=""
SET PSNLINE=0
+2 KILL ^TMP("PSN576PO",$JOB),^PSNDF(50.68,"APGX")
+3 ;
+4 FOR PSNCNT=1:1:80
SET PSNTEXT=PSNTEXT_"_"
+5 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+6 DO SETNO
+7 ;
+8 SET PSNTEXT=""
FOR PSNCNT=1:1:80
SET PSNTEXT=PSNTEXT_"_"
+9 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+10 DO SETYES
+11 ;
+12 SET PSNTEXT=""
FOR PSNCNT=1:1:80
SET PSNTEXT=PSNTEXT_"_"
+13 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+14 ;
+15 DO MAIL
+16 QUIT
+17 ;
SETNO ; sets all values to '0' in the PGX ELIGIBILE and PGX SUPPRESSED fields in the VA PRODUCT (#50.68) and DRUG INGREDIENTS (#50.416) files
+1 NEW PSNCNT,PSNTEXT
SET PSNCNT=0
SET PSNTEXT=""
+2 SET PSNTEXT="Initializing the PGX ELIGIBLE (#46) and PGX SUPPRESSED (#47) fields in the"
+3 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+4 SET PSNTEXT=""
NEW X
FOR X=0:0
SET X=$ORDER(^PSNDF(50.68,X))
if 'X
QUIT
Begin DoDot:1
+5 SET ^PSNDF(50.68,X,"PGX")="0^0"
SET PSNCNT=PSNCNT+1
+6 IF PSNCNT=100
SET PSNTEXT=PSNTEXT_"."
SET PSNCNT=0
End DoDot:1
+7 SET PSNTEXT="VA PRODUCT (#50.68) file"_PSNTEXT_"OK!"
+8 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+9 ;
+10 NEW PSNCNT,PSNTEXT
SET PSNCNT=0
SET PSNTEXT=""
+11 SET PSNTEXT="Initializing the PGX ELIGIBLE (#5) and PGX SUPPRESSED (#6) fields in the"
+12 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+13 SET PSNTEXT=""
NEW X
FOR X=0:0
SET X=$ORDER(^PS(50.416,X))
if 'X
QUIT
Begin DoDot:1
+14 SET ^PS(50.416,X,"PGX")="0^0"
SET PSNCNT=PSNCNT+1
+15 IF PSNCNT=100
SET PSNTEXT=PSNTEXT_"."
SET PSNCNT=0
End DoDot:1
+16 SET PSNTEXT="DRUG INGREDIENTS (#50.416) file"_PSNTEXT_"OK!"
+17 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+18 QUIT
+19 ;
SETYES ; sets values for specified entries to '1' in the PGX ELIGIBLE and PGX SUPPRESSED fields in the VA PRODUCT (#50.68) and DRUG INGREDIENTS (#50.416) files
+1 NEW PSNFILE,PSNIEN,PSNFDA,PSNERR,P1,PSNSTR
+2 SET PSNFILE=50.68
SET PSNCNT=0
SET PSNTEXT=""
+3 SET PSNTEXT="Setting specified entries of the PGX ELIGIBLE (#46) and"
+4 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+5 FOR P1=1:1
SET PSNSTR=$TEXT(PGXVPE+P1)
if PSNSTR["END"
QUIT
Begin DoDot:1
+6 SET PSNIEN=$PIECE(PSNSTR,";;",2)
SET PSNFDA(PSNFILE,PSNIEN_",",46)=1
SET PSNCNT=PSNCNT+1
End DoDot:1
+7 FOR P1=1:1
SET PSNSTR=$TEXT(PGXVPS+P1)
if (PSNSTR["END")
QUIT
Begin DoDot:1
+8 SET PSNIEN=$PIECE(PSNSTR,";;",2)
SET PSNFDA(PSNFILE,PSNIEN_",",47)=1
SET PSNCNT=PSNCNT+1
End DoDot:1
+9 DO FILE^DIE("","PSNFDA","PSNERR")
+10 IF $DATA(PSNERR("DIERR",1,"PSNTEXT",1))
DO ERROR
QUIT
+11 SET PSNTEXT=""
FOR X=1:1:100
SET PSNTEXT=PSNTEXT_"."
+12 SET PSNTEXT="PGX SUPPRESSED (#47) fields to 'Y' in the VA PRODUCT (#50.68) file"_PSNTEXT_"OK!"
+13 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+14 ;
+15 NEW PSNFILE,PSNIEN,PSNFDA,PSNERR
+16 SET PSNFILE=50.416
SET PSNCNT=0
SET PSNTEXT=""
+17 SET PSNTEXT="Setting specified entries of the PGX ELIGIBLE (#5) and"
+18 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+19 FOR P1=1:1
SET PSNSTR=$TEXT(PGXDIE+P1)
if PSNSTR["END"
QUIT
Begin DoDot:1
+20 SET PSNIEN=$PIECE(PSNSTR,";;",2)
SET PSNFDA(PSNFILE,PSNIEN_",",5)=1
End DoDot:1
+21 FOR P1=1:1
SET PSNSTR=$TEXT(PGXDIS+P1)
if (PSNSTR["END")
QUIT
Begin DoDot:1
+22 SET PSNIEN=$PIECE(PSNSTR,";;",2)
SET PSNFDA(PSNFILE,PSNIEN_",",6)=1
End DoDot:1
+23 DO FILE^DIE("","PSNFDA","PSNERR")
+24 IF $DATA(PSNERR("DIERR",1,"TEXT",1))
DO ERROR
QUIT
+25 SET PSNTEXT=""
FOR X=1:1:100
SET PSNTEXT=PSNTEXT_"."
+26 SET PSNTEXT="PGX SUPPRESSED (#6) fields to 'Y' in the DRUG INGREDIENTS (#50.416) file"_PSNTEXT_"OK!"
+27 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+28 QUIT
+29 ;
MAIL ; sends mailman message
+1 NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
+2 DO BMES^XPDUTL("Sending Mailman Message with update...")
+3 SET XMY(DUZ)=""
SET XMSUB="PSN*4*576 Post-Install Complete"
+4 SET XMDUZ="PSN*4*576 Install"
SET XMTEXT="^TMP(""PSN576PO"",$J,"
+5 DO ^XMD
+6 QUIT
+7 ;
ERROR ; an error condition needs to be reported
+1 SET PSNTEXT="PGX field(s) initialization was unsuccessful due to the following error"
+2 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+3 SET PSNTEXT="condition:"
+4 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+5 SET PSNTEXT=$SELECT($GET(PSNERR("DIERR",1,"TEXT",1))]"":$GET(PSNERR("DIERR",1,"TEXT",1)),1:"No error TEXT available.")
+6 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+7 SET PSNTEXT="Submit a ServiceNow ticket requesting assistance in researching the error."
+8 DO BMES^XPDUTL(PSNTEXT)
DO SETTXT(PSNTEXT)
+9 QUIT
+10 ;
SETTXT(PSNTXT) ; setting plain PSNTEXT
+1 SET PSNLINE=PSNLINE+1
SET ^TMP("PSN576PO",$JOB,PSNLINE)=PSNTXT
+2 QUIT
+3 ;
PGXVPE ; PGX ELIGIBLE (#46) field is set to '1' in the VA PRODUCT (#50.68) file for below specified records
+1 ;;13019
+2 ;;13017
+3 ;;13018
+4 ;;25023
+5 ;;16858
+6 ;;31890
+7 ;;31731
+8 ;;31732
+9 ;;31729
+10 ;;33288
+11 ;;30531
+12 ;;2118
+13 ;;2120
+14 ;;32296
+15 ;;27915
+16 ;;2119
+17 ;;2121
+18 ;;27916
+19 ;;15049
+20 ;;28977
+21 ;;28846
+22 ;;3226
+23 ;;1371
+24 ;;1374
+25 ;;1368
+26 ;;2297
+27 ;;2299
+28 ;;6425
+29 ;;1372
+30 ;;1367
+31 ;;13543
+32 ;;6426
+33 ;;2298
+34 ;;2300
+35 ;;1369
+36 ;;1375
+37 ;;2296
+38 ;;1370
+39 ;;1376
+40 ;;29824
+41 ;;29822
+42 ;;29823
+43 ;;16944
+44 ;;16948
+45 ;;16950
+46 ;;16949
+47 ;;18074
+48 ;;18073
+49 ;;18072
+50 ;;16945
+51 ;;16946
+52 ;;16943
+53 ;;16947
+54 ;;29837
+55 ;;33855
+56 ;;16005
+57 ;;18233
+58 ;;16006
+59 ;;16008
+60 ;;18232
+61 ;;16007
+62 ;;17311
+63 ;;16009
+64 ;;33853
+65 ;;17585
+66 ;;26008
+67 ;;26011
+68 ;;16011
+69 ;;16012
+70 ;;26009
+71 ;;26010
+72 ;;33854
+73 ;;16474
+74 ;;19487
+75 ;;32690
+76 ;;32691
+77 ;;27779
+78 ;;26112
+79 ;;26214
+80 ;;28627
+81 ;;26113
+82 ;;30968
+83 ;;30959
+84 ;;30963
+85 ;;30957
+86 ;;30967
+87 ;;30960
+88 ;;30965
+89 ;;30961
+90 ;;30966
+91 ;;30962
+92 ;;30964
+93 ;;30958
+94 ;;27192
+95 ;;27191
+96 ;;21203
+97 ;;21204
+98 ;;21205
+99 ;;25423
+100 ;;25328
+101 ;;17699
+102 ;;15996
+103 ;;15997
+104 ;;15998
+105 ;;15999
+106 ;;16000
+107 ;;17724
+108 ;;12595
+109 ;;12596
+110 ;;32572
+111 ;;12597
+112 ;;14527
+113 ;;16514
+114 ;;5960
+115 ;;5959
+116 ;;16513
+117 ;;24906
+118 ;;25874
+119 ;;25871
+120 ;;33058
+121 ;;25861
+122 ;;33057
+123 ;;25862
+124 ;;25876
+125 ;;25879
+126 ;;31161
+127 ;;31160
+128 ;;12836
+129 ;;12837
+130 ;;24848
+131 ;;24844
+132 ;;24856
+133 ;;33066
+134 ;;24846
+135 ;;24839
+136 ;;24853
+137 ;;24849
+138 ;;24841
+139 ;;24855
+140 ;;24850
+141 ;;24843
+142 ;;24859
+143 ;;24852
+144 ;;15091
+145 ;;15096
+146 ;;15092
+147 ;;27325
+148 ;;27326
+149 ;;27327
+150 ;;15093
+151 ;;2008
+152 ;;13672
+153 ;;33890
+154 ;;33824
+155 ;;31580
+156 ;;32913
+157 ;;32344
+158 ;;29451
+159 ;;2010
+160 ;;30719
+161 ;;2009
+162 ;;15095
+163 ;;22842
+164 ;;2007
+165 ;;33808
+166 ;;33888
+167 ;;33822
+168 ;;31582
+169 ;;32911
+170 ;;32342
+171 ;;29770
+172 ;;2011
+173 ;;30717
+174 ;;13553
+175 ;;33889
+176 ;;33823
+177 ;;31581
+178 ;;32912
+179 ;;32343
+180 ;;21559
+181 ;;29805
+182 ;;2012
+183 ;;33427
+184 ;;30718
+185 ;;13023
+186 ;;13024
+187 ;;31579
+188 ;;13025
+189 ;;13026
+190 ;;16120
+191 ;;16121
+192 ;;18145
+193 ;;22839
+194 ;;31667
+195 ;;15286
+196 ;;14299
+197 ;;12926
+198 ;;12927
+199 ;;31775
+200 ;;12928
+201 ;;12929
+202 ;;28896
+203 ;;22769
+204 ;;24088
+205 ;;28897
+206 ;;22768
+207 ;;28895
+208 ;;8586
+209 ;;8587
+210 ;;13054
+211 ;;8588
+212 ;;19298
+213 ;;12794
+214 ;;12795
+215 ;;4263
+216 ;;28843
+217 ;;4105
+218 ;;4102
+219 ;;27213
+220 ;;4172
+221 ;;24317
+222 ;;4169
+223 ;;27225
+224 ;;18912
+225 ;;1866
+226 ;;26016
+227 ;;1869
+228 ;;24834
+229 ;;1840
+230 ;;4300
+231 ;;1839
+232 ;;13911
+233 ;;24068
+234 ;;7181
+235 ;;5920
+236 ;;29086
+237 ;;1838
+238 ;;24724
+239 ;;25167
+240 ;;27
+241 ;;28
+242 ;;15762
+243 ;;29
+244 ;;7650
+245 ;;7651
+246 ;;20301
+247 ;;26784
+248 ;;11744
+249 ;;5086
+250 ;;5082
+251 ;;5087
+252 ;;5083
+253 ;;5084
+254 ;;5085
+255 ;;24453
+256 ;;25617
+257 ;;24450
+258 ;;24451
+259 ;;27634
+260 ;;32666
+261 ;;33612
+262 ;;32667
+263 ;;33552
+264 ;;33553
+265 ;;33555
+266 ;;33554
+267 ;;27632
+268 ;;32665
+269 ;;27633
+270 ;;32844
+271 ;;20546
+272 ;;20547
+273 ;;18807
+274 ;;18808
+275 ;;21872
+276 ;;21874
+277 ;;1896
+278 ;;1892
+279 ;;1899
+280 ;;1898
+281 ;;1893
+282 ;;13570
+283 ;;1894
+284 ;;14905
+285 ;;1895
+286 ;;28402
+287 ;;15499
+288 ;;17832
+289 ;;28438
+290 ;;24999
+291 ;;15944
+292 ;;15945
+293 ;;15946
+294 ;;15947
+295 ;;15942
+296 ;;16475
+297 ;;28043
+298 ;;30118
+299 ;;29308
+300 ;;29309
+301 ;;21876
+302 ;;21877
+303 ;;18254
+304 ;;17780
+305 ;;18255
+306 ;;27583
+307 ;;17596
+308 ;;17595
+309 ;;31012
+310 ;;31015
+311 ;;31017
+312 ;;31016
+313 ;;16877
+314 ;;16879
+315 ;;16881
+316 ;;16883
+317 ;;22390
+318 ;;1674
+319 ;;15305
+320 ;;1673
+321 ;;1669
+322 ;;1668
+323 ;;1670
+324 ;;1671
+325 ;;7452
+326 ;;11937
+327 ;;11938
+328 ;;14960
+329 ;;20172
+330 ;;12356
+331 ;;14135
+332 ;;20171
+333 ;;12357
+334 ;;12355
+335 ;;14134
+336 ;;15740
+337 ;;5390
+338 ;;3570
+339 ;;3571
+340 ;;3573
+341 ;;3564
+342 ;;5392
+343 ;;3572
+344 ;;3563
+345 ;;3578
+346 ;;24838
+347 ;;4048
+348 ;;4047
+349 ;;4049
+350 ;;23130
+351 ;;4422
+352 ;;25759
+353 ;;13362
+354 ;;15915
+355 ;;24183
+356 ;;4413
+357 ;;24184
+358 ;;23128
+359 ;;16778
+360 ;;13360
+361 ;;4635
+362 ;;4636
+363 ;;23129
+364 ;;16373
+365 ;;22716
+366 ;;24185
+367 ;;13361
+368 ;;25286
+369 ;;24479
+370 ;;22131
+371 ;;25285
+372 ;;24481
+373 ;;22130
+374 ;;24482
+375 ;;25281
+376 ;;24483
+377 ;;25282
+378 ;;24484
+379 ;;25283
+380 ;;24485
+381 ;;22129
+382 ;;25288
+383 ;;12782
+384 ;;25287
+385 ;;8187
+386 ;;1831
+387 ;;1830
+388 ;;33447
+389 ;;1832
+390 ;;1828
+391 ;;20753
+392 ;;20752
+393 ;;23413
+394 ;;1827
+395 ;;14487
+396 ;;24644
+397 ;;10149
+398 ;;10150
+399 ;;1823
+400 ;;1833
+401 ;;29758
+402 ;;24398
+403 ;;1824
+404 ;;1835
+405 ;;1825
+406 ;;1834
+407 ;;24378
+408 ;;20625
+409 ;;20626
+410 ;;20620
+411 ;;20621
+412 ;;20622
+413 ;;20623
+414 ;;20624
+415 ;;20627
+416 ;;1946
+417 ;;1947
+418 ;;1948
+419 ;;1951
+420 ;;1952
+421 ;;1950
+422 ;;1949
+423 ;;12541
+424 ;;26238
+425 ;;7310
+426 ;;17782
+427 ;;17781
+428 ;;16694
+429 ;;17783
+430 ;;17784
+431 ;;16695
+432 ;;8521
+433 ;;16530
+434 ;;8520
+435 ;;16775
+436 ;;16531
+437 ;;8519
+438 ;;16776
+439 ;;16532
+440 ;;16777
+441 ;;26352
+442 ;;15127
+443 ;;30033
+444 ;;26353
+445 ;;14312
+446 ;;14313
+447 ;;21981
+448 ;;24748
+449 ;;5989
+450 ;;27361
+451 ;;5885
+452 ;;33273
+453 ;;33592
+454 ;;30420
+455 ;;2170
+456 ;;13594
+457 ;;2174
+458 ;;14323
+459 ;;17208
+460 ;;17207
+461 ;;2172
+462 ;;33403
+463 ;;28677
+464 ;;4059
+465 ;;28678
+466 ;;4060
+467 ;;28675
+468 ;;15070
+469 ;;28676
+470 ;;4058
+471 ;;20705
+472 ;;4056
+473 ;;14755
+474 ;;4057
+475 ;;16581
+476 ;;18060
+477 ;;26623
+478 ;;4055
+479 ;;13912
+480 ;;26624
+481 ;;4999
+482 ;;568
+483 ;;572
+484 ;;6332
+485 ;;32952
+486 ;;6326
+487 ;;6330
+488 ;;6325
+489 ;;6335
+490 ;;15469
+491 ;;605
+492 ;;603
+493 ;;606
+494 ;;13599
+495 ;;607
+496 ;;15720
+497 ;;604
+498 ;;27311
+499 ;;17788
+500 ;;17790
+501 ;;17791
+502 ;;28056
+503 ;;28576
+504 ;;16450
+505 ;;17908
+506 ;;18761
+507 ;;32560
+508 ;;17792
+509 ;;17909
+510 ;;18759
+511 ;;21165
+512 ;;24990
+513 ;;33596
+514 ;;13815
+515 ;;24911
+516 ;;24139
+517 ;;8831
+518 ;;8832
+519 ;;13194
+520 ;;8835
+521 ;;8833
+522 ;;13195
+523 ;;15593
+524 ;;14097
+525 ;;23634
+526 ;;14098
+527 ;;14099
+528 ;;23636
+529 ;;14100
+530 ;;15310
+531 ;;14101
+532 ;;23635
+533 ;;14102
+534 ;;22561
+535 ;;33638
+536 ;;33637
+537 ;;33825
+538 ;;16696
+539 ;;14317
+540 ;;16902
+541 ;;19656
+542 ;;15283
+543 ;;5236
+544 ;;24087
+545 ;;9882
+546 ;;19489
+547 ;;9884
+548 ;;15873
+549 ;;9880
+550 ;;13626
+551 ;;15874
+552 ;;9881
+553 ;;15875
+554 ;;9883
+555 ;;21978
+556 ;;25367
+557 ;;25368
+558 ;;1918
+559 ;;15119
+560 ;;1915
+561 ;;13683
+562 ;;1920
+563 ;;1924
+564 ;;1916
+565 ;;13684
+566 ;;1923
+567 ;;22545
+568 ;;16019
+569 ;;16020
+570 ;;1917
+571 ;;14584
+572 ;;4430
+573 ;;5153
+574 ;;5154
+575 ;;28414
+576 ;;28415
+577 ;;28416
+578 ;;28412
+579 ;;28413
+580 ;;29568
+581 ;;29567
+582 ;;28655
+583 ;;9680
+584 ;;9681
+585 ;;17552
+586 ;;9682
+587 ;;19366
+588 ;;15470
+589 ;;12862
+590 ;;3785
+591 ;;16212
+592 ;;18277
+593 ;;29370
+594 ;;29371
+595 ;;29372
+596 ;;29369
+597 ;;16387
+598 ;;16388
+599 ;;16389
+600 ;;16390
+601 ;;16391
+602 ;;16386
+603 ;;31488
+604 ;;31489
+605 ;;9715
+606 ;;13667
+607 ;;14369
+608 ;;9716
+609 ;;9714
+610 ;;13668
+611 ;;12413
+612 ;;9742
+613 ;;14321
+614 ;;9743
+615 ;;14760
+616 ;;27928
+617 ;;9744
+618 ;;16244
+619 ;;27929
+620 ;;9741
+621 ;;14759
+622 ;;12914
+623 ;;16135
+624 ;;29154
+625 ;;29156
+626 ;;31853
+627 ;;31851
+628 ;;29155
+629 ;;444
+630 ;;1340
+631 ;;26852
+632 ;;26969
+633 ;;26984
+634 ;;24115
+635 ;;24116
+636 ;;24117
+637 ;;26447
+638 ;;26448
+639 ;;26449
+640 ;;29110
+641 ;;21983
+642 ;;21984
+643 ;;29109
+644 ;;21985
+645 ;;13413
+646 ;;12118
+647 ;;12119
+648 ;;12120
+649 ;;28886
+650 ;;29009
+651 ;;18330
+652 ;;4342
+653 ;;4343
+654 ;;19955
+655 ;;19956
+656 ;;5990
+657 ;;2093
+658 ;;2104
+659 ;;2090
+660 ;;13615
+661 ;;2091
+662 ;;2092
+663 ;;23789
+664 ;;24206
+665 ;;5011
+666 ;;25274
+667 ;;14892
+668 ;;5008
+669 ;;5009
+670 ;;29020
+671 ;;29021
+672 ;;24975
+673 ;;29946
+674 ;;29022
+675 ;;29023
+676 ;;24976
+677 ;;33255
+678 ;;29024
+679 ;;29025
+680 ;;24977
+681 ;;24877
+682 ;;24876
+683 ;;31717
+684 ;;12380
+685 ;;14324
+686 ;;30520
+687 ;;33870
+688 ;;2817
+689 ;;2815
+690 ;;2816
+691 ;;27703
+692 ;;33481
+693 ;;29207
+694 ;;31110
+695 ;;33483
+696 ;;27965
+697 ;;33484
+698 ;;33219
+699 ;;11814
+700 ;;22895
+701 ;;22896
+702 ;;20091
+703 ;;20092
+704 ;;11810
+705 ;;22897
+706 ;;22898
+707 ;;20093
+708 ;;11811
+709 ;;14956
+710 ;;11812
+711 ;;22899
+712 ;;22900
+713 ;;20094
+714 ;;11813
+715 ;;15881
+716 ;;17822
+717 ;;15883
+718 ;;15880
+719 ;;24238
+720 ;;24239
+721 ;;24237
+722 ;;25499
+723 ;;25500
+724 ;;25502
+725 ;;25501
+726 ;;25503
+727 ;;25504
+728 ;;25505
+729 ;;25506
+730 ;;25507
+731 ;;21207
+732 ;;21209
+733 ;;21210
+734 ;;21212
+735 ;;21214
+736 ;;21215
+737 ;;21213
+738 ;;21211
+739 ;;21208
+740 ;;30098
+741 ;;30097
+742 ;;30081
+743 ;;30082
+744 ;;30085
+745 ;;30086
+746 ;;30083
+747 ;;30084
+748 ;;30087
+749 ;;30088
+750 ;;30089
+751 ;;30090
+752 ;;30091
+753 ;;30092
+754 ;;30094
+755 ;;30093
+756 ;;30095
+757 ;;30096
+758 ;;27890
+759 ;;27896
+760 ;;27891
+761 ;;27893
+762 ;;27897
+763 ;;27898
+764 ;;27894
+765 ;;27892
+766 ;;27895
+767 ;;30462
+768 ;;30463
+769 ;;30464
+770 ;;30465
+771 ;;30466
+772 ;;30467
+773 ;;30468
+774 ;;30469
+775 ;;30470
+776 ;;4654
+777 ;;4656
+778 ;;4651
+779 ;;4650
+780 ;;4659
+781 ;;4657
+782 ;;4652
+783 ;;4660
+784 ;;4653
+785 ;;END
+786 ;
PGXVPS ; PGX SUPPRESSED (#47) field is set to '1' in the VA PRODUCT (#50.68) file for below specified records
+1 ;;1371
+2 ;;1374
+3 ;;1368
+4 ;;2297
+5 ;;2299
+6 ;;6425
+7 ;;1372
+8 ;;1367
+9 ;;13543
+10 ;;6426
+11 ;;2298
+12 ;;2300
+13 ;;1369
+14 ;;1375
+15 ;;2296
+16 ;;1370
+17 ;;1376
+18 ;;16944
+19 ;;16948
+20 ;;16950
+21 ;;16949
+22 ;;18074
+23 ;;18073
+24 ;;18072
+25 ;;16945
+26 ;;16946
+27 ;;16943
+28 ;;16947
+29 ;;12595
+30 ;;12596
+31 ;;32572
+32 ;;12597
+33 ;;14527
+34 ;;15286
+35 ;;14299
+36 ;;12926
+37 ;;12927
+38 ;;31775
+39 ;;12928
+40 ;;12929
+41 ;;8586
+42 ;;8587
+43 ;;13054
+44 ;;8588
+45 ;;4263
+46 ;;28843
+47 ;;4105
+48 ;;4102
+49 ;;27213
+50 ;;4172
+51 ;;24317
+52 ;;4169
+53 ;;27225
+54 ;;18912
+55 ;;1866
+56 ;;26016
+57 ;;1869
+58 ;;24834
+59 ;;1840
+60 ;;4300
+61 ;;1839
+62 ;;13911
+63 ;;24068
+64 ;;7181
+65 ;;5920
+66 ;;29086
+67 ;;1838
+68 ;;24724
+69 ;;25167
+70 ;;27
+71 ;;28
+72 ;;15762
+73 ;;29
+74 ;;5086
+75 ;;5082
+76 ;;5087
+77 ;;5083
+78 ;;5084
+79 ;;5085
+80 ;;21872
+81 ;;21874
+82 ;;1896
+83 ;;1892
+84 ;;1899
+85 ;;1898
+86 ;;1893
+87 ;;13570
+88 ;;1894
+89 ;;14905
+90 ;;1895
+91 ;;15944
+92 ;;15945
+93 ;;15946
+94 ;;15947
+95 ;;15942
+96 ;;16475
+97 ;;31012
+98 ;;31015
+99 ;;31017
+100 ;;31016
+101 ;;16877
+102 ;;16879
+103 ;;16881
+104 ;;16883
+105 ;;11937
+106 ;;11938
+107 ;;14960
+108 ;;1946
+109 ;;1947
+110 ;;1948
+111 ;;1951
+112 ;;1952
+113 ;;1950
+114 ;;1949
+115 ;;8521
+116 ;;16530
+117 ;;8520
+118 ;;16775
+119 ;;16531
+120 ;;8519
+121 ;;16776
+122 ;;16532
+123 ;;16777
+124 ;;605
+125 ;;603
+126 ;;606
+127 ;;13599
+128 ;;607
+129 ;;15720
+130 ;;604
+131 ;;33596
+132 ;;13815
+133 ;;24911
+134 ;;24139
+135 ;;8831
+136 ;;8832
+137 ;;13194
+138 ;;8835
+139 ;;8833
+140 ;;13195
+141 ;;15593
+142 ;;24087
+143 ;;9882
+144 ;;19489
+145 ;;9884
+146 ;;15873
+147 ;;9880
+148 ;;13626
+149 ;;15874
+150 ;;9881
+151 ;;15875
+152 ;;9883
+153 ;;28414
+154 ;;28415
+155 ;;28416
+156 ;;28412
+157 ;;28413
+158 ;;9680
+159 ;;9681
+160 ;;17552
+161 ;;9682
+162 ;;19366
+163 ;;15470
+164 ;;29370
+165 ;;29371
+166 ;;29372
+167 ;;29369
+168 ;;16387
+169 ;;16388
+170 ;;16389
+171 ;;16390
+172 ;;16391
+173 ;;16386
+174 ;;9742
+175 ;;14321
+176 ;;9743
+177 ;;14760
+178 ;;27928
+179 ;;9744
+180 ;;16244
+181 ;;27929
+182 ;;9741
+183 ;;14759
+184 ;;12914
+185 ;;16135
+186 ;;18330
+187 ;;4342
+188 ;;4343
+189 ;;29020
+190 ;;29021
+191 ;;24975
+192 ;;29946
+193 ;;29022
+194 ;;29023
+195 ;;24976
+196 ;;33255
+197 ;;29024
+198 ;;29025
+199 ;;24977
+200 ;;24877
+201 ;;24876
+202 ;;12380
+203 ;;14324
+204 ;;30520
+205 ;;33870
+206 ;;2817
+207 ;;2815
+208 ;;2816
+209 ;;END
+210 ;
PGXDIE ; PGX ELIGIBLE (#5) field is set to '1' in the DRUG INGREDIENTS (#50.416) file for below specified records
+1 ;;3811
+2 ;;5512
+3 ;;490
+4 ;;5228
+5 ;;5205
+6 ;;734
+7 ;;338
+8 ;;4041
+9 ;;5012
+10 ;;4656
+11 ;;4073
+12 ;;4038
+13 ;;3666
+14 ;;1368
+15 ;;4941
+16 ;;5000
+17 ;;3767
+18 ;;468
+19 ;;3815
+20 ;;3800
+21 ;;3801
+22 ;;4437
+23 ;;2106
+24 ;;3746
+25 ;;101
+26 ;;6
+27 ;;2105
+28 ;;5
+29 ;;1874
+30 ;;3299
+31 ;;1208
+32 ;;4503
+33 ;;5086
+34 ;;4577
+35 ;;2355
+36 ;;446
+37 ;;3805
+38 ;;4948
+39 ;;1712
+40 ;;4030
+41 ;;3931
+42 ;;3932
+43 ;;4287
+44 ;;4875
+45 ;;401
+46 ;;1763
+47 ;;1762
+48 ;;3510
+49 ;;3550
+50 ;;3640
+51 ;;807
+52 ;;1097
+53 ;;762
+54 ;;1071
+55 ;;2022
+56 ;;435
+57 ;;4896
+58 ;;4582
+59 ;;457
+60 ;;458
+61 ;;3635
+62 ;;1713
+63 ;;3582
+64 ;;2096
+65 ;;3875
+66 ;;1378
+67 ;;1335
+68 ;;1178
+69 ;;2458
+70 ;;500
+71 ;;3532
+72 ;;991
+73 ;;2917
+74 ;;93
+75 ;;1452
+76 ;;1451
+77 ;;112
+78 ;;2053
+79 ;;4650
+80 ;;2488
+81 ;;2178
+82 ;;3868
+83 ;;3880
+84 ;;3881
+85 ;;1239
+86 ;;3471
+87 ;;3388
+88 ;;4709
+89 ;;451
+90 ;;452
+91 ;;450
+92 ;;1077
+93 ;;1227
+94 ;;4660
+95 ;;5151
+96 ;;5150
+97 ;;5293
+98 ;;5171
+99 ;;3194
+100 ;;3011
+101 ;;827
+102 ;;4050
+103 ;;4081
+104 ;;3197
+105 ;;3038
+106 ;;3584
+107 ;;3045
+108 ;;5250
+109 ;;67
+110 ;;325
+111 ;;3525
+112 ;;5212
+113 ;;2565
+114 ;;1060
+115 ;;4534
+116 ;;1379
+117 ;;487
+118 ;;1194
+119 ;;1195
+120 ;;3572
+121 ;;657
+122 ;;5089
+123 ;;5686
+124 ;;3502
+125 ;;4021
+126 ;;4885
+127 ;;1147
+128 ;;END
+129 ;
PGXDIS ; PGX SUPPRESSED (#6) field is set to '1' in the DRUG INGREDIENTS (#50.416) file for below specified records
+1 ;;338
+2 ;;3666
+3 ;;3800
+4 ;;3801
+5 ;;2106
+6 ;;101
+7 ;;6
+8 ;;2105
+9 ;;5
+10 ;;1208
+11 ;;2355
+12 ;;446
+13 ;;4030
+14 ;;3510
+15 ;;457
+16 ;;458
+17 ;;2096
+18 ;;112
+19 ;;2488
+20 ;;2178
+21 ;;3471
+22 ;;3388
+23 ;;4660
+24 ;;5151
+25 ;;5150
+26 ;;3194
+27 ;;3011
+28 ;;4081
+29 ;;3045
+30 ;;2565
+31 ;;3572
+32 ;;657
+33 ;;END
