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: ^DIPT

Package: VA Fileman

Global: ^DIPT


Information

FileMan FileNo FileMan Filename Package
.4 PRINT TEMPLATE VA Fileman

Description

Directly Accessed By Routines, Total: 48

Package Total Routines
VA Fileman 26 DDXP3    DDXP32    DDXP4    DDXPLIB    DIAXM    DIAXT    DIAXU    DICATT4
DIFGB    DIFGG    DIFGG2    DIFGG4    DIFGGI    DIL2    DINIT    DINIT5
DIP21    DIP22    DIP23    DIP3    DIP5    DIPT    DIPTED    DIPZ
DIPZ2    DIU0    
Commitment Register 7 ACR21PST    ACRF13PS    ACRF14PS    ACRF19PS    ACRF20PS    ACRF21PS    ACRF22PS    
IHS Generic Interface System 3 INHDIPZ    INHDIPZ2    INHE1    
Case Management System 1 ACMTMPCL    
Contracts and Grants 1 ACGPOST    
IHS Pharmacy Auto Refill System 1 BEXRSRT    
IHS VA Utilities 1 XBHEDD11    
Kernel 1 XUINEACH    
Pharmacy Point of Sale 1 ABSPOSMD    
Quality Assurance 1 AQAZPOST    
Registration 1 DG53231P    
Supply 1 ASUURHDR    
Third Party Tracking 1 ABPADETC    
Toolkit 1 XTVGC1    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Lab Service 2 LRARIPOS    LRIPOS3    
Third Party Tracking 2 ABPAPRE1    ABPVPRE1    
IHS Accounts Receivable 1 BARRPTU0    
IHS Changes To Pharmacy 1 APSQCK2    
IHS Generic Interface System 1 INHSZ20    
Integrated Billing 1 IB20IN    
Quality Assurance 1 AQAZPOST    

Pointed To By FileMan Files, Total: 8

Package Total FileMan Files
VA Fileman 2 ARCHIVAL ACTIVITY(#1.11)[3]    FILEGRAM HISTORY(#1.12)[.07]    
Case Management System 1 CMS SORT(#9002248.5)[#9002248.51(.01)]    
Contracts and Grants 1 CIS SORT(#9002331.5)[#9002331.51(.01)]    
Kernel 1 PACKAGE(#9.4)[9999999.01]    
Lab Service 1 LAB ARCHIVAL ACTIVITY(#95.11)[3]    
Patient Care Component 1 PCC MAN REPORTS SORT(#9001003.5)[#9001003.51(.01)]    
Registration 1 ADT TEMPLATE(#43.7)[6]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
VA Fileman 3 DATA TYPE(#.81)[#.42(1)]    FILE(#1)[4, 20]    FOREIGN FORMAT(#.44)[105]    

Fields, Total: 21

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:  .4^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)"
  • CROSS-REFERENCE:  ^^MUMPS
    1)= Q
    2)= S X=-1 X "F  S X=$O("_DIC_"""AF"",X)) Q:X=""""  K:'X ^(X,DA) S Y=0 F  S Y=$O("_DIC_"""AF"",X,Y)) Q:Y'>0  K:$D(^(Y,DA)) ^(DA)" S X=-1 S:$G(Y)="" Y=-1
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 FILEGRAM;
  • '2' FOR EXTRACT;
  • '3' FOR EXPORT;
  • '7' FOR SELECTED EXPORT FIELDS;

  • LAST EDITED:  MAY 23, 1996
  • HELP-PROMPT:  Enter a 1 if this is a FILEGRAM template, 2 if this is an EXTRACT template, 3 if an EXPORT template, 7 if a SELECTED FIELDS template, as opposed to a normal PRINT template.
  • CROSS-REFERENCE:  .4^FG^MUMPS
    1)= S %=$S(X=1:"""FG""",1:"") I %]"" S A1=$P(@(DIC_"DA,0)"),U,1),@(DIC_%_",A1,DA)=""""") K %,A1
    2)= S %=$S(X=1:"""FG""",1:"") I %]"" S A1=$P(@(DIC_"DA,0)"),U,1) K @(DIC_%_",A1,DA)"),%,A1
    Used to do a quick lookup of FILEGRAM type of print templates.
10 DESCRIPTION %D;0 WORD-PROCESSING #.4001
20 DESTINATION FILE 0;9 POINTER TO FILE FILE (#1) FILE(#1)

  • INPUT TRANSFORM:  S DIC("S")="I Y>1.99 S DIAC=""RD"" D ^DIAC I %" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 09, 1995
  • DESCRIPTION:  
    This field holds the number of the file that is designed to receive data from other files by using the Extract Tool.
  • SCREEN:  S DIC("S")="I Y>1.99 S DIAC=""RD"" D ^DIAC I %"
  • EXPLANATION:  Allow files to which user has READ access.
50 FILEGRAM/EXTR FILE 1;0 Multiple #.41 .41

  • LAST EDITED:  MAY 14, 1992
100 EXPORT FIELD 100;0 Multiple #.42 .42

  • DESCRIPTION:  
    This multiple holds information about each field being exported.
105 EXPORT FORMAT 105;1 POINTER TO FOREIGN FORMAT FILE (#.44) FOREIGN FORMAT(#.44)

  • LAST EDITED:  SEP 04, 1992
  • DESCRIPTION:  
    This field contains the foreign format used to make the export template.
110 EXPORT TEMPLATE CREATED? 105;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 04, 1992
  • DESCRIPTION:  
    If YES, this Selected Fields for Export template has been used to create an Export template.
115 MULTIPLE PATH 105;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 19, 1992
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field holds a list of field numbers representing the deepest multiple contained in this Export template.
704 HEADER COMPUTED

  • MUMPS CODE:  S X=$S($D(^DIPT(D0,"H")):^("H"),1:"")
707 SUB-HEADER SUPPRESSED SUB;1 SET
  • '1' FOR YES;
1620 PRINT FIELDS COMPUTED

  • MUMPS CODE:  D ^DIPT
  • ALGORITHM:  D ^DIET
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1815 ROUTINE INVOKED ROU;E1,13 FREE TEXT

  • CROSS-REFERENCE:  ^^^MUMPS
    1)= Q
    2)= D DELETROU^DIEZ($TR(X,U))
1816 PREVIOUS ROUTINE INVOKED ROUOLD;E1,13 FREE TEXT
1819 COMPILED COMPUTED

  • MUMPS CODE:  S X=$S('$D(^DIPT(D0,"ROU"))#2:"NO",^("ROU")="":"NO",1:"YES")
  • ALGORITHM:  S X=$S('$D(^DIPT(D0,"ROU"))#2:"NO",^("ROU")="":"NO",1:"YES")

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3447
  • IFCAP
  • ENGINEERING
  • EQUIPMENT/TURN-IN REQUEST
    		•  EXPORT FORMAT (105).
    Access: Write w/Fileman

    TEMPLATE TYPE (8).
    Access: Read w/Fileman
    ICR #10020
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  All