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

DMSQP1.m

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