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 |  Local Variables  | All
Print Page as PDF
Global: ^DGBT(392.7

Package: Beneficiary Travel

Global: ^DGBT(392.7


Information

FileMan FileNo FileMan Filename Package
392.7 BENEFICIARY TRAVEL MANUAL DEDUCTIBLE WAIVER Beneficiary Travel

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Beneficiary Travel 6 DGBT1    ^DGBT(392.7    ALTERNATE INCOME    DGBTDW    DGBTRDVW    DGBTUTL    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Beneficiary Travel 3 DGBT1    DGBTDW    DGBTRDVW    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[4, 6, 98]
Registration 1 PATIENT(#2)[2]    

Fields, Total: 12

Field # Name Loc Type Details
.01 WAIVER REQUEST DATE AND TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X
  • LAST EDITED:  AUG 10, 2012
  • HELP-PROMPT:  Type a date between 30 days before CURRENT DATE and CURRENT DATE.
  • DESCRIPTION:  
    This is the date/time of the waiver request.
  • TECHNICAL DESCR:  
    Date checks are done in the routine.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  392.7^B
    1)= S ^DGBT(392.7,"B",$E(X,1,30),DA)=""
    2)= K ^DGBT(392.7,"B",$E(X,1,30),DA)
2 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  AUG 08, 2012
  • HELP-PROMPT:  Select the patient.
  • DESCRIPTION:  
    This is the patient to whom the waiver pertains.
    UNEDITABLE
  • CROSS-REFERENCE:  392.7^C
    1)= S ^DGBT(392.7,"C",$E(X,1,30),DA)=""
    2)= K ^DGBT(392.7,"C",$E(X,1,30),DA)
3 WAIVER STATUS 0;3 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 08, 2012
  • HELP-PROMPT:  Is the Waiver Authorized?
  • DESCRIPTION:  
    This indicates whether or not the waiver is authorized.
4 GRANTED/DENIED BY 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  AUG 08, 2012
  • HELP-PROMPT:  Select the person who decided the waiver status.
  • DESCRIPTION:  
    This is the person who granted/denied the waiver.
5 WAIVER APPROVAL/DENIAL DATE 0;5 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 08, 2012
  • HELP-PROMPT:  Enter date travel waiver was approved or denied.
  • DESCRIPTION:  
    This is the date the travel waiver was approved or denied.
6 WAIVER ENTERED BY 0;6 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  AUG 08, 2012
  • HELP-PROMPT:  This is the person who entered the waiver status.
  • DESCRIPTION:  
    Select the person who entered the waiver status.
    UNEDITABLE
7 WAIVER REMARKS RMK;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>235!($L(X)<3) X
  • LAST EDITED:  AUG 08, 2012
  • HELP-PROMPT:  Answer must be 3-235 characters in length.
  • DESCRIPTION:  
    This field contains user remarks about why the waiver was approved or denied.
8 EXPIRATION DATE 0;7 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 10, 2012
  • HELP-PROMPT:  Enter the date the waiver expires.
  • DESCRIPTION:  
    This is the date the waiver will expire. The expiration date will be set without user intervention.
9 DATE ENTERED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 08, 2012
  • HELP-PROMPT:  Entered without user intervention.
  • DESCRIPTION:  
    This is the date the record was added to the file. It is set by the system. This cannot be changed except by programmer.
97 DELETION DATE DEL;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 24, 2012
  • HELP-PROMPT:  Enter the date the manual request was deleted.
  • DESCRIPTION:  
    This is the date the manual waiver request was deleted. This field is set by a routine.
98 WAIVER DELETED BY DEL;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  AUG 24, 2012
  • HELP-PROMPT:  Select the person who deleted the waiver request.
  • DESCRIPTION:  
    This is the person who deleted the waiver request.
99 DELETION REMARKS DEL;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<3) X
  • LAST EDITED:  AUG 20, 2012
  • HELP-PROMPT:  Answer must be 3-100 characters in length.
  • DESCRIPTION:  
    This field contains remarks about why the waiver was deleted.

External References

Name Field # of Occurrence
^%DT .01+1, 5+1, 8+1, 9+1, 97+1

Global Variables Directly Accessed

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 5+1*, 8+1*, 9+1*, 97+1*
>> DA .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K)
>> DINUM .01+1*
X .01+1*!, .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 5+1*!, 7+1!, 8+1*!, 9+1*!, 97+1*!
, 99+1!
>> Y .01+1, 5+1, 8+1, 9+1, 97+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All