source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DMSQP1.m@ 1147

DMSQP1 ;SFISC/EZ-PRINT SAMPLE SQLI STATS ;10/30/97  17:06
 ;;22.0;VA FileMan;;Mar 30, 1999
 ;Per VHA Directive 10-93-142, this routine should not be modified.
 Q
OK ; check if okay to run
 I '$O(^DMSQ("S",0)) W !?5,"Sorry, SQLI files are empty.",! S DMQ=1 Q 
 I $$WAIT^DMSQT1 D  S DMQ=1 Q
 . W !?5,"Try later.  SQLI is being re-built right now."
 Q
EN1 ; print total regular tables
 S DMQ="" D OK I DMQ K DMQ Q
 S DHD="SQLI TABLE COUNT (EXCLUDING INDEX-TYPE)"
 S DIC="1.5215",L=0,FLDS="!T_NAME;""REGULAR TABLES"""
 S BY="3",(FR,TO)="@"
 D EN1^DIP K DMQ Q
EN2 ; print total columns
 S DMQ="" D OK I DMQ K DMQ Q
 S DHD="SQLI COLUMN COUNT FOR ALL TABLES"
 S DIC="1.5217",L=0,FLDS="!(#.01);""COLUMNS"""
 S BY="NUMBER",(FR,TO)=""
 D EN1^DIP K DMQ Q
EN3 ; print totals for indexes
 S DMQ="" D OK I DMQ K DMQ Q
 S DHD="SQLI INDEX COUNT (INDEX-TYPE TABLES)"
 S DIC="1.5215",L=0,FLDS="!T_NAME;""INDEXES"""
 S BY(0)="^DMSQ(""T"",""E"",",L(0)=2
 D EN1^DIP K DMQ Q
EN4 ; print totals for types of table elements
 S DMQ="" D OK I DMQ K DMQ Q
 S DHD="SQLI TABLE ELEMENT TYPE TOTALS"
 S DIC="1.5216",L=0,FLDS="!E_TYPE"
 S BY(0)="^DMSQ(""E"",""E"",",L(0)=2
 S DISPAR(0,1)="+^;""TYPE= "";C1;S"
 S DISPAR(0,1,"OUT")="S Y=$$EXTERNAL^DILFD(1.5216,3,,Y)"
 D EN1^DIP K DMQ Q
EN5 ; print totals for columns in tables
 S DMQ="" D OK I DMQ K DMQ Q
 S DHD="SQLI COLUMN TOTALS BY TABLE"
 S DIC="1.5216",L=0,FLDS="!(#.01);"""""
 S BY(0)="^DMSQ(""E"",""F"",",L(0)=3
 S DISPAR(0,1)="^;S;C1;""TABLE: """
 S DISPAR(0,1,"OUT")="S Y=$P(^DMSQ(""T"",Y,0),U,1)"
 S DISPAR(0,2)="+^;",(FR(0,2),TO(0,2))="C"
 D EN1^DIP K DMQ Q
EN6 ; show totals of EN5 largest to smallest
 S DMQ="" D OK I DMQ K DMQ Q
 S DHD="SQLI TABLES SORTED BY TOTAL COLUMNS" K ^TMP("DMSQ",$J)
 S DM=0 F  S DM=$O(^DMSQ("E","F",DM)) Q:DM'>0  D
 . S DM1=0 F  S DM1=$O(^DMSQ("E","F",DM,DM1)) Q:DM1=""  D
 .. Q:DM1'="C"  S (DM2,DMC)=0
 .. F  S DM2=$O(^DMSQ("E","F",DM,DM1,DM2)) Q:DM2'>0  S DMC=DMC+1
 .. S:DMC DMC1=9999999-DMC,^TMP("DMSQ",$J,DMC1,DMC,DM)=""
 S DIC="1.5215",L=0,FLDS="T_NAME;C20"
 S BY(0)="^TMP(""DMSQ"",$J,",L(0)=3
 S DISPAR(0,2)="^;C1;S;""COLUMN COUNT:  """
 D EN1^DIP
 K DM,DM1,DM2,DMC,DMC1,^TMP("DMSQ",$J) Q
EN7 ; print total columns just for regular tables
 S DMQ="" D OK I DMQ K DMQ Q
 S DHD="SQLI COLUMN COUNT FOR REGULAR TABLES (EXCLUDING INDEXES)"
 S DIC="1.5217",L=0,FLDS="!(#.01);""COLUMNS"""
 S BY="NUMBER",(FR,TO)=""
 S DIS(0)="I '$P(^DMSQ(""T"",$P(^DMSQ(""E"",$P(^DMSQ(""C"",D0,0),U,1),0),U,3),0),U,4)"
 D EN1^DIP K DMQ Q
EN8 ; print total columns, regular tables, excluding Table_IDs
 S DMQ="" D OK I DMQ K DMQ Q
 S DHD="SQLI COLUMN COUNT, REGULAR TABLES, EXCLUDING TABLE_IDS"
 S DIC="1.5217",L=0,FLDS="!(#.01);""COLUMNS"""
 S BY(0)="^DMSQ(""C"",""D"",",L(0)=3
 D EN1^DIP K DMQ Q
EN9 ; print subtotals by domain for regular table columns
 S DMQ="" D OK I DMQ K DMQ Q
 S DHD="SQLI COLUMN COUNT BY DOMAIN (REGULAR TABLES, EXCLUDING TABLE_IDS)"
 S DIC="1.5216",L=0,FLDS="!(#.01);""COLUMNS"""
 S BY(0)="^DMSQ(""E"",""C"",",L(0)=2
 S DISPAR(0,1)="+^;""DOMAIN= "";C1;S"
 S DISPAR(0,1,"OUT")="S:Y Y=$P(^DMSQ(""DM"",Y,0),U,1)"
 S DIS(0)="I $P(^DMSQ(""E"",D0,0),U,4)'=""P"",$P($G(^DMSQ(""C"",D0,0)),U,5)"
 D EN1^DIP K DMQ Q