source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXNTEG0.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

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