| [613] | 1 | PXNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960814.111525
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | ;;7.3;2960814.111525
|
|---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 5 | CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
|
|---|
| 6 | G CONT^PXNTEG0
|
|---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|---|
| 8 | ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|---|
| 10 | W ! G CONT
|
|---|
| 11 | ROU ;;
|
|---|
| 12 | AUPNPAT ;;741709
|
|---|
| 13 | AUPNSICD ;;268724
|
|---|
| 14 | AUTNPOV ;;776769
|
|---|
| 15 | IBDFPCE ;;2696567
|
|---|
| 16 | PXAI ;;3686164
|
|---|
| 17 | PXAICPT ;;5419204
|
|---|
| 18 | PXAICPTV ;;3087233
|
|---|
| 19 | PXAIHF ;;1635608
|
|---|
| 20 | PXAIHFV ;;351726
|
|---|
| 21 | PXAIIMM ;;1652845
|
|---|
| 22 | PXAIIMMV ;;338030
|
|---|
| 23 | PXAIPED ;;1547637
|
|---|
| 24 | PXAIPEDV ;;278691
|
|---|
| 25 | PXAIPL ;;1471437
|
|---|
| 26 | PXAIPOV ;;6162167
|
|---|
| 27 | PXAIPOVV ;;1191657
|
|---|
| 28 | PXAIPRV ;;4280356
|
|---|
| 29 | PXAIPRVV ;;3708267
|
|---|
| 30 | PXAISK ;;1546855
|
|---|
| 31 | PXAISKV ;;295298
|
|---|
| 32 | PXAIUPRV ;;2122779
|
|---|
| 33 | PXAIVST ;;4110981
|
|---|
| 34 | PXAIVSTV ;;21773405
|
|---|
| 35 | PXAIXAM ;;1461117
|
|---|
| 36 | PXAIXAMV ;;247075
|
|---|
| 37 | PXAPI ;;7755262
|
|---|
| 38 | PXAPIDEL ;;9660476
|
|---|
| 39 | PXAPIEED ;;2523944
|
|---|
| 40 | PXAPIIB ;;1387457
|
|---|
| 41 | PXAPIUTL ;;88009
|
|---|
| 42 | PXBAICS ;;277824
|
|---|
| 43 | PXBAPI ;;11386903
|
|---|
| 44 | PXBAPI1 ;;9105147
|
|---|
| 45 | PXBAPI2 ;;4683743
|
|---|
| 46 | PXBAPI21 ;;4799017
|
|---|
| 47 | PXBAPI22 ;;3140600
|
|---|
| 48 | PXBCC ;;6797457
|
|---|
| 49 | PXBDCPT ;;8592978
|
|---|
| 50 | PXBDPL ;;5995372
|
|---|
| 51 | PXBDPOV ;;8212402
|
|---|
| 52 | PXBDPRV ;;8453744
|
|---|
| 53 | PXBDREQ ;;1918733
|
|---|
| 54 | PXBDSTP ;;5143593
|
|---|
| 55 | PXBDVST ;;5647529
|
|---|
| 56 | PXBGCPT ;;1918001
|
|---|
| 57 | PXBGCPT2 ;;9008579
|
|---|
| 58 | PXBGCPT4 ;;4628558
|
|---|
| 59 | PXBGHF ;;1049671
|
|---|
| 60 | PXBGIMM ;;1435633
|
|---|
| 61 | PXBGPED ;;1185979
|
|---|
| 62 | PXBGPL ;;941159
|
|---|
| 63 | PXBGPL2 ;;3950665
|
|---|
| 64 | PXBGPOV ;;2788193
|
|---|
| 65 | PXBGPOV2 ;;7271462
|
|---|
| 66 | PXBGPOV3 ;;4208771
|
|---|
| 67 | PXBGPOV4 ;;4678588
|
|---|
| 68 | PXBGPRV ;;1616122
|
|---|
| 69 | PXBGPRV2 ;;6160224
|
|---|
| 70 | PXBGPRV3 ;;4028981
|
|---|
| 71 | PXBGPRV4 ;;4202360
|
|---|
| 72 | PXBGSK ;;1553050
|
|---|
| 73 | PXBGSTP ;;2240562
|
|---|
| 74 | PXBGSTP2 ;;6944203
|
|---|
| 75 | PXBGVST ;;8977407
|
|---|
| 76 | PXBGXAM ;;1198724
|
|---|
| 77 | PXBHLP0 ;;1260401
|
|---|
| 78 | PXBHLP1 ;;4652826
|
|---|
| 79 | PXBHLP2 ;;6539318
|
|---|
| 80 | PXBHLP3 ;;7157764
|
|---|
| 81 | PXBHLP4 ;;6207068
|
|---|
| 82 | PXBHLPR ;;734674
|
|---|
| 83 | PXBMCPT ;;4594493
|
|---|
| 84 | PXBMCPT2 ;;2235327
|
|---|
| 85 | PXBMPOV ;;2663469
|
|---|
| 86 | PXBMPRV ;;1699541
|
|---|
| 87 | PXBMSTP ;;2729842
|
|---|
| 88 | PXBPCPT ;;13804267
|
|---|
| 89 | PXBPCPT1 ;;5092280
|
|---|
| 90 | PXBPL ;;4291505
|
|---|
| 91 | PXBPPOV ;;8079021
|
|---|
| 92 | PXBPPOV1 ;;4309492
|
|---|
| 93 | PXBPPRV ;;13140093
|
|---|
| 94 | PXBPPRV1 ;;4760701
|
|---|
| 95 | PXBPQUA ;;1440529
|
|---|
| 96 | PXBPSTP ;;5772061
|
|---|
| 97 | PXBPSTP1 ;;3451342
|
|---|
| 98 | PXBPVST ;;13388527
|
|---|
| 99 | PXBPWCH ;;1562375
|
|---|
| 100 | PXBSTOR ;;6614542
|
|---|
| 101 | PXBSTOR1 ;;1652983
|
|---|
| 102 | PXBUTL ;;8211033
|
|---|
| 103 | PXBUTL0 ;;8269509
|
|---|
| 104 | PXBUTL1 ;;3471042
|
|---|
| 105 | PXBUTL2 ;;2260528
|
|---|
| 106 | PXBUTL3 ;;1533990
|
|---|
| 107 | PXCA ;;2933977
|
|---|
| 108 | PXCA0 ;;5365776
|
|---|
| 109 | PXCACPT ;;10674254
|
|---|
| 110 | PXCACPT1 ;;1734330
|
|---|
| 111 | PXCADX ;;3434565
|
|---|
| 112 | PXCADXP1 ;;12087451
|
|---|
| 113 | PXCADXP2 ;;12276828
|
|---|
| 114 | PXCADXPL ;;3913980
|
|---|
| 115 | PXCAERR ;;2452313
|
|---|
| 116 | PXCAHF ;;4813066
|
|---|
| 117 | PXCAPED ;;5490983
|
|---|
| 118 | PXCAPL ;;13786607
|
|---|
| 119 | PXCAPL1 ;;2426957
|
|---|
| 120 | PXCAPL2 ;;3619358
|
|---|
| 121 | PXCAPOV ;;11098877
|
|---|
| 122 | PXCAPOV1 ;;3476960
|
|---|
| 123 | PXCAPRV ;;6993740
|
|---|
| 124 | PXCASK ;;5972282
|
|---|
| 125 | PXCASOR ;;1954287
|
|---|
| 126 | PXCATRT ;;1377182
|
|---|
| 127 | PXCAVIMM ;;8829329
|
|---|
| 128 | PXCAVST ;;16785044
|
|---|
| 129 | PXCAVST1 ;;5115097
|
|---|
| 130 | PXCAVST2 ;;4129627
|
|---|
| 131 | PXCAXAM ;;3974596
|
|---|
| 132 | PXCE ;;6555449
|
|---|
| 133 | PXCEAE ;;6703732
|
|---|
| 134 | PXCEAE1 ;;4594348
|
|---|
| 135 | PXCEAE2 ;;2868684
|
|---|
| 136 | PXCEAPPM ;;3476471
|
|---|
| 137 | PXCECPT ;;6133689
|
|---|
| 138 | PXCECSTP ;;4574573
|
|---|
| 139 | PXCEDATE ;;1078083
|
|---|
| 140 | PXCEE800 ;;1064572
|
|---|
| 141 | PXCEEXP ;;2851965
|
|---|
| 142 | PXCEHELP ;;5222075
|
|---|
| 143 | PXCEHF ;;2885800
|
|---|
| 144 | PXCEHIST ;;4442569
|
|---|
| 145 | PXCEHLOC ;;3323806
|
|---|
| 146 | PXCEINTR ;;3867891
|
|---|
| 147 | PXCENEW ;;1336203
|
|---|
| 148 | PXCEPAT ;;5573206
|
|---|
| 149 | PXCEPED ;;2474866
|
|---|
| 150 | PXCEPOV ;;4467333
|
|---|
| 151 | PXCEPOV1 ;;5695017
|
|---|
| 152 | PXCEPRV ;;5672258
|
|---|
| 153 | PXCESDA1 ;;645416
|
|---|
| 154 | PXCESDA3 ;;670753
|
|---|
| 155 | PXCESDAM ;;5365433
|
|---|
| 156 | PXCESIT ;;5008398
|
|---|
| 157 | PXCESK ;;6571828
|
|---|
| 158 | PXCETRT ;;3327845
|
|---|
| 159 | PXCEVFI1 ;;4958653
|
|---|
| 160 | PXCEVFI2 ;;8845926
|
|---|
| 161 | PXCEVFI4 ;;5368384
|
|---|
| 162 | PXCEVFI5 ;;1650454
|
|---|
| 163 | PXCEVFIL ;;14040305
|
|---|
| 164 | PXCEVIMM ;;5452259
|
|---|
| 165 | PXCEVSIT ;;6206404
|
|---|
| 166 | PXCEVST ;;3476006
|
|---|
| 167 | PXCEXAM ;;2160690
|
|---|
| 168 | PXEDIEL ;;4701234
|
|---|
| 169 | PXEDIELU ;;1034636
|
|---|
| 170 | PXEDILUD ;;3241222
|
|---|
