Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  All
Print Page as PDF
Global: ^DIBT

Package: VA FileMan

Global: ^DIBT


Information

FileMan FileNo FileMan Filename Package
.401 SORT TEMPLATE VA FileMan

Description

Directly Accessed By Routines, Total: 66

Package Total Routines
VA FileMan 35 DDPA2    DDXP4    DIARA    DIARB    DIARCALC    DIARX    DIAXU    DIBT
DIBT1    DIBTED    DICLGFT    DID    DIDGFTPT    DIEZ2    DIFROMSU    DII
DIKKUTL3    DIL2    DINIT5    DIO    DIO4    DIOZ    DIP1    DIP10
DIP11    DIP5    DIPT    DIS2    DIS3    DIT2    DITCP    DIV
DIVR    DIVR1    DIVRE    
Integrated Billing 8 IB DO NOT USE    IB INACTIVE INS CO    IBARXEPL    IBPA    IBPF    IBPF1    IBPP    IBPUDEL
Oncology 7 ONCOSA1    ONCOSC1    ONCOSCG    ONCOSCT    ONCOSINP    ONCOSSA    ONCOST1    
Lab Service 4 LRARLMW1    LRARNPX0    LRARWKD1    LRCAPF    
Registration 4 DGPMBSR2    DGPTAPA    DGPTAPP1    DGPTLMU1    
Engineering 3 ENEQP    ENEQP1    ENWO1    
Imaging 2 MAGJMN1    MAGVAQ02    
Kernel 1 XPDCOMF    
Social Work 1 SOWKOPT    
Toolkit 1 XTVGC1    

Accessed By FileMan Db Calls, Total: 20

Package Total Routines
Lab Service 4 LRARLMW1    LRARNPX0    LRARWKD1    LRCAPF    
Oncology 4 ONCOSCF    ONCOSCT0    ONCOSINP    ONCOSSAT    
Integrated Billing 3 IBARXEPL    IBPFU    IBPU1    
Registration 3 DGPTAPSL    DGPTLMU1    DGPTLMU2    
Engineering 2 ENEQP    ENWO1    
IFCAP 1 PRCP5PRE    
Imaging 1 MAGVAQ02    
Scheduling 1 SDYRENR    
Social Work 1 SOWKOPT    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Registration 2 ADT TEMPLATE(#43.7)[7]    PTF ARCHIVE/PURGE HISTORY FILE(#45.62)[.08]    
Lab Service 1 LAB ARCHIVAL ACTIVITY(#95.11)[2]    
VA FileMan 1 ARCHIVAL ACTIVITY(#1.11)[2]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
VA FileMan 2 DATA TYPE(#.81)[#.4014(15)]    FILE(#1)[4]    

Fields, Total: 24

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)<2!($L(X)>30) X
  • HELP-PROMPT:  2-30 CHARACTERS
  • CROSS-REFERENCE:  .401^B
    1)= S @(DIC_"""B"",X,DA)=""""")
    2)= K @(DIC_"""B"",X,DA)")
  • CROSS-REFERENCE:  ^^MUMPS
    1)= X "S %=$P("_DIC_"DA,0),U,4) S:$L(%) "_DIC_"""F""_+%,X,DA)=1"
    2)= X "S %=$P("_DIC_"DA,0),U,4) K:$L(%) "_DIC_"""F""_+%,X,DA)"
2 DATE CREATED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
3 READ ACCESS 0;3 FREE TEXT

  • INPUT TRANSFORM:  I DUZ(0)'="@" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q
4 FILE 0;4 POINTER TO FILE FILE (#1) FILE(#1)

  • CROSS-REFERENCE:  ^^^MUMPS
    1)= X "S %=$P("_DIC_"DA,0),U,1),"_DIC_"""F""_+X,%,DA)=1"
    2)= Q
5 USER # 0;5 NUMBER
6 WRITE ACCESS 0;6 FREE TEXT

  • INPUT TRANSFORM:  I DUZ(0)'="@" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q
7 DATE LAST USED 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
8 TEMPLATE TYPE 0;8 SET
  • '1' FOR ARCHIVING SEARCH;

  • HELP-PROMPT:  Enter a 1 if this is an ARCHIVING SEARCH template (i.e., used to store lists of records to be archived) as opposed to a normal SEARCH or SORT template
9 SEARCH COMPLETE DATE QR;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 24, 1992
  • HELP-PROMPT:  Enter the date/time that this search was run to completion.
  • DESCRIPTION:  This field will be filled in automatically by the search option, but only if the search runs to completion. It will contain the date/time that the search last ran. If it was not allowed to run to completion, this field
    will be empty.
  • TECHNICAL DESCR:  
    Filled in automatically by the FileMan search option.
10 DESCRIPTION %D;0 WORD-PROCESSING #.4012
11 TOTAL RECORDS SELECTED QR;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 25, 1992
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
  • DESCRIPTION:  This field is filled in automatically by the FileMan search option. If the search is allowed to run to completion, the total number of records that met the search criteria is stored in this field. If the last search
    was not allowed to run to completion, this field will be null.
  • TECHNICAL DESCR:  
    Filled in automatically by the FileMan search option.
15 SEARCH SPECIFICATIONS O;0 WORD-PROCESSING #.4011
1620 SORT FIELDS COMPUTED MULTIPLE

  • MUMPS CODE:  N DPP D DIBT^DIPT
1621 SORT FIELD DATA 2;0 Multiple #.4014 .4014
1622 BY(0) BY0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X?1.ANP1"(".ANP) X
  • LAST EDITED:  SEP 24, 1996
  • HELP-PROMPT:  Enter the static part of a global. The leading up-arrow can be omitted.
  • DESCRIPTION:  Enter the static, unchanging part of an open global reference for either a global or a cross-reference that contains the list of record numbers to sort through on the first pass. The leading up-arrow can be omitted. For
    example:  DIZ(662001,"A", or TMP("NMSP",$J,
  • TECHNICAL DESCR:  
    Equivalent to the BY(0) input variable to programmer call EN1^DIP.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1623 L(0) BY0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 28, 1996
  • HELP-PROMPT:  Type a Number between 1 and 8, 0 Decimal Digits
  • DESCRIPTION:  Enter the total number of subscripts that must be sorted through on the global referenced by BY(0), including 1 for the record number. Ex., to sort through the "B" x-ref, we sort through the cross-referenced value itself,
    then the record number, so L(0)=2.
  • TECHNICAL DESCR:  
    Equivalent to the L(0) input variable to programmer call EN1^DIP.
1624 SORT RANGE DATA FOR BY(0) BY0D;0 Multiple #.4011624 .4011624
1815 ROUTINE INVOKED ROU;E1,13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  APR 16, 1993
  • HELP-PROMPT:  Answer must be 5 characters in length.Must contain '^DISZ'.
  • DESCRIPTION:  If this sort template is compiled, the first characters of the name of that compiled routine will appear on this node. Compiled sort routines are re-created each time the sort/print runs. These characters are
    concatenated with the next available number from the COMPILED ROUTINE file to create the routine name.
    If this node is present, a new compiled sort routine will be created during the FileMan sort/print.
  • TECHNICAL DESCR:  
    A routine beginning with these characters is created during the FileMan sort/print.  The routine is then called from DIO2 to do the sort, rather than executing code from the local DY, DZ and P arrays.
1816 PREVIOUS ROUTINE INVOKED ROUOLD;E1,13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?1"DISZ") X
  • LAST EDITED:  APR 16, 1993
  • HELP-PROMPT:  Entry must be 'DISZ'.
  • DESCRIPTION:  This node is present only to be consistant with other sort templates. It's presence will indicate that at some time the SORT template was compiled and will contain the beginning characters used to create the name of the
    compiled routine.
1819 COMPILED COMPUTED

  • MUMPS CODE:  S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
  • ALGORITHM:  S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
6666 ENTRIES COMPUTED MULTIPLE

  • MUMPS CODE:  N FILE,DINAME,D S FILE=$P($G(^DIBT(D0,0)),U,4) I $D(^(1)) S DINAME=$G(^DIC(FILE,0,"GL"))_"D,0)" I DINAME[U F D=0:0 S D=$O(^DIBT(D0,1,D)) Q:'D I $D(@DINAME) S X=$$GET1^DIQ(FILE,D,.01) X DICMX Q:'$D(D)
  • DESCRIPTION:  
    For SEARCH Templates, the list of the entries found and stored when the Template was created is accessed. The value of the .01 Field for each entry is displayed.
21400 BUILD(S) COMPUTED MULTIPLE POINTER TO BUILD FILE (#9.6)

  • MUMPS CODE:  N DIBTNAME,D S DIBTNAME=$P($G(^DIBT(D0,0)),U)_" FILE #"_$P($G(^(0)),U,4) F D=0:0 S D=$O(^XPD(9.6,D)) Q:'D I $D(^(D,"KRN",.401,"NM","B",DIBTNAME)) N D0 S D0=D,X=$P(^XPD(9.6,D,0),U) X DICMX Q:'$D(D)
  • DESCRIPTION:  
    The Build File (#9.6) is searched for Builds containing the Sort Template.  A list of the identified Builds is created for display.  Multiple Builds will be shown if appropriate.
21409 CANONIC FOR THIS FILE CANONIC;1 SET
  • '1' FOR YES;

  • DESCRIPTION:  
    The Sort Template identified as CANONIC will always be presented to the user for selection at the Sort By: prompt.
  • EXECUTABLE HELP:  D HELP^DIUCANON
  • CROSS-REFERENCE:  ^^^MUMPS
    1)= N F S F=$P(^DIBT(DA,0),U,4) I F S ^DIBT("CANONIC",F,DA)=""
    2)= N F S F=$P(^DIBT(DA,0),U,4) I F K ^DIBT("CANONIC",F,DA)
    This cross-reference is used to identify files that have a Canonic Sort Template assigned.  The structure of the cross-reference is:
    ^DIBT("CANONIC", File#, IEN)
    where File# identifies the file which has a Canonic Sort Template and IEN is the internal entry number of the Canonic Sort Template assigned to that file.
491620 PRINT TEMPLATE DIPT;1 FREE TEXT

  • INPUT TRANSFORM:  K:'$D(^DIPT("B",X)) X
  • EXECUTABLE HELP:  N D1 S D1(1)="If this Sort Template should always be used with a particular",D1(2)="Print Template, enter the name of that Print Template.",D1(3)="" D EN^DDIOL(.D1)

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3532
  • IMAGING
  • The node that contains the fields and search valuerepresentation. Example: ^DIBT(1228,"DC",1)=^9>20 <
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  All