Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries  | All
Print Page as PDF
Global: ^DIST(.403

Package: VA FileMan

Global: ^DIST(.403


Information

FileMan FileNo FileMan Filename Package
.403 FORM VA FileMan

Description

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Automated Information Collection System 3 IBDEI3D5    IBDEI3E0    IBDEINI3    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
VA FileMan 1 BLOCK(#.404)[#.4031(1)#.4032(.01)]    

Fields, Total: 19

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X=+$P(X,"E")) X
  • LAST EDITED:  SEP 04, 1998
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the name of the form, 3-30 characters in length. The form name must be unique and cannot be numeric or start with a punctuation character. It should also be namespaced.
  • DELETE TEST:  1,0)= D EN^DDIOL($C(7)_"You must use the FileMan option to delete forms.") I 1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  .403^B
    1)= S ^DIST(.403,"B",$E(X,1,30),DA)=""
    2)= K ^DIST(.403,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  .403^F1^MUMPS
    1)= X "S %=$P("_DIC_"DA,0),U,8) S:$L(%) "_DIC_"""F""_%,X,DA)=1"
    2)= X "S %=$P("_DIC_"DA,0),U,8) K:$L(%) "_DIC_"""F""_%,X,DA)"
    3)= Programmer only
    This cross-reference is used to quickly find all ScreenMan templates associated with a file. It has the form:
    ^DIST(.403,"F"_file#,"formname",DA)=1
    A comparable cross-reference also exists on the PRIMARY FILE field.
  • CROSS-REFERENCE:  .403^AY^MUMPS
    1)= Q
    2)= Q
    3)= Programmer only
    This is a no-op cross reference defined merely to document the data stored under ^DIST(.403,form IEN,"AY").
    This global stores the compiled data for a Form. Form compilation occurs automatically whenever a Form is edited through the FileMan supplied options. The compiled data stored in this global is static information that is
    used whenever a Form is run.
1 READ ACCESS 0;2 FREE TEXT

  • INPUT TRANSFORM:  I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X
  • LAST EDITED:  OCT 20, 1993
  • HELP-PROMPT:  Enter VA FileMan access code(s) which control access to the form.
  • DESCRIPTION:  
    Non-programmers can enter only their own VA FileMan access code(s).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 WRITE ACCESS 0;3 FREE TEXT

  • INPUT TRANSFORM:  I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X
  • LAST EDITED:  OCT 20, 1993
  • HELP-PROMPT:  Enter VA FileMan access code(s) which control access to the form.
  • DESCRIPTION:  
    Non-programmers can enter only their own VA FileMan access code(s).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 CREATOR 0;4 NUMBER

  • INPUT TRANSFORM:  K:X'?.N X
  • HELP-PROMPT:  Enter the VA FileMan User Number of the form creator.
  • DESCRIPTION:  
    This is the DUZ of the person who created the form. The ScreenMan options to create the form automatically put a value into this field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 DATE CREATED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 18, 1994
  • HELP-PROMPT:  Enter the date the form was created.
  • DESCRIPTION:  
    This is the date the form was created. The ScreenMan options to create the form automatically put a value into this field.
5 DATE LAST USED 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 18, 1994
  • HELP-PROMPT:  Enter the date and time the form was last used.
  • DESCRIPTION:  
    This is the date the form was last used. ScreenMan automatically puts a value into this field when the form is invoked.
6 TITLE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  SEP 08, 1994
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
  • DESCRIPTION:  The TITLE property can be used by the form designer to help identify a form. It is cross referenced and need not be unique. ScreenMan does not automatically display the TITLE to the user, but the form designer can choose
    to define a caption-only field that displays the title to the user.
  • CROSS-REFERENCE:  .403^C
    1)= S ^DIST(.403,"C",$E(X,1,30),DA)=""
    2)= K ^DIST(.403,"C",$E(X,1,30),DA)
7 PRIMARY FILE 0;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DIC(X)) X
  • LAST EDITED:  APR 07, 1992
  • HELP-PROMPT:  Answer must be 1-16 characters in length.
  • DESCRIPTION:  
    Enter a file number, greater than or equal to 2, which represents the data dictionary number of the primary file for this form.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  .403^F^MUMPS
    1)= X "S %=$P("_DIC_"DA,0),U) S "_DIC_"""F""_X,%,DA)=1"
    2)= X "S %=$P("_DIC_"DA,0),U) K "_DIC_"""F""_X,%,DA)"
    3)= Programmer only
    This cross-reference is used to quickly find all ScreenMan templates associated with a file.
8 DISPLAY ONLY 0;9 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 28, 1993
  • DESCRIPTION:  
    This is a flag that indicates none of the blocks on the form are edit blocks. This flag is set during form compilation.
    UNEDITABLE
9 FORM ONLY 0;10 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 28, 1993
  • DESCRIPTION:  
    This is a flag that indicates none of the fields on the form are data dictionary fields. This flag is set during form compilation.
    UNEDITABLE
10 COMPILED 0;11 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 01, 1994
  • DESCRIPTION:  
    This is a flag that indicates that the form is compiled. This flag is set during form compilation.
    UNEDITABLE
11 PRE ACTION 11;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • HELP-PROMPT:  Enter standard MUMPS code which will be executed at the beginning of the form.
  • DESCRIPTION:  
    This is MUMPS code that is executed when the form is first invoked, before any of the pages are loaded and displayed.
    WRITE AUTHORITY: @
12 POST ACTION 12;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • HELP-PROMPT:  Enter standard MUMPS code which will be executed at the end of the form.
  • DESCRIPTION:  
    This is MUMPS code that is executed before ScreenMan returns to the calling application.
    WRITE AUTHORITY: @
14 POST SAVE 14;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  AUG 13, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  
    This is MUMPS code that is executed when the user saves changes. It is executed only if all data is valid, and after all data has been filed.
    WRITE AUTHORITY: @
15 DESCRIPTION 15;0 WORD-PROCESSING #.40315
20 DATA VALIDATION 20;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • HELP-PROMPT:  Enter standard MUMPS code.
  • DESCRIPTION:  This is MUMPS code that is executed when the user attempts to save changes to the form. If the code sets DDSERROR, the user is unable to save changes. If the code sets DDSBR, the user is taken to the specified field.
    In addition to $$GET^DDSVAL, PUT^DDSVAL, and HLP^DDSUTL, you can use MSG^DDSUTL to print on a separate screen messages to the user about the validity of the data.
    WRITE AUTHORITY: @
21 RECORD SELECTION PAGE 21;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 999.9, 1 Decimal Digit
  • DESCRIPTION:  Enter the page number of the page that is used for record selection.
    If you define a Record Selection Page, the user can select another entry in the file, and, if LAYGO is allowed, add another entry into the file without exiting the form. The Record Selection Page should be a pop-up page
    that contains one form-only field that performs a pointer-type read into the Primary File of the form. The Record Selection Page property should be set equal to the Page Number of the Record Selection Page.
    The user can open the Record Selection Page by pressing L. After the user selects a record and closes the Record Selection Page, the data for the selected record is displayed.
40 PAGE 40;0 Multiple #.4031 .4031

  • IDENTIFIED BY:  
    "WRITE": D:$D(^(1))#2 EN^DDIOL($P(^(1),U),"","?12")
21400 BUILD(S) COMPUTED MULTIPLE POINTER TO BUILD FILE (#9.6)

  • MUMPS CODE:  N DISNAME,D S DISNAME=$P($G(^DIST(.403,D0,0)),U)_" FILE #"_$P($G(^(0)),U,8) F D=0:0 S D=$O(^XPD(9.6,D)) Q:'D I $D(^(D,"KRN",.403,"NM","B",DISNAME)) 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 ScreenMan Form. A list of the identified Builds is created for display. Multiple Builds will be shown if appropriate.

Found Entries, Total: 148

NAME: DICATT    NAME: DIPTED    NAME: DIKC EDIT    NAME: DIKC EDIT UI    NAME: DIKK EDIT    NAME: DIBTED    NAME: DIETED    NAME: DIEDIT    
NAME: DDGF BLOCK EDIT    NAME: DDGF PAGE ADD    NAME: DDGF PAGE EDIT    NAME: DDGF PAGE SELECT    NAME: DDGF FORM EDIT    NAME: DDGF HEADER BLOCK EDIT    NAME: DDGF FIELD ADD    NAME: DDGF FIELD CAPTION ONLY    
NAME: DDGF FIELD DD    NAME: DDGF FIELD FORM ONLY    NAME: DDGF FIELD COMPUTED    NAME: DDGF BLOCK ADD    NAME: DDGF BLOCK DELETE    NAME: DDGF HEADER BLOCK SELECT    NAME: DDXP FF FORM1    NAME: DDMP SPECIFY IMPORT    
NAME: XPD EDIT BUILD    NAME: XUEDIT CHARACTERISTICS    NAME: XUEXISTING USER    NAME: XUDEVICE MT    NAME: XUDEVICE SDP    NAME: XUDEVICE SPL    NAME: XUDEVICE HFS    NAME: XUDEVICE CHAN    
NAME: XU OPTION SCHEDULE    NAME: XUSERDEACT    NAME: XUTM UCI ASSOC    NAME: XUSITEPARM    NAME: XUAUDIT    NAME: XUREACT USER    NAME: PRSA TD EDIT    NAME: PRSA OT REQ    
NAME: PRSA TD DISP    NAME: PRSA TL EDIT    NAME: PRSA TL DISP    NAME: PRSA LV REQ    NAME: PRSA ED REQ    NAME: PRSA VC POST    NAME: PRSA PM POST    NAME: PRSA TD TL    
NAME: PRSA TP POST1    NAME: PRSA TE EDIT    NAME: PRSA FEE POST    NAME: NURA-I-SERVICE    NAME: XU-PERSON CLASS    NAME: XUNEW USER    NAME: XPD EDIT MP    NAME: XPD EDIT GP    
NAME: PRCHQ1    NAME: PRCHQ2    NAME: PRCHQ3    NAME: PRCHQ4    NAME: PRCHQ5    NAME: LREPI    NAME: ENPR MS    NAME: ENPR ALL    
NAME: ENPR PRELIM    NAME: ENPR AE    NAME: ENPR CO    NAME: ENPR CHG    NAME: ABSV ADD/EDIT MASTER    NAME: XQEDTOPT    NAME: XU-INST-EDIT    NAME: LREPIPROT    
NAME: XUTMKE ADD    NAME: WV PROC-FORM-1    NAME: WV NOTIF-FORM-1    NAME: WV PATIENT-FORM-1    NAME: WV NOTIF-FORM-2    NAME: WV PROC-FORM-2-COLP    NAME: WV NOTIFPURPOSE-FORM-1    NAME: WV SITE PARAMS-FORM-1    
NAME: WV REFUSED PROCEDURE-ENTRY    NAME: WV PROC-FORM-LAB    NAME: XDR RESFILE FORM    NAME: HL SITE PARAMETERS    NAME: PSB PRN EFFECTIVENESS    NAME: PSB MED LOG EDIT    NAME: PSBO DL    NAME: PSBO WA    
NAME: PSBO ML    NAME: PSBO MM    NAME: PSBO PE    NAME: PSB MISSING DOSE REQUEST    NAME: PSBO MH    NAME: PSBO MV    NAME: PSB MISSING DOSE FOLLOWUP    NAME: PSBO BL    
NAME: PSBO MD    NAME: PSB NEW UD ENTRY    NAME: PSB NEW IV ENTRY    NAME: HL7 APP    NAME: HL7 LOGICAL LINK    NAME: HL7 INTERFACE    NAME: PSB MED LOG EDIT IV    NAME: XU-CLINICAL TRAINEE    
NAME: XUSSPKI    NAME: INSTITUTION EDIT    NAME: PRSA LD POST    NAME: XUDEVICE LPD    NAME: XUDEVICE TRM    NAME: KMPD PARAMETERS EDIT    NAME: LREPI9    NAME: XUDEVICE RES    
NAME: PSBO BZ    NAME: ENIT EDIT    NAME: PXRM DIALOG EDIT    NAME: XUSITEIP    NAME: PSB BCBU PARAMETERS    NAME: PSBO XA    NAME: MD MAIN    NAME: PRSP ESR POST    
NAME: PRSP EXT ABSENCE    NAME: MMRSMRSA WARD MAP    NAME: MMRSLABPARAM    NAME: MMRSISLTORD    NAME: XUER EDIT PARAMS    NAME: PRSN DAILY TIME RECORDS A/E/D    NAME: PRSN EDIT PAID PARAMETERS    NAME: PRSN EDIT TL POC    
NAME: PXRM OCR EDIT    NAME: PXRM OCG EDIT    NAME: PXRM OCR EDIT RESTRICTED    NAME: PXRM OCG EDIT RESTRICTED    NAME: PXRM OCG EDIT HISTORY    NAME: PXRM OCR EDIT HISTORY    NAME: XUDEVICE PQ    NAME: GMRC MAIN    
NAME: DDE ENTITY ENTER/EDIT    NAME: KMPV EDIT CONFIGURATION    NAME: KMPV VIEW CONFIGURATION    NAME: DIP81S    NAME: DIP86S    NAME: DIP87S    NAME: DIAC POLICY    NAME: DIAC SET    
NAME: DIAC RULE    NAME: PXRM TAXONOMY EDIT    NAME: PXRM TAXONOMY CHANGE LOG    NAME: PXRM DIALOG TAXONOMY EDIT    
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries  | All