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: ^DGMT(408.41

Package: Registration

Global: ^DGMT(408.41

Information

FileMan FileNo	FileMan Filename	Package
408.41	MEANS TEST CHANGES	Registration

Description

The MEANS TEST CHANGES file is a file which tracks certain types of actions to a means test. Such actions which lead to an entry in this file are adding a means test, edits to a means test, changing a means test category, adjudicating a means test. Entries are automatically added to this file as an event to an action on a means test. A deletion of a means test will result in the deletion of any changes previously recorded in this file for the patient and date of means test being deleted.

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Registration	3	DGMTAUD DGMTAUD2 ^DGMT(408.41
Income Verification Match	2	IVMCMD IVMUM8
Enrollment Application System	1	EASUM8

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Registration	1	DGMTAUD

Pointer To FileMan Files, Total: 6

Package	Total	FileMan Files
Registration	3	MEANS TEST CHANGES TYPE(#408.42)[.02] INCOME PERSON(#408.13)[.1] PATIENT(#2)[.04]
Enrollment Application System	2	TYPE OF TEST(#408.33)[.019] ANNUAL MEANS TEST(#408.31)[.03]
Kernel	1	NEW PERSON(#200)[.07]

Fields, Total: 11

Field #	Name	Loc	Type	Details
.01	DATE OF CHANGE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 11, 1992` HELP-PROMPT: `Enter the date/time a change was made to a means test.` DESCRIPTION: `Date change was made to a means test in file 408.31.` CROSS-REFERENCE: `408.41^B` `1)= S ^DGMT(408.41,"B",$E(X,1,30),DA)=""` `2)= K ^DGMT(408.41,"B",$E(X,1,30),DA)`
.019	TYPE OF TEST	0;19	POINTER TO TYPE OF TEST FILE (#408.33)	**********************REQUIRED FIELD********************** TYPE OF TEST(#408.33) LAST EDITED: `DEC 30, 1992` HELP-PROMPT: `Enter the type of test associated with the financial test change.` DESCRIPTION: `This field is a pointer to the type of test file, 408.33.` CROSS-REFERENCE: `408.41^AM2^MUMPS` `1)= S:$P(^DGMT(408.41,DA,0),U,3)&($P(^(0),U,4)) ^DGMT(408.41,"AM",X,+$P(^(0),U,4),+$P(^(0),U,3),DA)=""` `2)= K ^DGMT(408.41,"AM",X,+$P(^DGMT(408.41,DA,0),U,4),+$P(^(0),U,3),DA)` `Sets AM cross-reference - fields involved are Type of Test (.019), Patient (.04) and Means Test (.03).`
.02	TYPE OF CHANGE	0;2	POINTER TO MEANS TEST CHANGES TYPE FILE (#408.42)	**********************REQUIRED FIELD********************** MEANS TEST CHANGES TYPE(#408.42) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 11, 1992` HELP-PROMPT: `Enter the type of change for the means test.` DESCRIPTION: `The Type of Change field identifies the reason why an entry was made into this file.` SCREEN: `S DIC("S")="I '$P(^(0),U,2)"` EXPLANATION: `Screen out those change types which have been inactivated.`
.03	MEANS TEST	0;3	POINTER TO ANNUAL MEANS TEST FILE (#408.31)	**********************REQUIRED FIELD********************** ANNUAL MEANS TEST(#408.31) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^DGMT(408.41,D0,0),U,4)=$P(^DGMT(408.31,Y,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 26, 1993` HELP-PROMPT: `Enter the means test which was changed.` DESCRIPTION: `This field contains the means test which was acted upon.` SCREEN: `S DIC("S")="I $D(D0),$P(^DGMT(408.41,D0,0),U,4)=$P(^DGMT(408.31,Y,0),U,2)"` EXPLANATION: `Display all means tests for a patient` CROSS-REFERENCE: `408.41^D` `1)= S ^DGMT(408.41,"D",$E(X,1,30),DA)=""` `2)= K ^DGMT(408.41,"D",$E(X,1,30),DA)` `Regular cross-reference for look-up/sort by means test date` CROSS-REFERENCE: `408.41^AM1^MUMPS` `1)= S:$P(^DGMT(408.41,DA,0),U,4)&$P(^(0),U,19) ^DGMT(408.41,"AM",+$P(^(0),U,19),+$P(^(0),U,4),X,DA)=""` `2)= K ^DGMT(408.41,"AM",+$P(^DGMT(408.41,DA,0),U,19),+$P(^(0),U,4),X,DA)` `Sets AM cross-reference - fields involved are Type of Test (.019), Patient (.04) and Means Test (.03).`
.04	PATIENT	0;4	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `JAN 26, 1993` HELP-PROMPT: `Enter the patient associated with the changed means test.` DESCRIPTION: `This field contains the patient associated with the means test.` CROSS-REFERENCE: `408.41^C` `1)= S ^DGMT(408.41,"C",$E(X,1,30),DA)=""` `2)= K ^DGMT(408.41,"C",$E(X,1,30),DA)` `Regular cross-reference for look-up/sort by patient` CROSS-REFERENCE: `408.41^AM^MUMPS` `1)= S:$P(^DGMT(408.41,DA,0),U,3)&($P(^(0),U,19)) ^DGMT(408.41,"AM",+$P(^(0),U,19),X,+$P(^(0),U,3),DA)=""` `2)= K ^DGMT(408.41,"AM",+$P(^DGMT(408.41,DA,0),U,19),X,+$P(^(0),U,3),DA)` `Sets AM cross-reference - fields involved are Type of Test (.019), Patient (.04) and Means Test (.03).`
.05	OLD VALUE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `APR 01, 1992` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This field contains the value of the means test category, prior to its change in the ANNUAL MEANS TEST file (# 408.31).`
.06	NEW VALUE	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `APR 01, 1992` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This field contains the value of the means test category, after its change in the ANNUAL MEANS TEST file (# 408.31).`
.07	EDITED BY	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 11, 1992` HELP-PROMPT: `Enter the name of the user who edited the means test.` DESCRIPTION: `This field contains the name of the person who entered/updated the means test.`
.08	OLD SOURCE OF INCOME TEST	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 10, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the source of income test prior to its change in the ANNUAL MEANS TEST file (# 408.31).`
.09	NEW SOURCE OF INCOME TEST	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 10, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the source of income test after its change in the ANNUAL MEANS TEST file (# 408.31).`
.1	INCOME PERSON	0;10	POINTER TO INCOME PERSON FILE (#408.13)	INCOME PERSON(#408.13) LAST EDITED: `DEC 20, 1994` HELP-PROMPT: `Enter an Income Person` DESCRIPTION: `This field will hold the pointer value of the dependent when a name, DOB, SSN or SEX change is audited.`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #1188	Income Verification Match	MEANS TEST (.03). Access: Direct Global Read & w/Fileman INCOME PERSON (.1). Access: Direct Global Read & w/Fileman	When all records for the specific Means Test are found,then a check of the income person field can be done.When an IVM Means Test is deleted, any demographicentries in this file must be restored to 408.12 & 408.13.

External References

Name	Field # of Occurrence
^%DT	.01+1
^DIC	.02+1, .03+1
Y^DIQ	ID.03+1, ID.04+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	ID.04+1
^DD(408.31	ID.03+1
^DGMT(408.31 - [#408.31]	ID.03+1
^DGMT(408.41 - [#408.41]	.01(XREF 1S), .01(XREF 1K), .019(XREF 1S), .019(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K) , .04(XREF 2S), .04(XREF 2K)
^DPT - [#2]	ID.04+1

Naked Globals

Name	Field # of Occurrence
^(0	ID.03+1, ID.04+1, .019(XREF 1S), .019(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 2S), .04(XREF 2K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
%I	ID.03+1!, ID.04+1!
>> C	ID.03+1, ID.04+1
>> DA	.01(XREF 1S), .01(XREF 1K), .019(XREF 1S), .019(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K) , .04(XREF 2S), .04(XREF 2K)
DIC	ID.03+1, ID.04+1, .02+1!, .03+1!
DIC("S"	.02+1, .02SCR+1, .03+1, .03SCR+1
>> DIE	.02+1, .03+1
U	ID.03+1, ID.04+1, .019(XREF 1S), .019(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 2S), .04(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .019(XREF 1S), .019(XREF 1K), .02+1!, .03+1*!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S) , .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05+1!, .06+1!, .08+1!, .09+1!
>> Y	ID.03+1, ID.04+1, .01+1, .02+1, .03+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