| [628] | 1 | PSXNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAY 15, 1995@13:05
|
|---|
| 2 | ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;;10 MAY 95
|
|---|
| 3 | ;;7.1;MAY 15, 1995@13:05
|
|---|
| 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^PSXNTEG0
|
|---|
| 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 | PSXACK ;;6677108
|
|---|
| 13 | PSXACT ;;13965467
|
|---|
| 14 | PSXAUTO ;;14970271
|
|---|
| 15 | PSXBKD ;;16121605
|
|---|
| 16 | PSXBLD ;;13038258
|
|---|
| 17 | PSXBLD1 ;;9820561
|
|---|
| 18 | PSXCH ;;2668396
|
|---|
| 19 | PSXCMOP ;;17147896
|
|---|
| 20 | PSXCMOP0 ;;10832855
|
|---|
| 21 | PSXCMOP1 ;;16141223
|
|---|
| 22 | PSXCOPAY ;;3685279
|
|---|
| 23 | PSXCOSTU ;;10220940
|
|---|
| 24 | PSXCSCMN ;;16716833
|
|---|
| 25 | PSXCSDA ;;16101687
|
|---|
| 26 | PSXCSDC ;;7960597
|
|---|
| 27 | PSXCSDC1 ;;10096395
|
|---|
| 28 | PSXCSDC2 ;;6786767
|
|---|
| 29 | PSXCSHI ;;10869346
|
|---|
| 30 | PSXCSHI1 ;;5211550
|
|---|
| 31 | PSXCSLG1 ;;1369587
|
|---|
| 32 | PSXCSLOG ;;12284233
|
|---|
| 33 | PSXCSMN1 ;;9769855
|
|---|
| 34 | PSXCSMON ;;10584473
|
|---|
| 35 | PSXCSSUM ;;11402742
|
|---|
| 36 | PSXCST ;;12032859
|
|---|
| 37 | PSXCST1 ;;4231822
|
|---|
| 38 | PSXCSTPG ;;10700293
|
|---|
| 39 | PSXCSUTL ;;13045059
|
|---|
| 40 | PSXDENT ;;1621104
|
|---|
| 41 | PSXDQUE ;;6894902
|
|---|
| 42 | PSXEDIT ;;7061623
|
|---|
| 43 | PSXEDRG ;;7739227
|
|---|
| 44 | PSXEDUTL ;;5468671
|
|---|
| 45 | PSXERR ;;14094746
|
|---|
| 46 | PSXERR1 ;;2797303
|
|---|
| 47 | PSXIN001 ;;5283252
|
|---|
| 48 | PSXIN002 ;;7817731
|
|---|
| 49 | PSXIN003 ;;7693387
|
|---|
| 50 | PSXIN004 ;;11704708
|
|---|
| 51 | PSXIN005 ;;5843038
|
|---|
| 52 | PSXIN006 ;;5687091
|
|---|
| 53 | PSXIN007 ;;3722631
|
|---|
| 54 | PSXIN008 ;;2945101
|
|---|
| 55 | PSXIN009 ;;1781667
|
|---|
| 56 | PSXIN00A ;;6696587
|
|---|
| 57 | PSXIN00B ;;6113399
|
|---|
| 58 | PSXIN00C ;;5418791
|
|---|
| 59 | PSXIN00D ;;7152812
|
|---|
| 60 | PSXIN00E ;;4868805
|
|---|
| 61 | PSXIN00F ;;4894647
|
|---|
| 62 | PSXIN00G ;;4281646
|
|---|
| 63 | PSXIN00H ;;1735750
|
|---|
| 64 | PSXIN00I ;;7711474
|
|---|
| 65 | PSXIN00J ;;5390259
|
|---|
| 66 | PSXIN00K ;;7348489
|
|---|
| 67 | PSXIN00L ;;3509404
|
|---|
| 68 | PSXIN00M ;;6012235
|
|---|
| 69 | PSXIN00N ;;4301333
|
|---|
| 70 | PSXIN00O ;;6757219
|
|---|
| 71 | PSXIN00P ;;6676080
|
|---|
| 72 | PSXIN00Q ;;9612970
|
|---|
| 73 | PSXIN00R ;;6436073
|
|---|
| 74 | PSXIN00S ;;5566882
|
|---|
| 75 | PSXIN00T ;;7802269
|
|---|
| 76 | PSXIN00U ;;6824051
|
|---|
| 77 | PSXIN00V ;;6828764
|
|---|
| 78 | PSXIN00W ;;6040285
|
|---|
| 79 | PSXIN00X ;;4499248
|
|---|
| 80 | PSXIN00Y ;;6283720
|
|---|
| 81 | PSXIN00Z ;;5610344
|
|---|
| 82 | PSXIN010 ;;836391
|
|---|
| 83 | PSXIN011 ;;6459505
|
|---|
| 84 | PSXIN012 ;;5601696
|
|---|
| 85 | PSXIN013 ;;6181097
|
|---|
| 86 | PSXIN014 ;;8373265
|
|---|
| 87 | PSXIN015 ;;6362844
|
|---|
| 88 | PSXIN016 ;;7226168
|
|---|
| 89 | PSXIN017 ;;5151647
|
|---|
| 90 | PSXIN018 ;;5739519
|
|---|
| 91 | PSXIN019 ;;6778689
|
|---|
| 92 | PSXIN01A ;;6851131
|
|---|
| 93 | PSXIN01B ;;1050570
|
|---|
| 94 | PSXIN01C ;;6335010
|
|---|
| 95 | PSXIN01D ;;2118648
|
|---|
| 96 | PSXIN01E ;;5834304
|
|---|
| 97 | PSXIN01F ;;5330933
|
|---|
| 98 | PSXIN01G ;;4658198
|
|---|
| 99 | PSXIN01H ;;1774518
|
|---|
| 100 | PSXIN01I ;;6990204
|
|---|
| 101 | PSXIN01J ;;6671913
|
|---|
| 102 | PSXIN01K ;;6417163
|
|---|
| 103 | PSXIN01L ;;6534420
|
|---|
| 104 | PSXIN01M ;;6006061
|
|---|
| 105 | PSXIN01N ;;7196563
|
|---|
| 106 | PSXIN01O ;;5768679
|
|---|
| 107 | PSXIN01P ;;8580654
|
|---|
| 108 | PSXIN01Q ;;7806637
|
|---|
| 109 | PSXIN01R ;;7253012
|
|---|
| 110 | PSXIN01S ;;7159015
|
|---|
| 111 | PSXIN01T ;;4449256
|
|---|
| 112 | PSXIN01U ;;4478072
|
|---|
| 113 | PSXIN01V ;;2115884
|
|---|
| 114 | PSXINIS ;;2176409
|
|---|
| 115 | PSXINIT ;;11141200
|
|---|
| 116 | PSXINIT1 ;;5686615
|
|---|
| 117 | PSXINIT2 ;;5232705
|
|---|
| 118 | PSXINIT3 ;;16095509
|
|---|
| 119 | PSXINIT4 ;;3357877
|
|---|
| 120 | PSXINIT5 ;;2001568
|
|---|
| 121 | PSXJOB ;;1300511
|
|---|
| 122 | PSXLBL ;;7880340
|
|---|
| 123 | PSXLBL1 ;;8827335
|
|---|
| 124 | PSXLBL2 ;;5620049
|
|---|
| 125 | PSXLBLNR ;;4776682
|
|---|
| 126 | PSXLBLPT ;;1839508
|
|---|
| 127 | PSXLBLT ;;4774489
|
|---|
| 128 | PSXLBLU ;;11342551
|
|---|
| 129 | PSXLIST ;;12299585
|
|---|
| 130 | PSXLKUP ;;6788882
|
|---|
| 131 | PSXLTST ;;1837789
|
|---|
| 132 | PSXMARK ;;25882264
|
|---|
| 133 | PSXMISC ;;9291728
|
|---|
| 134 | PSXMISC1 ;;9171869
|
|---|
| 135 | PSXMSGS ;;9257926
|
|---|
| 136 | PSXMST ;;6597401
|
|---|
| 137 | PSXNEW ;;6161244
|
|---|
| 138 | PSXNOCMP ;;8547875
|
|---|
| 139 | PSXNOTE ;;14813623
|
|---|
| 140 | PSXOCMOP ;;8857484
|
|---|
| 141 | PSXOPUTL ;;5956540
|
|---|
| 142 | PSXPLOG ;;1783519
|
|---|
| 143 | PSXPOST ;;5688069
|
|---|
| 144 | PSXPRE ;;9113030
|
|---|
| 145 | PSXPURG ;;11296634
|
|---|
| 146 | PSXQRY ;;13722282
|
|---|
| 147 | PSXRECV ;;15971626
|
|---|
| 148 | PSXRECV1 ;;13571764
|
|---|
| 149 | PSXREF ;;4469306
|
|---|
| 150 | PSXREJ ;;10799840
|
|---|
| 151 | PSXREL ;;3818026
|
|---|
| 152 | PSXRHLP ;;10383316
|
|---|
| 153 | PSXRPPL ;;13716809
|
|---|
| 154 | PSXRPPL1 ;;11942476
|
|---|
| 155 | PSXRPT ;;9985051
|
|---|
| 156 | PSXRSTAT ;;8884193
|
|---|
| 157 | PSXRSUS ;;13734928
|
|---|
| 158 | PSXRSYU ;;13839089
|
|---|
| 159 | PSXRTN ;;18399803
|
|---|
| 160 | PSXRTN1 ;;12220675
|
|---|
| 161 | PSXRTR ;;6070039
|
|---|
| 162 | PSXRTRAN ;;18034286
|
|---|
| 163 | PSXRXQU ;;7810285
|
|---|
| 164 | PSXRXU ;;6469166
|
|---|
| 165 | PSXSERV ;;6298176
|
|---|
