MUMPS Validation Test Suite V9.10 Integrity check JUL 15, 1996 VINT9 VINT9 ;IW-KO-YS-TS,VV1/VV2/VV3/VV4/VV4TP,MVTS V9.10;15/6/96;UTILITY ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996 ; W !,"Integrity Check Begin",! K ^VREPORT S ERR=0 F QQ=1:1 S LIN=$T(ROUA+QQ) Q:LIN="" D MAKETBLA D ^VINT9B S NAM="" F QQQ=0:0 S NAM=$O(^VREPORT(NAM)) Q:NAM="" D CHK W !,"Integrity " I ERR=0 W "OK!",! S INTEG="OK" E W "FAILed",! S INTEG="NOT OK" S ^VENVIRON("INTEGRITY")=INTEG K ^VREPORT Q ; CHK D SUM^@NAM I ^VREPORT(NAM)=SUM W "." Q I $P(^VREPORT(NAM),"^",1)=SUM W "." Q I $P(^VREPORT(NAM),"^",2)=SUM W "." Q W !,"routine ",NAM,?20,"---> Sum Check ERROR!! ",! S ERR=ERR+1 Q ; MAKETBLA S LIN=$P(LIN,";",2,99),ITEM="" F K=1:1 S ITEM=$P(LIN," ",K) Q:ITEM="" S NAM=$P(ITEM,":",1),VAL=$P(ITEM,":",2),^VREPORT(NAM)=VAL Q ; ROUA ; ;%:11910 %1A:12594 %2345678:12809 %BCDEFGH:12920 VV1:181097 ;V1WR:150521 V1CMT:137225 V1LL0:32032 V1LL0FL:21854 V1LL1:199734 ;V1LL2:122210 V1LL3:178649 V1PRGD:185848 V1PRGD1:22793 V1PRGD2:18217 ;V1PRGD3:22203 V1RN:108120 V:12008 V0:12104 V000006:12596 ;V01:12202 V012:12302 V12345:12518 V4444:12424 V7777777:12778 ;VA:12138 VAB:12270 VABC:12404 VABCD:12540 VABCDE:12678 ;VABCDEF:12818 VABCDEFG:12960 VABCDEFH:12962 V1PRSET:141200 V1PRIE:159662 ;V1PRFOR:76055 V1NUM:26054 V1NUM1:126567 V1NUM2:192750 V1NUM3:226973 ;V1NUM4:239197 V1NUM5:197540 V1NUM6:126908 V1FC:17665 V1FC1:202079 ;V1FC2:159123 V1FC3:221997 V1UO:42270 V1UO1A:207147 V1UO1B:199885 ;V1UO1C:98186 V1UO2A:209519 V1UO2B:199366 V1UO2C:98793 V1UO3A:204738 ;V1UO3B:195373 V1UO3C:97205 V1UO4A:185167 V1UO4B:195757 V1UO4C:137084 ;V1UO5A:182970 V1UO5B:184226 V1UO5C:212574 V1BOA:37666 V1BOA1:198080 ;V1BOA2:159927 V1BOA3:154737 V1BOA4:162090 V1BOA5:151378 V1BOA6:136196 ;V1BOA7:171731 V1BOA8:139155 V1BOA9:165616 V1BOA10:136978 V1BOA11:206825 ;V1BOA12:244584 V1BOR:98134 V1BOR1A:194033 V1BOR1B:226455 V1BOR2A:140787 ;V1BOR2B:140499 V1BOR2C:197256 V1BOR2D:144523 V1BOR2E:174099 V1BOR2F:188796 ;V1BOR3A:218749 V1BOR3B:182739 V1BOR4A:243620 V1BOR4B:127413 V1BOR4C:199917 ;V1BOR4D:189667 V1BOR5A:202719 V1BOR5B:141950 V1BOR5C:219120 V1BOR6A:217447 ;V1BOR6B:169209 V1BOR6C:229547 V1BOR6D:132675 V1BOR6E:142868 V1BOR6F:171020 ;V1BOR7A:159959 V1BOR7B:189720 V1BOR8A:177267 V1BOR8B:168333 V1BOR8C:244544 ;V1BOR8D:133808 V1BOR9A:198783 V1BOR9B:155543 V1BOR10A:171935 V1BOR10B:130361 ;V1BOR10C:148383 V1BOR10D:136481 V1BOR10E:140231 V1BOR10F:124672 V1BOL:26842 ;V1BOL1A:149976 V1BOL1B1:184870 V1BOL1B2:134946 V1BOL2A:153905 V1BOL2B1:188454 ;V1BOL2B2:128565 V1BOC:184383 V1FN:35586 V1FNE1:214026 V1FNE2:194266 ;V1FNE3:189234 V1FNE4:122990 V1FNF1:257801 V1FNF2:240132 V1FNF3:259578 ;V1FNL1:193163 V1FNL2:177762 V1FNP1:235810 V1FNP2:131788 V1FNP3:163229 ;V1AC:17677 V1AC1:192313 V1AC2:205953 V1AC3:171199 V1LVN:204078 ;V1GVN:308358 V1DLA:219625 V1DLB:17829 V1DLB1:204354 V1DLB2:241879 ;V1DLC:169094 V1DGA:240227 V1DGB:17765 V1DGB1:210163 V1DGB2:249064 ;V1NR:17285 V1NR1:197954 V1NR2:203095 V1NR3:129218 V1NX:15401 ;V1NX1:110333 V1NX2:45982 V1SET:15646 V1SET1:147565 V1SET2:144193 ;V1GO:18135 V1GO1:246015 V1GO2:165405 V1GO3:228354 V1OV:15896 ;V1OV1:144878 V1OV2:210809 V1OVE:92100 V1DO:19786 V1DO1:193142 ;V1DO2:196110 V1DO3:160283 V1DO4:228434 V1CALL:16511 V1CALL1:122124 ;V1CALL2:210316 V1CALLE:78472 V1IE:15581 V1IE1:213395 V1IE2:224981 ;V1PC:17736 V1PCA:132002 V1PCB:241692 V1PCC:244390 V1PC1:137177 ;V1FORA:18545 V1FORA1:197468 V1FORA2:104562 V1FORA3:226174 V1FORB:16264 ;V1FORB1:181899 V1FORB2:136071 V1FORC:16276 V1FORC1:212465 V1FORC2:180548 ;V1IDNM:19147 V1IDNM1:212075 V1IDNM2:236505 V1IDNM3:238586 V1IDGO:17254 ;V1IDGOA:236706 V1IDGOB:231396 V1IDGO1:70898 V1IDDO:13930 V1IDDOA:222085 ;V1IDDOB:241234 V1IDDO1:55358 V1IDARG:27973 V1IDARG1:243493 V1IDARG2:169779 ;V1IDARG3:190187 V1IDARG4:221156 V1IDARG5:247337 V1IDARG6:249046 V1XECA:16445 ;V1XECA1:159459 V1XECA2:218174 V1XECAE:15777 V1XECB:187419 V1SEQ:164831 ;V1SEQ1:23677 V1PAT:21000 V1PAT1:222154 V1PAT2:99283 V1PAT3:161143 ;V1PAT4:147674 V1NST1:133253 V1NST2:100241 V1NST3:81739 V1NSTE:12057 ;V1JST:25242 V1JST1:178070 V1JST2:139983 V1JST3:179798 V1JST4:151231 ;V1JST5:185749 V1JST6:159223 V1SVH:108550 V1SVS:95569 V1MAX:17897 ;V1MAX1:176026 V1MAX2:68589 V1MAX3:94974 V1BR:269535 V1BR1:19903 ;V1READA:18951 V1READA1:152592 V1READA2:147850 V1READA3:141472 V1READB:23343 ;V1READB1:152722 V1READB2:156886 V1READB3:167614 V1READB4:186776 V1HANG:15866 ;V1HANG1:247591 V1HANG2:222258 V1PO:176949 V1RANDA:164246 V1RANDB:183627 ;V1IO:240743 V1IO1:232579 V1IO2:243420 V1MJA:106156 V1MJA1:253935 ;V1MJA2:227167 V1MJB:139330 V1PRESET:18760 V1:47136 ;VV2:168246 V2CS:162382^162798 V2LCC1:247068 V2LCC2:250845 V2LCF1:163981 ;V2LCF2:135253 V2LCF3:147118 V2LCF4:130245 V2FN1:254394 V2FN2:264155^264923 ;V2LHP1:174776 V2LHP2:154100 V2LHP3:165426 V2LHP4:181354 V2VNIA:239100 ;V2VNIB:232687 V2VNIC:146166 V2NR:96957 V2READ:241774 V2PAT1:200550 ;V2PAT2:234977 V2PAT3:184275 V2PAT4:132015 V2NO1:214914 V2NO2:179012 ;V2NOE:108455 V2SSUB1:168238 V2SSUB2:159368 V2PRESET:18756 V2:38371 ;VV3:101392 V3GET:26112 V3GET1:234933 V3GET2:299366 V3GET3:285375 ;V3GET4:316065 V3GET5:243682 V3GET6:138120 V3TR:33663 V3TR01:250188 ;V3TR02:232977 V3TR03:214354 V3TR04:113102 V3TR05:241694 V3TR06:280279 ;V3TR07:315061 V3TR08:225817 V3TR09:241186 V3TR10:273836 V3TR11:189133 ;V3TEXT:21590 V3TEXT1:254149 V3TEXT2:258239 V3TEXT3:177836^178604 V3TEXTA:37670 ;V3TEXTA8:16715 V3TEXTB:21489 V3TEXTC:263950 V3FOR:25626 V3FOR1:140068 ;V3FOR2:166825 V3FOREX:16407 V3HANG:16183 V3HANG1:180303 V3HANG2:201552 ;V3RAND:37499 V3MAX:15797 V3MAX1:105828 V3MAX2:124952 V3NST1:294936 ;V3NST2:294987 V3NST3:196824 V3NSTE:156645 V3SVS:38041 V3SSUB:16273 ;V3SSUB1:238872 V3SSUB2:269071 V3JOB:86021 V3JOBEXA:15634 V3A:24119 ;V3LOCK:16502 V3LOCK1:127936 V3LOCK2:216364 V3LOCKA:31542 V3LOCKB:15448 ;V3LOCKC:14918 V3LOCKD:26164 V3LOCKAT:13929 V3LOCKAA:14494 V3LOCKCT:16435 ;V3INDNM:149524 V3QUERY:23558 V3Q1:181556 V3Q2:192887 V3Q3:197901 ;V3Q4:213958 V3Q5:295809 V3Q6:210013 V3QE:173698 V3FN2:58972 ;V3FN21:72344 V3FN22:183521 V3FN23:193350 V3FN24:228839 V3FN25:202644 ;V3FN26:182486 V3FN27:92302 V3FN28:281716 V3FN29:282806 V3FN210:259174 ;V3FN211:235949 V3FN212:282733 V3FN213:282019 V3FN214:278133 V3FN215:282878 ;V3FN216:289263 V3FN217:294569 V3FN218:300432 V3FN219:295118 V3FN220:293229 ;V3FN221:138722 V3FN222:262883 V3FN3:24704 V3FN31:164500 V3FN32:139854 ;V3FN33:175649 V3FN34:178120 V3FN35:98302 V3NEW:160068 V3NEW1:189057 ;V3NEW2:194159 V3NEW3:192100 V3NEW4:186668 V3NEW5:181247 V3NEW6:185038 VINT9B VINT9B ;IW-KO-YS-TS,VV1/VV2/VV3/VV4/VV4TP,MVTS V9.10;15/6/96;UTILITY ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996 ; F QQ=1:1 S LIN=$T(ROUB+QQ) Q:LIN="" D MAKETBLB Q MAKETBLB S LIN=$P(LIN,";",2,99),ITEM="" F K=1:1 S ITEM=$P(LIN," ",K) Q:ITEM="" S NAM=$P(ITEM,":",1),VAL=$P(ITEM,":",2),^VREPORT(NAM)=VAL Q ; ROUB ; ;V3NEW7:181650 V3NEW8:192476 V3NEW9:185374 V3NEW10:192563 V3NEW11:187811 ;V3NEW12:190526 V3NEW13:189678 V3NEW14:195162 V3NEW15:193815 V3NEW16:192147 ;V3NEW17:184471 V3NEW18:187325 V3NEWK1:253738 V3NEWK2:257752 V3NEWK3:250996 ;V3NEWK4:256393 V3NEWF1:256547 V3NEWF2:258984 V3NEWO1:239570 V3NEWO2:245300 ;V3NEWP:190258 V3NEWX:250813 V3NEWXE1:45340 V3NEWDO1:136754 V3NEWDO2:88009 ;V3NEWDE1:28257 V3NEWMF1:137069 V3NEWMF2:139845 V3NEWMF3:150987 V3NEWMF4:155415 ;V3NEWT1:95267 V3NEWT2:93987 V3NEWT3:102628 V3NEWT4:98299 V3NEWML1:97657 ;V3NEWML2:99869 V3NEWXA:91663 V3NEWL1:218085 V3NEWL2:239009 V3NEWPN:126661 ;V3NEWI1:142346 V3NEWI2:130962 V3NEWI3:135540 V3NEWI4:145679 V3NEWI5:140727 ;V3NEWI6:159600 V3NEWI7:138810 V3NEWN1:128878 V3NEWN2:172482 V3NEWN3:147777 ;V3NEWN4:137089 V3NEWN5:168252 V3NEWN6:152567 V3NEWN7:142235 V3NEWN8:173212 ;V3NEWN9:156900 V3NEWN10:142475 V3NEWN11:173374 V3NEWN12:156719 V3NEWCHK:39068 ;V3ALDO:19107 V3ALDO1:90381 V3ALDO2:147975 V3ALDOE:14458 V3FP:69220 ;V3DWP:196282 V3DWPE:105419 V3ESV:86880 V3ESVE:19500 V3EF:148188 ;V3EFE:111710 V3EFE2:69489 V3CBR:24170 V3CBR1:102846 V3CBR2:103485 ;V3CBR3:111985 V3CBR4:111879 V3CBR5:71275 V3PRESET:19564 V3:39184 ;VV4:114059 V4SORT:37699 V4SORT1:90132 V4SORT2:112655 V4SORT3:108632 ;V4SORT4:109844 V4SORT5:115512 V4SORT6:116423 V4SORT7:106601 V4SORT8:105360 ;V4SORT9:55693 V4SORT10:148751 V4FNUM:29347 V4FN21:119896 V4FN22:121880 ;V4FN23:139367 V4FN24:136130 V4FN25:115118 V4FN31:161187 V4FN32:123241 ;V4FN33:54864 V4REV:21936 V4REV1:84361 V4REV2:146044 V4REV3:128609 ;V4REV4:81765 V4GET2:33080 V4GET21:90497 V4GET22:112858 V4GET23:151788 ;V4GET24:200939 V4GET25:71046 V4GET26:156638 V4GET27:155783 V4GET28:115732 ;V4GET29:93692 V4GETE:22423 V4NAME:46776 V4NAME11:98685 V4NAME12:134440 ;V4NAME13:145276 V4NAME14:147620 V4NAME15:99491 V4NAME16:138035 V4NAME17:161219 ;V4NAME18:139598 V4NAME21:80831 V4NAME22:131101 V4NAME23:117536 V4NAME24:96539 ;V4NAME25:185549 V4NAME26:191995 V4NAE:13770 V4QLEN:31953 V4QLEN1:116655 ;V4QLEN2:97727 V4QLEN3:159447 V4QLEN4:122976 V4QLEN5:116605 V4QLEN6:137123 ;V4QLEN7:125607 V4QLEN8:121035 V4QSUB:49545 V4QSUB1:97186 V4QSUB2:127216 ;V4QSUB3:98614 V4QSUB4:105649 V4QSUB5:95513 V4QSUB6:118727 V4QSUB7:152797 ;V4QSUB8:165850 V4QSUB9:98454 V4QSUB10:122695 V4QSUB11:189675 V4QSUB12:95284 ;V4QSUB13:119344 V4QSUB14:161619 V4QSUB15:163627 V4SVQ:26855 V4SVQ1:84490 ;V4SVQ2:48861 V4SVQ3:78734 V4SVQ4:101357 V4SVQ5:96106 V4SVQ6:93667 ;V4SVQE:35867 V4SVQGO:17824 V4MERGE:58537 V4MERGE1:79182 V4MERGE2:82983 ;V4MERGE3:92725 V4MERGE4:95626 V4MERGE5:94316 V4MERGE6:95458 V4MERGE7:103603 ;V4MERGE8:102754 V4MERGE9:88823 V4MERGEA:89730 V4MERGEB:96093 V4MERGEC:99607 ;V4MERGED:97326 V4MERGEE:106872 V4MERGEF:107038 V4MERGEG:106109 V4MERGEH:81381 ;V4MERGEI:59389 V4MERE:174418 V4READ:22155 V4READ1:97853 V4READ2:150867 ;V4READ3:118781 V4READ4:134710 V4KEY:91963 V4SYSTEM:67197 V4SYSJOB:25335 ;V4POWER:31109 V4POW1:43554 V4POW2:98613 V4POW3:107008 V4POW4:98639 ;V4POW5:90055 V4POW6:56788 V4POW7:47204 V4POW8:57513 V4RAND:37810 ;V4ORDER:37320 V4ORD21:143793 V4ORD22:146298 V4ORD23:143845 V4ORD24:148728 ;V4ORD25:118403 V4ORD26:146630 V4ORD27:74648 V4ORD28:142874 V4ORD29:101710 ;V4ORD2A:99446 V4ORDE:135094 V4QUERY:56882 V4PRIN:106355 V4QUIT:94698 ;V4QUITE:15991 V4MAX:15893 V4MAX1:106500 V4MAX2:146288 V4SSUB:16811 ;V4SSUB1:154460 V4SSUB2:299955 V4JOB:96940 V4JOBEXA:17855 V4PAT:32926 ;V4PAT1:111545 V4PAT2:117499 V4PAT3:195985 V4PAT4:204651 V4PAT5:209063 ;V4PAT6:205659 V4PAT7:181665 V4PAT8:107275 V4PAT9:72271 V4NST1:155873 ;V4NST2:150863 V4NST3:150219 V4NST4:183831 V4NST5:34814 V4NST6:126583 ;V4NSTE1:123011 V4NSTE2:122248 V4MDC:62836 V4PRESET:19270 V4:44053 ;VV4TP:80331 V4TP11:80895 V4TP12:110755 V4TP13:103804 V4TP14:93410 ;V4TP15:121125 V4TP16:122060 V4TP17:134354 V4TP21:205259 V4TP22:196135 ;V4TP23:249895 V4TP24:199545 V4TP31:89640 V4TP32:96724 V4TPE11:40881 ;V4TPE12:49526 V4TPE13:40448 V4TPE14:39981 V4TPE15:69814 V4TPE16:72638 ;V4TPE17:71416 V4TPE21:178090 V4TPE22:152353 V4TPE23:215652 V4TPE24:172202 ;V4TPE31:69439 V4TPE32:96951 V4TPS21:18699 V4TPS22:18732 V4TPS1:19817 ;V4TPS2:20330 V4TPS3:28855 V4TPS4:29136 V4PRETP1:30604 V4PRETP2:32474 ;V4PRETP3:33424 V4GETS1:17238 V4GETS2:17242 V4GETS3:17246 V4GETSM:32490 ;V4GETCOM:47306 V4COMP1:17276 V4COMP2:17279 V4COMP3:17282 V4TPCHK:42313 ;V4TPCHK1:42362 V4TPCHK2:42365 V4TPCHK3:42146 V4TPCHKM:47406 ;VENVIRON:311992 VENVIRO2:282670 VEXAMINE:201249 VSR:283223 VSRE:165969 ;VSRWT:266477 VSRWT1:127001 VSRWT2:104844