| 1 | PXNTEG0 ;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 | ;
|
|---|
| 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 | PXEDIM ;;2693872
|
|---|
| 13 | PXEDIP ;;1319914
|
|---|
| 14 | PXIPENV ;;4829265
|
|---|
| 15 | PXIPOST ;;10609601
|
|---|
| 16 | PXIPOST1 ;;5403177
|
|---|
| 17 | PXIPREI ;;98554
|
|---|
| 18 | PXKCO ;;9069835
|
|---|
| 19 | PXKCO1 ;;5412432
|
|---|
| 20 | PXKCOC ;;4494784
|
|---|
| 21 | PXKCOC1 ;;5092027
|
|---|
| 22 | PXKCODX ;;4448898
|
|---|
| 23 | PXKCODX1 ;;2851561
|
|---|
| 24 | PXKCOP ;;5617646
|
|---|
| 25 | PXKCOV ;;6243549
|
|---|
| 26 | PXKCOV1 ;;839177
|
|---|
| 27 | PXKENC ;;2241921
|
|---|
| 28 | PXKFCPT ;;476276
|
|---|
| 29 | PXKFCPT1 ;;5059140
|
|---|
| 30 | PXKFHF ;;331373
|
|---|
| 31 | PXKFIMM ;;344831
|
|---|
| 32 | PXKFIMM1 ;;1448124
|
|---|
| 33 | PXKFPED ;;313254
|
|---|
| 34 | PXKFPOV ;;585703
|
|---|
| 35 | PXKFPRV ;;341731
|
|---|
| 36 | PXKFSK ;;334599
|
|---|
| 37 | PXKFSK1 ;;1397729
|
|---|
| 38 | PXKFTRT ;;453618
|
|---|
| 39 | PXKFVST ;;1800075
|
|---|
| 40 | PXKFXAM ;;322199
|
|---|
| 41 | PXKMAIN ;;9022682
|
|---|
| 42 | PXKMAIN1 ;;7844038
|
|---|
| 43 | PXKMAIN2 ;;3960335
|
|---|
| 44 | PXKMASC ;;4745615
|
|---|
| 45 | PXKMASC1 ;;425778
|
|---|
| 46 | PXKVST ;;7444037
|
|---|
| 47 | PXPT ;;4195785
|
|---|
| 48 | PXPTPOST ;;310535
|
|---|
| 49 | PXRHS01 ;;3657081
|
|---|
| 50 | PXRHS02 ;;3882829
|
|---|
| 51 | PXRHS03 ;;3581019
|
|---|
| 52 | PXRHS04 ;;2343645
|
|---|
| 53 | PXRHS05 ;;2600637
|
|---|
| 54 | PXRHS06 ;;3145202
|
|---|
| 55 | PXRHS07 ;;3381334
|
|---|
| 56 | PXRHS08 ;;3092038
|
|---|
| 57 | PXRHS12 ;;3243447
|
|---|
| 58 | PXRHS13 ;;284836
|
|---|
| 59 | PXRHS14 ;;2063087
|
|---|
| 60 | PXRM ;;1708203
|
|---|
| 61 | PXRMAFOP ;;1628213
|
|---|
| 62 | PXRMAGE ;;3463261
|
|---|
| 63 | PXRMCF ;;1080464
|
|---|
| 64 | PXRMCFOP ;;2116530
|
|---|
| 65 | PXRMCODE ;;4751961
|
|---|
| 66 | PXRMDATE ;;8190170
|
|---|
| 67 | PXRMDEV ;;912350
|
|---|
| 68 | PXRMDGOP ;;1722486
|
|---|
| 69 | PXRMDGPT ;;5029719
|
|---|
| 70 | PXRMDISC ;;349895
|
|---|
| 71 | PXRMEDIT ;;189592
|
|---|
| 72 | PXRMEDU ;;1978722
|
|---|
| 73 | PXRMEXAM ;;1528931
|
|---|
| 74 | PXRMFOUT ;;7789264
|
|---|
| 75 | PXRMHF ;;880737
|
|---|
| 76 | PXRMHFOP ;;2603921
|
|---|
| 77 | PXRMICD9 ;;40926
|
|---|
| 78 | PXRMIMM ;;1908149
|
|---|
| 79 | PXRMLAB ;;1469254
|
|---|
| 80 | PXRMLOG ;;5648113
|
|---|
| 81 | PXRMMEAS ;;4562918
|
|---|
| 82 | PXRMOBES ;;660543
|
|---|
| 83 | PXRMPINF ;;128503
|
|---|
| 84 | PXRMPROB ;;586296
|
|---|
| 85 | PXRMPROC ;;13175
|
|---|
| 86 | PXRMPROP ;;816990
|
|---|
| 87 | PXRMPT ;;1973992
|
|---|
| 88 | PXRMRAD ;;1310165
|
|---|
| 89 | PXRMRAOP ;;932105
|
|---|
| 90 | PXRMREDT ;;607428
|
|---|
| 91 | PXRMRINQ ;;248770
|
|---|
| 92 | PXRMSKIN ;;1472020
|
|---|
| 93 | PXRMSTDC ;;160943
|
|---|
| 94 | PXRMTAXP ;;4911949
|
|---|
| 95 | PXRMTEDT ;;493821
|
|---|
| 96 | PXRMTF ;;182258
|
|---|
| 97 | PXRMTFOP ;;1412749
|
|---|
| 98 | PXRMTGOP ;;634049
|
|---|
| 99 | PXRMTP ;;766683
|
|---|
| 100 | PXRMTPA ;;693519
|
|---|
| 101 | PXRMTYPE ;;817172
|
|---|
| 102 | PXRMUNIQ ;;4375824
|
|---|
| 103 | PXRMUTIL ;;3647079
|
|---|
| 104 | PXRMVCOP ;;1123516
|
|---|
| 105 | PXRMVCPT ;;585304
|
|---|
| 106 | PXRMVPOP ;;1088013
|
|---|
| 107 | PXRMVPOV ;;584024
|
|---|
| 108 | PXRMWCHK ;;2052937
|
|---|
| 109 | PXRRADUT ;;1787434
|
|---|
| 110 | PXRRECQ ;;862139
|
|---|
| 111 | PXRRECSE ;;4656064
|
|---|
| 112 | PXRRFDD ;;2261881
|
|---|
| 113 | PXRRFDP ;;9864798
|
|---|
| 114 | PXRRFDQ ;;969448
|
|---|
| 115 | PXRRFDSD ;;6406005
|
|---|
| 116 | PXRRFDSE ;;3427136
|
|---|
| 117 | PXRRGPRT ;;4739446
|
|---|
| 118 | PXRRGUT ;;786807
|
|---|
| 119 | PXRRLCCP ;;4173188
|
|---|
| 120 | PXRRLCD ;;1192118
|
|---|
| 121 | PXRRLCHP ;;4624532
|
|---|
| 122 | PXRRPCE ;;11186617
|
|---|
| 123 | PXRRPCE1 ;;9048578
|
|---|
| 124 | PXRRPCE2 ;;10302854
|
|---|
| 125 | PXRRPCE3 ;;17178680
|
|---|
| 126 | PXRRPCE4 ;;18066573
|
|---|
| 127 | PXRRPCE5 ;;12851121
|
|---|
| 128 | PXRRPCEQ ;;8481247
|
|---|
| 129 | PXRRPCR ;;13260711
|
|---|
| 130 | PXRRPCR1 ;;3427796
|
|---|
| 131 | PXRRPCR2 ;;13244946
|
|---|
| 132 | PXRRPCR3 ;;7942411
|
|---|
| 133 | PXRRPCR4 ;;5999209
|
|---|
| 134 | PXRRPRD ;;1140404
|
|---|
| 135 | PXRRPRDP ;;6700997
|
|---|
| 136 | PXRRPRPL ;;921087
|
|---|
| 137 | PXRRPRSP ;;3247242
|
|---|
| 138 | PXRRSC ;;13073533
|
|---|
| 139 | PXSCH1 ;;4162981
|
|---|
| 140 | PXSCH2 ;;2132778
|
|---|
| 141 | PXSCH3 ;;1751960
|
|---|
| 142 | PXSCH4 ;;2844383
|
|---|
| 143 | PXTTEDC ;;3598740
|
|---|
| 144 | PXTTEDE ;;433947
|
|---|
| 145 | PXTTEDQ ;;923725
|
|---|
| 146 | PXTTU1 ;;4808536
|
|---|
| 147 | PXUTL1 ;;3604821
|
|---|
| 148 | PXUTLSCC ;;5994057
|
|---|
| 149 | PXUTLSTP ;;5176784
|
|---|
| 150 | PXUTLVST ;;545819
|
|---|
| 151 | PXXDPT ;;2929744
|
|---|
