- PSONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971222.09512
- ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
- ;;7.3;2971222.09512
- S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
- 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")
- G CONT^PSONTEG0
- K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
- 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),!
- W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
- W ! G CONT
- ROU ;;
- PSOAMIS ;;8088370
- PSOAMIS0 ;;15530501
- PSOAMIS1 ;;15933021
- PSOARC ;;1543895
- PSOARCCO ;;7879291
- PSOARCCV ;;16524016
- PSOARCDE ;;1519886
- PSOARCF1 ;;9938950
- PSOARCF2 ;;6313447
- PSOARCF3 ;;10989252
- PSOARCF4 ;;14824919
- PSOARCF5 ;;10373233
- PSOARCF6 ;;2114902
- PSOARCIN ;;10467127
- PSOARCLT ;;11361257
- PSOARCR1 ;;6659841
- PSOARCR2 ;;11410187
- PSOARCRR ;;12610244
- PSOARCS2 ;;11785445
- PSOARCSV ;;14563867
- PSOARCTG ;;9524360
- PSOARCTP ;;4774424
- PSOARX ;;24537743
- PSOARX1 ;;8732603
- PSOAUTOC ;;11799857
- PSOB ;;12093795
- PSOBARV ;;4590989
- PSOBBC ;;17077721
- PSOBGMG1 ;;9615217
- PSOBGMG2 ;;16559725
- PSOBGMG3 ;;11706993
- PSOBGMGR ;;26029612
- PSOBING1 ;;20449880
- PSOBINGO ;;27965067
- PSOBKDED ;;3390318
- PSOBMST ;;12548532
- PSOBRPRT ;;12685512
- PSOBSET ;;8800979
- PSOBSET1 ;;8233165
- PSOBUILD ;;18513958
- PSOCAN ;;18537431
- PSOCAN1 ;;24583271
- PSOCAN2 ;;22710446
- PSOCAN3 ;;17987886
- PSOCAN4 ;;12203613
- PSOCLERK ;;580896
- PSOCLO1 ;;16692398
- PSOCLOLS ;;7584419
- PSOCLUTL ;;24520306
- PSOCMOP ;;8682406
- PSOCMOPA ;;6009311
- PSOCMOPB ;;5657331
- PSOCMOPC ;;3165423
- PSOCOPAY ;;2628544
- PSOCOST ;;16988098
- PSOCOSTP ;;4824429
- PSOCP ;;3646662
- PSOCPA ;;8121410
- PSOCPB ;;14175665
- PSOCPC ;;2336163
- PSOCPD ;;11289046
- PSOCPDUP ;;14367470
- PSOCPE ;;2802442
- PSOCPTRH ;;3598887
- PSOCPTRI ;;9927109
- PSOCPVW ;;3063870
- PSOCSRL ;;19568056
- PSOCST ;;1243245
- PSOCST10 ;;11107494
- PSOCST11 ;;11338986
- PSOCST12 ;;18885137
- PSOCST2 ;;10800053
- PSOCST3 ;;11384106
- PSOCST4 ;;11040507
- PSOCST5 ;;13475863
- PSOCST6 ;;10963759
- PSOCST7 ;;9540110
- PSOCST8 ;;10397479
- PSOCST9 ;;14526699
- PSOCSTD ;;16715457
- PSOCSTM ;;17123922
- PSODACT ;;8653547
- PSODEA ;;2282011
- PSODEDT ;;8093286
- PSODELI ;;1437148
- PSODEM ;;10715086
- PSODGAL ;;5387171
- PSODGDG1 ;;22372333
- PSODGDG2 ;;7110510
- PSODGDGI ;;21636668
- PSODIR ;;6314040
- PSODIR1 ;;16914116
- PSODIR2 ;;9167439
- PSODIR3 ;;5216246
- PSODISP ;;24192299
- PSODISP1 ;;20533972
- PSODISP2 ;;2853632
- PSODISP3 ;;8688157
- PSODISPS ;;15792743
- PSODIV ;;9106287
- PSODLKP ;;12394095
- PSODP ;;7869809
- PSODRDU1 ;;13178884
- PSODRDU2 ;;9325905
- PSODRDUP ;;22075959
- PSODRG ;;7801992
- PSODSPL ;;8767448
- PSODSRC ;;2809154
- PSODUE ;;4990585
- PSOEXBCH ;;17471798
- PSOEXDT ;;3390663
- PSOEXREF ;;2938164
- PSOEXRST ;;27534572
- PSOFUNC ;;5153561
- PSOHCSUM ;;7694494
- PSOHELP ;;20630563
- PSOHELP1 ;;18428458
- PSOHELP2 ;;5206648
- PSOHELP3 ;;4616409
- PSOHELP4 ;;782147
- PSOHLD ;;18883227
- PSOHLEXP ;;6671290
- PSOHLNE1 ;;10306531
- PSOHLNE2 ;;24072158
- PSOHLNEW ;;33884077
- PSOHLSG ;;14426239
- PSOHLSG1 ;;22096952
- PSOHLSG2 ;;11980019
- PSOHLSG3 ;;17462571
- PSOHLSG4 ;;5082832
- PSOHLSIG ;;16078021
- PSOHLSIH ;;12638114
- PSOHLSN ;;15349796
- PSOHLSN1 ;;20803809
- PSOHLUP ;;12005271
- PSOHLUP1 ;;7432439
- PSOLAB ;;4226213
- PSOLBL ;;26777589
- PSOLBL1 ;;18314169
- PSOLBL2 ;;18742229
- PSOLBL3 ;;2387864
- PSOLBL4 ;;22298368
- PSOLBLD ;;18323127
- PSOLBLD1 ;;6414526
- PSOLBLN ;;17575125
- PSOLBLN1 ;;25664258
- PSOLBLN2 ;;20535870
- PSOLBLS ;;18302467
- PSOLBLT ;;3427886
- PSOLMAL ;;100919
- PSOLMAO ;;95773
- PSOLMDA ;;197910
- PSOLMLST ;;1673965
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSONTEG 3771 printed Mar 13, 2025@21:36:24 Page 2
- PSONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971222.09512
- +1 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
- +2 ;;7.3;2971222.09512
- +3 SET XT4="I 1"
- SET X=$TEXT(+3)
- WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
- CONT FOR XT1=1:1
- SET XT2=$TEXT(ROU+XT1)
- if XT2=""
- QUIT
- SET X=$PIECE(XT2," ",1)
- SET XT3=$PIECE(XT2,";",3)
- XECUTE XT4
- IF $TEST
- WRITE !,X
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- SET XT3=0
- if XT3
- XECUTE ^%ZOSF("RSUM")
- WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")
- +1 GOTO CONT^PSONTEG0
- +2 KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4
- QUIT
- ONE SET XT4="I $D(^UTILITY($J,X))"
- SET X=$TEXT(+3)
- WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
- +1 WRITE !,"Check a subset of routines:"
- KILL ^UTILITY($JOB)
- XECUTE ^%ZOSF("RSEL")
- +2 WRITE !
- GOTO CONT
- ROU ;;
- PSOAMIS ;;8088370
- PSOAMIS0 ;;15530501
- PSOAMIS1 ;;15933021
- PSOARC ;;1543895
- PSOARCCO ;;7879291
- PSOARCCV ;;16524016
- PSOARCDE ;;1519886
- PSOARCF1 ;;9938950
- PSOARCF2 ;;6313447
- PSOARCF3 ;;10989252
- PSOARCF4 ;;14824919
- PSOARCF5 ;;10373233
- PSOARCF6 ;;2114902
- PSOARCIN ;;10467127
- PSOARCLT ;;11361257
- PSOARCR1 ;;6659841
- PSOARCR2 ;;11410187
- PSOARCRR ;;12610244
- PSOARCS2 ;;11785445
- PSOARCSV ;;14563867
- PSOARCTG ;;9524360
- PSOARCTP ;;4774424
- PSOARX ;;24537743
- PSOARX1 ;;8732603
- PSOAUTOC ;;11799857
- PSOB ;;12093795
- PSOBARV ;;4590989
- PSOBBC ;;17077721
- PSOBGMG1 ;;9615217
- PSOBGMG2 ;;16559725
- PSOBGMG3 ;;11706993
- PSOBGMGR ;;26029612
- PSOBING1 ;;20449880
- PSOBINGO ;;27965067
- PSOBKDED ;;3390318
- PSOBMST ;;12548532
- PSOBRPRT ;;12685512
- PSOBSET ;;8800979
- PSOBSET1 ;;8233165
- PSOBUILD ;;18513958
- PSOCAN ;;18537431
- PSOCAN1 ;;24583271
- PSOCAN2 ;;22710446
- PSOCAN3 ;;17987886
- PSOCAN4 ;;12203613
- PSOCLERK ;;580896
- PSOCLO1 ;;16692398
- PSOCLOLS ;;7584419
- PSOCLUTL ;;24520306
- PSOCMOP ;;8682406
- PSOCMOPA ;;6009311
- PSOCMOPB ;;5657331
- PSOCMOPC ;;3165423
- PSOCOPAY ;;2628544
- PSOCOST ;;16988098
- PSOCOSTP ;;4824429
- PSOCP ;;3646662
- PSOCPA ;;8121410
- PSOCPB ;;14175665
- PSOCPC ;;2336163
- PSOCPD ;;11289046
- PSOCPDUP ;;14367470
- PSOCPE ;;2802442
- PSOCPTRH ;;3598887
- PSOCPTRI ;;9927109
- PSOCPVW ;;3063870
- PSOCSRL ;;19568056
- PSOCST ;;1243245
- PSOCST10 ;;11107494
- PSOCST11 ;;11338986
- PSOCST12 ;;18885137
- PSOCST2 ;;10800053
- PSOCST3 ;;11384106
- PSOCST4 ;;11040507
- PSOCST5 ;;13475863
- PSOCST6 ;;10963759
- PSOCST7 ;;9540110
- PSOCST8 ;;10397479
- PSOCST9 ;;14526699
- PSOCSTD ;;16715457
- PSOCSTM ;;17123922
- PSODACT ;;8653547
- PSODEA ;;2282011
- PSODEDT ;;8093286
- PSODELI ;;1437148
- PSODEM ;;10715086
- PSODGAL ;;5387171
- PSODGDG1 ;;22372333
- PSODGDG2 ;;7110510
- PSODGDGI ;;21636668
- PSODIR ;;6314040
- PSODIR1 ;;16914116
- PSODIR2 ;;9167439
- PSODIR3 ;;5216246
- PSODISP ;;24192299
- PSODISP1 ;;20533972
- PSODISP2 ;;2853632
- PSODISP3 ;;8688157
- PSODISPS ;;15792743
- PSODIV ;;9106287
- PSODLKP ;;12394095
- PSODP ;;7869809
- PSODRDU1 ;;13178884
- PSODRDU2 ;;9325905
- PSODRDUP ;;22075959
- PSODRG ;;7801992
- PSODSPL ;;8767448
- PSODSRC ;;2809154
- PSODUE ;;4990585
- PSOEXBCH ;;17471798
- PSOEXDT ;;3390663
- PSOEXREF ;;2938164
- PSOEXRST ;;27534572
- PSOFUNC ;;5153561
- PSOHCSUM ;;7694494
- PSOHELP ;;20630563
- PSOHELP1 ;;18428458
- PSOHELP2 ;;5206648
- PSOHELP3 ;;4616409
- PSOHELP4 ;;782147
- PSOHLD ;;18883227
- PSOHLEXP ;;6671290
- PSOHLNE1 ;;10306531
- PSOHLNE2 ;;24072158
- PSOHLNEW ;;33884077
- PSOHLSG ;;14426239
- PSOHLSG1 ;;22096952
- PSOHLSG2 ;;11980019
- PSOHLSG3 ;;17462571
- PSOHLSG4 ;;5082832
- PSOHLSIG ;;16078021
- PSOHLSIH ;;12638114
- PSOHLSN ;;15349796
- PSOHLSN1 ;;20803809
- PSOHLUP ;;12005271
- PSOHLUP1 ;;7432439
- PSOLAB ;;4226213
- PSOLBL ;;26777589
- PSOLBL1 ;;18314169
- PSOLBL2 ;;18742229
- PSOLBL3 ;;2387864
- PSOLBL4 ;;22298368
- PSOLBLD ;;18323127
- PSOLBLD1 ;;6414526
- PSOLBLN ;;17575125
- PSOLBLN1 ;;25664258
- PSOLBLN2 ;;20535870
- PSOLBLS ;;18302467
- PSOLBLT ;;3427886
- PSOLMAL ;;100919
- PSOLMAO ;;95773
- PSOLMDA ;;197910
- PSOLMLST ;;1673965
