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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DGOTH(33

Package: Registration

Global: ^DGOTH(33


Information

FileMan FileNo FileMan Filename Package
33 OTH ELIGIBILITY PATIENT Registration

Description

Directly Accessed By Routines, Total: 29

Package Total Routines
Registration 29 DENIED REQUEST    DG53P1025    DG53P952    DGENELA1    DGENUPL5    DGENUPL8    DGOTHBTN    DGOTHD
DGOTHD1    DGOTHD2    DGOTHEL    DGOTHFS2    DGOTHFSM    DGOTHINQ    DGOTHMGT    DGOTHRP1
DGOTHRP3    DGOTHRP5    ELIGIBILITY CHANGES    ^DGOTH(33    DGOTHMST    DGOTHRP2    DGOTHRP6    DGOTHRPT
DGOTHUT1    OTH 365 DAY CLOCK    OTH 90 DAY CLOCK    VAFHLZE1    VAFHLZTE    

Accessed By FileMan Db Calls, Total: 16

Package Total Routines
Registration 16 DG53P1025    DGENUPL8    DGOTHBTN    DGOTHD2    DGOTHEL    DGOTHFS2    DGOTHFSM    DGOTHINQ
DGOTHMG1    DGOTHMGT    DGOTHRP1    DGOTHRP2    DGOTHRP3    DGOTHRP5    DGOTHUT1    VAFHLZE1

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Registration 2 ELIGIBILITY CODE(#8)[#33.02(.02)]    PATIENT(#2)[.01]    
Kernel 1 INSTITUTION(#4)[.06, #33.02(.05), #33.02(.07), #33.03(.06), #33.11(.08)]    

Fields, Total: 11

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

  • LAST EDITED:  MAY 29, 2019
  • HELP-PROMPT:  Select the patient with OTH eligibility clock.
  • DESCRIPTION:  
    Patient with OTH 90 DAYS ELIGIBILITY that receives mental health care in the VA facility.
  • TECHNICAL DESCR:  
    Pointer to the PATIENT file (#2).
  • CROSS-REFERENCE:  33^B
    1)= S ^DGOTH(33,"B",$E(X,1,30),DA)=""
    2)= K ^DGOTH(33,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^33^.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGOTH(33,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=0 S DIH=$G(^DGOTH(33,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=33,DIG=.07 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGOTH(33,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$G(^DGOTH(33,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=33,DIG=.07 D ^DICR
    CREATE VALUE)= S X=0
    DELETE VALUE)= @
    FIELD)= PENDING REQUEST?
    This trigger sets field .07 (PENDING REQUEST?) to default value of "NO".
.02 OTH STATUS 0;2 SET
  • '0' FOR INACTIVE;
  • '1' FOR ACTIVE;

  • LAST EDITED:  MAR 29, 2019
  • HELP-PROMPT:  Enter status of the OTH patient.
  • DESCRIPTION:  
    The current status of the OTH patient.
.03 PENDING AUTH REQ DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUN 27, 2019
  • HELP-PROMPT:  Enter submission date for this pending authorization request.
  • DESCRIPTION:  
    Date of pending authorization request submission.
  • TECHNICAL DESCR:  
    This field should be populated only if "PENDING REQUEST?" field (.07) is set to "YES".
.04 PENDING REQUEST ENTERED BY 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<5) X
    MAXIMUM LENGTH: 60
  • LAST EDITED:  MAY 07, 2019
  • HELP-PROMPT:  Answer must be 5-60 characters in length.
  • DESCRIPTION:  
    The user who entered pending request for this patient.
.05 PENDING AUTH SYS DATE/TIME 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUN 27, 2019
  • HELP-PROMPT:  Enter date and time when pending request was entered or edited.
  • DESCRIPTION:  
    Date and time when pending request was entered or edited.
.06 PENDING AUTH REQUEST FACILITY 0;6 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAY 29, 2019
  • HELP-PROMPT:  Select the facility where this pending request was entered.
  • DESCRIPTION:  
    Facility where this pending request was entered.
.07 PENDING AUTH REQUEST (Y/N) 0;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 29, 2019
  • HELP-PROMPT:  Set this to 'YES' if there is a pending authorization request for this patient.
  • DESCRIPTION:  
    Setting this field to 'YES' indicates that there's an existing pending authorization request for this patient.
  • NOTES:  TRIGGERED by the OTH PATIENT field of the OTH ELIGIBILITY PATIENT File
  • FIELD INDEX:  C (#1564) REGULAR IR LOOKUP & SORTING
    Short Descr: Index on field .07
    Description: Index on 'PENDING REQUEST?' field.
    Set Logic: S ^DGOTH(33,"C",X,DA)=""
    Kill Logic: K ^DGOTH(33,"C",X,DA)
    Whole Kill: K ^DGOTH(33,"C")
    X(1): PENDING AUTH REQUEST (Y/N) (33,.07) (Subscr 1) (forwards)
.08 PEND AUTH CREATION DATE/TIME 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 04, 2019
  • HELP-PROMPT:  Enter date/time when pending request was created
  • DESCRIPTION:  
    Date / time when pending request was created. Used as unique identifier by Enrollment System.
1 OTH 365 DAY CLOCK 1;0 Multiple #33.01 33.01

  • LAST EDITED:  MAY 29, 2019
  • DESCRIPTION:  
    This multiple contains data for tracking 365 days clock status.
2 ELIGIBILITY CHANGES 2;0 DATE Multiple #33.02 33.02

  • DESCRIPTION:  
    This multiple contains history of OTH eligibility changes.
3 DENIED REQUEST 3;0 Multiple #33.03 33.03

  • LAST EDITED:  MAY 29, 2019
  • DESCRIPTION:  
    This multiple contains authorization requests that have been disapproved.
  • INDEXED BY:  DATE REQUEST SUBMITTED (C)

External References

Name Field # of Occurrence
^%DT .03+1, .05+1, .08+1
^DICR .01(XREF 2S), .01(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGOTH(33 - [#33] IXCSL+1*, IXCKL+1!, IXCKEIC+1!, IXDSL+1*, IXDKL+1!, IXDKEIC+1!, IXESL+1*, IXEKL+1!, IXEKEIC+1!, IXFSL+1*
, IXFKL+1!, IXFKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .05+1*, .08+1*
>> D0 .01(XREF 2S), .01(XREF 2K)
>> DA IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, IXESL+1, IXEKL+1, IXFSL+1, IXFKL+1, .01(XREF 1S), .01(XREF 1K)
, .01(XREF 2S), .01(XREF 2K)
>> DA(1 IXDSL+1, IXDKL+1, IXESL+1, IXEKL+1, IXFSL+1, IXFKL+1
>> DA(2 IXDSL+1, IXDKL+1
>> DIG .01(XREF 2S), .01(XREF 2K)
>> DIH .01(XREF 2S), .01(XREF 2K)
>> DIU .01(XREF 2S), .01(XREF 2K)
DIV .01(XREF 2S), .01(XREF 2K)
DIV(0 .01(XREF 2S), .01(XREF 2K)
U .01(XREF 2S), .01(XREF 2K)
X IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, IXESL+1, IXEKL+1, IXFSL+1, IXFKL+1, .01(XREF 1S), .01(XREF 1K)
, .01(XREF 2S), .01(XREF 2K), .03+1*!, .04+1!, .05+1*!, .08+1*!
Y .01(XREF 2S), .01(XREF 2K), .03+1, .05+1, .08+1
Y(1 .01(XREF 2S), .01(XREF 2K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All