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    DGOTHMST
DGOTHRP1    DGOTHRP2    DGOTHRP3    DGOTHRP5    DGOTHRP6    DGOTHRPT    DGOTHUT1    ELIGIBILITY CHANGES
OTH 365 DAY CLOCK    OTH 90 DAY CLOCK    ^DGOTH(33    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