Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRXENTEG

PRXENTEG.m

Go to the documentation of this file.
  1. PRXENTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2951109.120629
  1. ;;5.0;IFCAP;**43**;4/21/95
  1. ;;7.3;2951109.120629
  1. S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
  1. 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")
  1. ;
  1. K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
  1. 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),!
  1. W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
  1. W ! G CONT
  1. ROU ;;
  1. PRCFARRQ ;;16054979
  1. PRCHAMU ;;11153533
  1. PRCHCARD ;;1318383
  1. PRCHE ;;12980217
  1. PRCHE2 ;;14562162
  1. PRCHEA ;;10774516
  1. PRCHMA ;;12294864
  1. PRCHMA1 ;;8972528
  1. PRCHNPO4 ;;10524071
  1. PRCHNRQ ;;14435039
  1. PRCHREC ;;18344091
  1. PRCHRPT ;;13535433
  1. PRCHSF1 ;;8531733
  1. PRCSFMS ;;8550805
  1. PRCSFMS1 ;;9224345
  1. PRCSP1A ;;15717431
  1. PRCSPC ;;716319
  1. PRCSQR ;;11781620
  1. PRXEI001 ;;7933133
  1. PRXEI002 ;;7269554
  1. PRXEI003 ;;10200145
  1. PRXEI004 ;;2321603
  1. PRXEI005 ;;5524579
  1. PRXEI006 ;;14645269
  1. PRXEI007 ;;25445020
  1. PRXEI008 ;;17989824
  1. PRXEI009 ;;2553730
  1. PRXEINI1 ;;4891993
  1. PRXEINI2 ;;5232615
  1. PRXEINI3 ;;16808002
  1. PRXEINI4 ;;3357787
  1. PRXEINI5 ;;631630
  1. PRXEINIS ;;2215821
  1. PRXEINIT ;;10225764