source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DMSQP2.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.9 KB
Line 
1DMSQP2 ;SFISC/EZ-PRINT SQLI'S DD INFORMATION ;10/30/97 17:29
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5EN ; for a single file or number range, show SQLI projection of fields
6 S DMQ="" D CHK,CHK1:'DMQ,ASK:'DMQ,ASK1:'DMQ,PRT:'DMQ,EXIT Q
7EN1 ; display file numbers below this one (subfiles)
8 D INIT,CHK,ASK:'DMQ,ZIS:'DMQ,DN:'DMQ,EXIT Q
9EN2 ; display file numbers above
10 D INIT,CHK,ASK:'DMQ,ZIS:'DMQ,UP:'DMQ,EXIT Q
11EN3 ; file number choices to use in EN, EN1, EN2
12 D INIT,CHK,LST:'DMQ,EXIT Q
13INIT S DMQ="" D DT^DICRW Q
14ZIS D ^%ZIS S:POP DMQ=1 Q
15EXIT K DMFN,DMFN1,DMX,DMX1,DMNODE,DMY,DM1,DM2,DMQ Q
16CHK ; check for existence of SQLI data in DMSQ global
17 I '$O(^DMSQ("S",0)) W !?5,"Sorry, SQLI files are empty.",! S DMQ=1 Q
18 I $$WAIT^DMSQT1 D S DMQ=1 Q
19 . W !?5,"Try later. SQLI is being re-built right now."
20 Q
21 Q
22CHK1 ; check file access needed for navigation in PRT report
23 I DUZ(0)'="@" F DIFILE=1.5211,1.5212,1.5214,1.5216 D K DIAC
24 . S DIAC="RD" D EN^DIAC S:'% DMQ=1
25 D:DMQ
26 . W !!?5,"You need 'Read' access to four SQLI files to run this report."
27 . W !?5,"They are files 1.5211, 1.5212, 1.5214, and 1.5216."
28 . W !!?5,"Contact your system manager to be granted single file access.",!
29 Q
30ASK ; select file numbers
31 S DM1=$O(^DMSQ("T","C",0)),DM2=$O(^DMSQ("T","C",99999999999),-1)
32 S DIR(0)="NO^"_DM1_":"_DM2_":999999999",DIR("A")="Starting File Number"
33 S DIR("?")="Enter the number of the file, e.g. 200 or 1.5215"
34 S DIR("B")=.401 D ^DIR S:$D(DIRUT) DMQ=1 K DIR Q:DMQ S DMFN=Y
35 I '$D(^DMSQ("T","C",DMFN)) W !,"SQLI table not found." G ASK
36 Q
37ASK1 S DIR("B")=DMFN ; default to one file (not a range)
38 S DIR(0)="NO^"_DM1_":"_DM2_":999999999",DIR("A")=" Ending File Number"
39 S DIR("?")="Optionally enter a larger number for a range, e.g. 1.5217"
40 D ^DIR S:$D(DTOUT)!$D(DUOUT) DMQ=1 K DIR Q:DMQ S DMFN1=Y
41 I '$D(^DMSQ("T","C",DMFN1)) D G ASK1
42 . W !!?5,"There isn't a table for the file number you've entered."
43 . W !?5,"(The highest possible number is "_DM2_".)",!
44 I DMFN1'=DMFN,DMFN1'>DMFN D G ASK1
45 . W !!?5,"Enter a LARGER number to get a range."
46 . W !?5,"The highest possible number here is "_DM2_".",!
47 Q
48PRT ; report
49 S DIC="1.5217",L=0,DHD="SQLI PROJECTION OF FIELDS AS COLUMNS"
50 S FLDS="INTERNAL(#4);C1;S;X,.01;C15;X,7;C15;X,5;C42;X,""C_COMPUTE: "";C20"
51 S FLDS(1)="13;X,""C_FM_EXEC: "";C20,14;C31;X,""C_OUTPUT_FORMAT: "";C20"
52 S FLDS(2)="16:.01;X,""OF_DATA_TYPE: "";C23,16:1;X"
53 S FLDS(3)="""OF_EXT_EXPR: "";C24,16:3;C37;X,""E_DOMAIN: "";C15,.01:1:.01;X"
54 S FLDS(4)="""DM_DATA_TYPE: "";C42,.01:1:1:.01;X"
55 S FLDS(5)="""C_WIDTH/C_SCALE: "";C15,2;X,""/"";X,3;X"
56 S FLDS(6)="""DM_WIDTH/DM_SCALE: "";C42,.01:1:4;X,""/"";X,.01:1:5;X"
57 S BY(0)="^DMSQ(""C"",""D"",",L(0)=3,FR(0,1)=DMFN,TO(0,1)=DMFN1
58 S DISPAR(0,1)="^;""SQLI TABLE NAME: "";S2"
59 S DISPAR(0,1,"OUT")="S:Y Y=$O(^DMSQ(""T"",""C"",Y,0)) S Y=$P($G(^DMSQ(""T"",Y,0)),U,1)_"" (""_$P($G(^DMSQ(""T"",Y,0)),U,7)_"")"""
60 D EN1^DIP Q
61DN ; downward
62 S DMX=$O(^DMSQ("T","C",DMFN,0)) ; get table ien
63 S DMX=$O(^DMSQ("DM","C",DMX,0)) ; get domain ien (dm_table x-ref)
64 S DMX=$P(^DMSQ("DM",DMX,0),U,1) ; get domain name
65 S DMX1=0 F S DMX1=$O(^DMSQ("E","B",DMX,DMX1)) Q:(DMQ)!(DMX1'>0) D
66 . S DMNODE=^DMSQ("T",$P(^DMSQ("E",DMX1,0),U,3),0)
67 . Q:$P(DMNODE,U,4) S DMY=$P(DMNODE,U,7)
68 . I $Y+2>IOSL D PAGE I $D(DIRUT) S DMQ=1 Q
69 . W !?5,DMY,?20,$$EXTERNAL^DILFD(1.5215,6,"",DMY)
70 Q
71UP ; upward
72 S DMX=$O(^DMSQ("T","C",DMFN,0)) ; get table ien
73 S DMX1=0 F S DMX1=$O(^DMSQ("E","F",DMX,"F",DMX1)) Q:(DMQ)!(DMX1'>0) D
74 . S DMY=$P(^DMSQ("T",$P(^DMSQ("DM",$P(^DMSQ("E",DMX1,0),U,2),0),U,4),0),U,7)
75 . I $Y+2>IOSL D PAGE I $D(DIRUT) S DMQ=1 Q
76 . W !?5,DMY,?20,$$EXTERNAL^DILFD(1.5215,6,"",DMY)
77 Q
78PAGE I IOST["C-" S DIR(0)="E" D ^DIR K DIR W @IOF
79 Q
80LST ; list file names and SQLI tables by file number
81 S DIC="1.5215",L=0,BY="@INTERNAL(#6);""FILE NUMBER: """
82 S FLDS="INTERNAL(#6);""FILE#"";S,6;C15;L30;""FILEMAN FILE NAME"""
83 S FLDS(1)=".01;C48;""SQLI TABLE NAME"""
84 S DHD="SQLI TABLES BY FILE NUMBER"
85 D EN1^DIP Q
Note: See TracBrowser for help on using the repository browser.