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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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: 14

Package Total Routines
Scheduling 9 SDEC09    SDES2BLDAPPT2    SDES2GETREGS    SDES2PATDATA    SDES2PATSEARCH    SDESGETREGA    SDESGETREGA1    SDESPATIENTDATA2
SDESPATSEARCH    
Registration 4 DGPREBJ1    DGPREPST    DGRPD    ^DGS(41.41    
Integrated Billing 1 IBJDIPR    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Scheduling 9 SDEC09    SDES2BLDAPPT2    SDES2GETREGS    SDES2PATDATA    SDES2PATSEARCH    SDESGETREGA    SDESGETREGA1    SDESPATIENTDATA2
SDESPATSEARCH    
Registration 2 DGPREP1    DGPREPST    
VA Point of Service 1 VPSRPC3    

Pointer To FileMan Files, Total: 2

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

Fields, Total: 3

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
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
  • Scheduling
    		•  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)

    External References

    Name Field # of Occurrence
    ^%DT 1+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGS(41.41 - [#41.41] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID1+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 1+1*
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K)
    DG1 .01(XREF 2S), .01(XREF 2K)
    DG2 1(XREF 1S), 1(XREF 1K)
    U ID1+1
    X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1*!, 1(XREF 1S), 1(XREF 1K)
    >> Y 1+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All