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 |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DIC(8.2

Package: Registration

Global: ^DIC(8.2


Information

FileMan FileNo FileMan Filename Package
8.2 IDENTIFICATION FORMAT Registration

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Registration 5 VADPT6    VADPT60    ^DIC(8.2    DG53P861    VADPT61    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Registration 2 VADPT60    VADPT61    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Registration 2 TYPE OF PATIENT(#391)[8.2]    ELIGIBILITY CODE(#8)[9]    

Fields, Total: 9

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

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    This field holds the name of the id format.
  • CROSS-REFERENCE:  8.2^B
    1)= S ^DIC(8.2,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(8.2,"B",$E(X,1,30),DA)
.02 PROMPT USER FOR ID? 0;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • DESCRIPTION:  This field indicates whether the user is prompted for the patient's long identification. If set to 'NO' then user is not prompted and the id value will remain the value obtained from executing the 'DEFAULT LONG ID VALUE
    LOGIC'(field #300).
1 CROSS REFERENCE SET LOGIC 1;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  This field contains MUMPS code that will be executed by the 'set' logic in the 'AC' cross reference on the 'LONG ID(#.03)' field of the 'PATIENT ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file.
    The code will only be executed when the patient's eligibility has this 'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the 'ELIGIBILITY CODE(#8)' file.
    The purpose of this field is to allow for the setting of 'IDENTIFICATION FORMAT' specific cross references. Naturally, all cross-reference sets must conform to VA FileMan specifications.
    The following variables are present when this code is executed:
    DA(1) - internal number of PATIENT file entry
    DA - internal number of PATIENT ELIGIBILITIES sub-file entry
    - also, since this sub-file is DINUMed, DA equals the
    internal file entry in the 'ELIGIBILITY CODE' file
    X - new value of long id
2 CROSS REFERENCE KILL LOGIC 2;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  This field contains MUMPS code that will be executed by the 'kill' logic in the 'AC' cross reference on the 'LONG ID(#.03)' field of the 'PATIENT ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file.
    The code will only be executed when the patient's eligibility has this 'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the 'ELIGIBILITY CODE(#8)' file.
    The purpose of this field is to allow for the killing of 'IDENTIFICATION FORMAT' specific cross references. Naturally, all cross-reference kills must conform to VA FileMan specifications.
    The following variables are present when this code is executed:
    DA(1) - internal number of PATIENT file entry
    DA - internal number of PATIENT ELIGIBILITIES sub-file entry
    - also, since this sub-file is DINUMed, DA equals the
    internal file entry in the 'ELIGIBILITY CODE' file
    X - old value long id
4 XECUTABLE 'HELP' 4;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  This field contains MUMPS code that will be executed by the XECUTABLE 'HELP' on the 'LONG ID(#.03)' field of the 'PATIENT ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file.
    The code will only be executed when the patient eligibility has this 'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the 'ELIGIBILITY CODE(#8)' file.
    The purpose of this field is to allow for id format specific help to be performed whenever the user requests help or when they enter invalid data.
    The following variables are present when this code is executed:
    DA(1) - internal number of PATIENT file entry
    DA - internal number of PATIENT ELIGIBILITIES sub-file entry
    - also, since this sub-file is DINUMed, DA equals the
    internal file entry in the 'ELIGIBILITY CODE' file
    X - value of user input
50 DESCRIPTION DESCRIPTION;0 WORD-PROCESSING #8.21

  • DESCRIPTION:  
    This field is used to document the use of this identification format. It is only for documentation purposes.
100 INPUT TRANSFORM TRANSFORM;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  This field contains MUMPS code that will be executed by the 'input transform' on the 'LONG ID(#.03)' field of the 'PATIENT ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file.
    The code will only be executed when the patient eligibility has this 'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the 'ELIGIBILITY CODE(#8)' file.
    The purpose of this field is to allow for id format specific input transform to be performed on the id entered by a user.
    The following variables are present when this code is executed:
    DA(1) - internal number of PATIENT file entry
    DA - internal number of PATIENT ELIGIBILITIES sub-file entry
    - also, since this sub-file is DINUMed, DA equals the
    internal file entry in the 'ELIGIBILITY CODE' file
    X - value of user input
300 DEFAULT LONG ID VALUE LOGIC LONG;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  This field contains MUMPS code that will be executed by the trigger cross reference(#3) on the 'ELIGIBILITY(#.01)' field of the 'PATIENT ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file. The code is the 'CREATE
    VALUE' for this trigger. This trigger is used to automatically stuff a value in the 'LONG ID(#.03) field.
    The code will only be executed when the 'ELIGIBILIITY(#.01)' field has this 'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the 'ELIGIBILITY CODE(#8)' file.
    The following variables are present when this code is executed:
    DA(1) - internal number of PATIENT file entry
    DA - internal number of PATIENT ELIGIBILITIES sub-file entry
    - also, since this sub-file is DINUMed, DA equals the
    internal file entry in the 'ELIGIBILITY CODE' file
    X - value of user input
400 SHORT ID TRANSFORM SHORT;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  NOV 07, 1989
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  This field contains MUMPS code that will be executed by the trigger cross reference(#3) on the 'LONG ID(#.03)' field of the 'PATIENT ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file. The code is the 'CREATE VALUE'
    for this trigger. This trigger is used to automatically stuff a value in the 'SHORT ID(#.04) field.
    The code will only be executed when the 'ELIGIBILIITY(#.01)' field has this 'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the 'ELIGIBILITY CODE(#8)' file.
    The following variables are present when this code is executed:
    DA(1) - internal number of PATIENT file entry
    DA - internal number of PATIENT ELIGIBILITIES sub-file entry
    - also, since this sub-file is DINUMed, DA equals the
    internal file entry in the 'ELIGIBILITY CODE' file
    X - value of user input

Found Entries, Total: 1

NAME: VA STANDARD    

External References

Name Field # of Occurrence
^DIM 1+1, 2+1, 4+1, 100+1, 300+1, 400+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(8.2 - [#8.2] .01(XREF 1S), .01(XREF 1K)
^DPT - [#2] 300(IEN:1)

Naked Globals

Name Field # of Occurrence
^(0 300(IEN:1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K)
>> DA(1 300(IEN:1)
U 300(IEN:1)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 4+1!, 100+1!, 300+1!, 300(IEN:1), 400+1!
, 400(IEN:1)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All