1 | IVMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 21, 1994@11:22:02
|
---|
2 | ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
|
---|
3 | ;;7.2;OCT 21, 1994@11:22:02
|
---|
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 | ;
|
---|
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 | DGMTA ;;9763474
|
---|
13 | DGMTAUD ;;11963505
|
---|
14 | DGMTAUD1 ;;1133057
|
---|
15 | DGMTCOU1 ;;3469843
|
---|
16 | DGMTDD ;;4910257
|
---|
17 | DGMTDD2 ;;11677819
|
---|
18 | DGMTDEL ;;12110387
|
---|
19 | DGMTE ;;8298721
|
---|
20 | DGMTEO ;;4697963
|
---|
21 | DGMTO1 ;;7224400
|
---|
22 | DGMTOFA1 ;;6838192
|
---|
23 | DGMTOPYT ;;4023551
|
---|
24 | DGMTOREQ ;;8062447
|
---|
25 | DGMTP4 ;;12731270
|
---|
26 | DGMTSCC ;;11398999
|
---|
27 | DGMTU ;;7461738
|
---|
28 | DGMTU11 ;;4522284
|
---|
29 | DGMTU2 ;;2133657
|
---|
30 | DGMTU21 ;;965490
|
---|
31 | DGMTU22 ;;5777022
|
---|
32 | DGMTU23 ;;8549511
|
---|
33 | DGMTU3 ;;1527673
|
---|
34 | DGMTUB ;;3016924
|
---|
35 | DGMTV ;;6587115
|
---|
36 | DGPTUTL1 ;;7124770
|
---|
37 | DGRPU ;;5204869
|
---|
38 | IBAERR1 ;;4158918
|
---|
39 | IBAMTED ;;3624105
|
---|
40 | IBAMTED1 ;;8908404
|
---|
41 | IBAMTEDU ;;6207987
|
---|
42 | IBAMTV ;;8196736
|
---|
43 | IBAMTV1 ;;7319391
|
---|
44 | IBAMTV2 ;;4260911
|
---|
45 | IBAMTV3 ;;4398243
|
---|
46 | IBAMTV31 ;;5035963
|
---|
47 | IBAMTV32 ;;9562615
|
---|
48 | IBAMTV4 ;;3583734
|
---|
49 | IBAUTL5 ;;2774355
|
---|
50 | IBECEA1 ;;7011157
|
---|
51 | IBOMTP1 ;;8204447
|
---|
52 | IVM20E ;;6708358
|
---|
53 | IVM20P ;;10241210
|
---|
54 | IVM20P1 ;;6772249
|
---|
55 | IVM20P2 ;;7478123
|
---|
56 | IVM20P21 ;;7030272
|
---|
57 | IVM20P22 ;;2056503
|
---|
58 | IVM20P3 ;;466267
|
---|
59 | IVMLDEM ;;6306077
|
---|
60 | IVMLDEM1 ;;1997131
|
---|
61 | IVMLDEM2 ;;7285341
|
---|
62 | IVMLDEM3 ;;7209620
|
---|
63 | IVMLDEM4 ;;4021721
|
---|
64 | IVMLDEM5 ;;6125772
|
---|
65 | IVMLDEM6 ;;6518759
|
---|
66 | IVMLDEM7 ;;2964108
|
---|
67 | IVMLDEMU ;;3853428
|
---|
68 | IVMLINS ;;7257722
|
---|
69 | IVMLINS1 ;;10281862
|
---|
70 | IVMLINS2 ;;8245457
|
---|
71 | IVMLINS3 ;;8463910
|
---|
72 | IVMLINS4 ;;2545953
|
---|
73 | IVMLINS5 ;;9408877
|
---|
74 | IVMLSU ;;5270878
|
---|
75 | IVMLSU1 ;;3180320
|
---|
76 | IVMLSU2 ;;4940553
|
---|
77 | IVMLSU3 ;;7372370
|
---|
78 | IVMPINS ;;1258003
|
---|
79 | IVMPMTE ;;3049597
|
---|
80 | IVMPREC ;;5408501
|
---|
81 | IVMPREC1 ;;5589031
|
---|
82 | IVMPREC2 ;;1819615
|
---|
83 | IVMPREC3 ;;8291275
|
---|
84 | IVMPREC4 ;;2479178
|
---|
85 | IVMPREC5 ;;6361733
|
---|
86 | IVMPREC6 ;;6442288
|
---|
87 | IVMPREC7 ;;8586441
|
---|
88 | IVMPREC8 ;;6340841
|
---|
89 | IVMPREC9 ;;1069358
|
---|
90 | IVMPRECA ;;7730150
|
---|
91 | IVMPTRN ;;4640694
|
---|
92 | IVMPTRN1 ;;2656812
|
---|
93 | IVMPTRN2 ;;6966933
|
---|
94 | IVMPTRN3 ;;5735291
|
---|
95 | IVMPTRN4 ;;5308382
|
---|
96 | IVMPTRN5 ;;5826033
|
---|
97 | IVMPTRN6 ;;5346904
|
---|
98 | IVMPXFR ;;1099474
|
---|
99 | IVMRBT ;;7381523
|
---|
100 | IVMRMCR ;;4881808
|
---|
101 | IVMRMCR1 ;;10381592
|
---|
102 | IVMRNQ ;;6742559
|
---|
103 | IVMRNQ1 ;;4976239
|
---|
104 | IVMRTSR ;;6440393
|
---|
105 | IVMRTSR1 ;;6561112
|
---|
106 | IVMRUTL ;;1716183
|
---|
107 | IVMUCHK ;;4136865
|
---|
108 | IVMUCHK1 ;;10072622
|
---|
109 | IVMUCHK2 ;;7031287
|
---|
110 | IVMUCHK3 ;;4811723
|
---|
111 | IVMUCHK4 ;;9510634
|
---|
112 | IVMUCHK5 ;;7582234
|
---|
113 | IVMUFNC ;;3953089
|
---|
114 | IVMUFNC1 ;;7034874
|
---|
115 | IVMUFNC2 ;;4690413
|
---|
116 | IVMUFNC3 ;;4495477
|
---|
117 | IVMUFNC4 ;;3409685
|
---|
118 | IVMUM1 ;;3560437
|
---|
119 | IVMUM2 ;;3584755
|
---|
120 | IVMUM3 ;;2543703
|
---|
121 | IVMUM4 ;;2009725
|
---|
122 | IVMUM5 ;;3944958
|
---|
123 | IVMUM6 ;;7280247
|
---|
124 | IVMUM7 ;;4103182
|
---|
125 | IVMUM8 ;;1434808
|
---|
126 | IVMUPAR ;;879565
|
---|
127 | IVMUPUR ;;7298086
|
---|
128 | IVMUTQ ;;1321697
|
---|
129 | VAFHLFNC ;;1383717
|
---|
130 | VAFHLZDP ;;2620177
|
---|
131 | VAFHLZGD ;;3404049
|
---|
132 | VAFHLZIR ;;3337473
|
---|
133 | VAFHLZMT ;;7188003
|
---|