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

This file contains the list of patients that have an active manual waiver at the time the Travel Claim.

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Beneficiary Travel	6	DGBTRDVW ^DGBT(392.7 ALTERNATE INCOME DGBT1 DGBTDW 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