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 |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DG(408.43

Package: Registration

Global: ^DG(408.43


Information

FileMan FileNo FileMan Filename Package
408.43 PATIENT REGISTRATION ONLY REASON Registration

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Registration 2 ^DG(408.43    DGREG    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Registration 4 DGEN    DGENUPL2    DGREG    VAFHLZEN    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Registration 1 PATIENT ENROLLMENT(#27.11)[.15]    

Fields, Total: 3

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

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
    MAXIMUM LENGTH: 50
  • LAST EDITED:  OCT 08, 2020
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    This field contains a patient's self-reported Registration reason.
  • CROSS-REFERENCE:  408.43^B
    1)= S ^DG(408.43,"B",$E(X,1,30),DA)=""
    2)= K ^DG(408.43,"B",$E(X,1,30),DA)
.02 AVAILABILITY 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR REGISTER A PATIENT;
  • '2' FOR COLLATERAL OF PATIENT;
  • '3' FOR RECORD CREATED BY HEC;
  • '4' FOR VBA AUTO REGISTRATION;

  • LAST EDITED:  MAR 19, 2025
  • HELP-PROMPT:  Select the availability type for this record.
  • DESCRIPTION:  
    This field contains values that determine which records can be selected for different processes.
.03 CODE 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 09, 2020
  • HELP-PROMPT:  Type a number between 1 and 99, 0 decimal digits.
  • DESCRIPTION:  
    This field contains a code for Registration reason.
  • CROSS-REFERENCE:  408.43^C
    1)= S ^DG(408.43,"C",$E(X,1,30),DA)=""
    2)= K ^DG(408.43,"C",$E(X,1,30),DA)
    This cross-reference allows look-up by Code.

Found Entries, Total: 24

REASON: C&P DISABILITY BENEFITS EXAM    REASON: ACTIVE DUTY    REASON: SERVICE CONNECTED ONLY    REASON: EXPOSURE REGISTRY EXAM    REASON: RESEARCH    REASON: HUMANITARIAN/EMERGENCY    REASON: EMPLOYEE    REASON: BENEFICIARY    
REASON: OTHER THAN HONORABLE (OTH)    REASON: MARRIAGE/FAMILY COUNSELING    REASON: COLLATERAL (OTHER)    REASON: ART/IVF    REASON: NEWBORN    REASON: LEGISLATIVE MANDATE    REASON: OTHER    REASON: NORTH CHICAGO ACTIVE DUTY    
REASON: UNANSWERED    REASON: CAREGIVER    REASON: VHA TRANSPLANT PROGRAM    REASON: 4TH MISSION    REASON: CLINICAL EVALUATION    REASON: HUD-VASH    REASON: IMMUNIZATIONS    REASON: VBA - AUTO REGISTRATION    

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(408.43 - [#408.43] .01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("0" IDWRITE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K)
U IDWRITE+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .03+1!, .03(XREF 1S), .03(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All