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 |  Pointer To FileMan Files |  Fields |  ICR |  All
Print Page as PDF
Global: ^DGS(41.41

Package: Registration

Global: ^DGS(41.41


Information

FileMan FileNo FileMan Filename Package
41.41 PRE-REGISTRATION AUDIT Registration

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Registration 2 DGPREBJ1    DGRPD    
IHS Electronic Health Record 1 BEHOPTC1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Registration 1 DGPREP1    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[2]    
Registration 1 VA PATIENT(#2)[.01]    

Fields, Total: 3

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • LAST EDITED:  DEC 16, 1996
  • HELP-PROMPT:  Enter patient name in 'Last,First Middle' format [3-30 characters].
  • DESCRIPTION:  
    Pointer to the patient entry in the PATIENT FILE, #2.
  • CROSS-REFERENCE:  41.41^B
    1)= S ^DGS(41.41,"B",$E(X,1,30),DA)=""
    2)= K ^DGS(41.41,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  41.41^ADC^MUMPS
    1)= N DG1 S DG1=$P($G(^DGS(41.41,DA,0)),"^",2) I DG1 S ^DGS(41.41,"ADC",X,DG1,DA)=""
    2)= N DG1 S DG1=$P($G(^DGS(41.41,DA,0)),"^",2) I DG1 K ^DGS(41.41,"ADC",X,DG1,DA)
    Cross-reference by patient and date
1 DATE CHANGED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1997
  • HELP-PROMPT:  Enter date and time registration data was changed.
  • DESCRIPTION:  This is the date and time the patient file registration information was changed as a result of the pre-registration process. After editing a patients demographic data, the user will be asked if they want to Date/Stamp the
    pre-registration.  If they answer 'Yes', this field will be completed.  If they answer 'No', no entry will be made in this file.
  • CROSS-REFERENCE:  41.41^ADC1^MUMPS
    1)= N DG2 S DG2=$P($G(^DGS(41.41,DA,0)),"^") I DG2 S ^DGS(41.41,"ADC",DG2,X,DA)=""
    2)= N DG2 S DG2=$P($G(^DGS(41.41,DA,0)),"^") I DG2 K ^DGS(41.41,"ADC",DG2,X,DA)
    Cross-reference by patient and date
2 USER 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  DEC 09, 1996
  • HELP-PROMPT:  Enter the user making the pre-registration change.
  • DESCRIPTION:  
    User making the change to the patients registration information through the pre-registration option.  This is a pointer to the NEW PERSON File, #200.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4425
  • INTEGRATED BILLING
  • VA Point of Service
    		•  Cross-reference by patient and dateDGS(41.41,"ADC",PATIENT,DATE CHANGED,DA)
    ICR #5345
  • Fee Basis
    		•  Checking the validity of a pre-registration date using:S DGPDT="",DGPDT=$O(^DGS(41.41,"ADC",DFN,DGPDT),-1)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  All