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.

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

Package	Total	Routines
Registration	1	DGMTAUD

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, .01+1
^DIC	.02+1, .03+1, .02+1, .03+1
Y^DIQ	ID.03+1, ID.04+1, ID.03+1, ID.04+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	\|dd408.13
^DD(	\|dd301.501, \|dd350, \|dd408.31
^DD(2	ID.04+1, \|dd408.41, ID.04+1
^DD(301.501	\|dd301.501
^DD(301.511	\|dd301.511
^DD(350	\|dd350
^DD(408.13	\|dd408.13
^DD(408.31	ID.03+1, \|dd408.31, \|dd408.41, ID.03+1
^DD(408.32	\|dd408.31
^DD(408.33	\|dd408.31
^DD(408.34	\|dd408.31
^DG(408.32 - [#408.32]	\|dd408.31
^DG(408.33 - [#408.33]	\|dd408.31
^DG(408.34 - [#408.34]	\|dd408.31, \|dd408.34*!
^DGMT(408.31 - [#408.31]	ID.03+1, \|dd408.31!, \|dd408.31!, \|dd408.31*!, \|dd408.41, 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), \|dd408.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)
^DGPR(408.13 - [#408.13]	\|dd408.13*!
^DPT - [#2]	ID.04+1, \|dd408.41, ID.04+1
^HL(771.3 - [#771.3]	\|dd301.501
^IB - [#350]	\|dd350, \|dd350, \|dd350
^IB("ABIL"	\|dd350*!
^IB("AC"	\|dd350*!
^IB("ACT"	\|dd350*!
^IB("ACVA"	\|dd350*!
^IB("AD"	\|dd350*!
^IB("AE"	\|dd350*!
^IB("AF"	\|dd350*!
^IB("AFDT"	\|dd350*!
^IB("AH"	\|dd350*!
^IB("AHDT"	\|dd350*!
^IB("AI"	\|dd350*!
^IB("AJ"	\|dd350*!
^IB("APDT"	\|dd350*!
^IB("APTDT"	\|dd350*!
^IB("AT"	\|dd350*!
^IB("B"	\|dd350*!
^IB("C"	\|dd350*!
^IB("D"	\|dd350*!
^IBE(350.1 - [#350.1]	\|dd350
^IBE(350.21 - [#350.21]	\|dd350
^IVM(301.5 - [#301.5]	\|dd301.5!, \|dd301.501!, \|dd301.511*!
^IVM(301.6 - [#301.6]	\|dd301.6!, \|dd301.6!
^IVM(301.61 - [#301.61]	\|dd301.61*!
^IVM(301.9 - [#301.9]	\|dd301.9!, \|dd301.9001!
^IVM(301.91 - [#301.91]	\|dd301.91*!
^IVM(301.92 - [#301.92]	\|dd301.92*!
^IVM(301.93 - [#301.93]	\|dd301.93*!
^ORD(101 - [#101]	\|ptcl
^TMP("IVMERR"	\|list
^TMP("IVMLST"	\|list
^TMP("IVMNONUP"	\|list
^TMP("IVMUPLOAD"	\|list
^UTILITY("DGPM"	\|ptcl

Naked Globals

Name	Field # of Occurrence
^("PRIM"	\|dd408.31
^(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), \|dd301.5, \|dd301.501* , \|dd301.511, \|dd301.6, \|dd301.9001, \|dd301.91, \|dd350, \|dd408.13, \|dd408.31, \|dd408.31, \|dd408.41, ID.03+1 , ID.04+1, .019(XREF 1S), .019(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 2S), .04(XREF 2K)
^(1	\|dd350*
^(24	\|ptcl

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	\|dd350~
>> %DT	.01+1, \|dd301.5, \|dd301.501, \|dd301.511, \|dd301.6, \|dd301.61, \|dd301.9, \|dd301.9001, \|dd350, \|dd408.13 , \|dd408.31, \|dd408.41, .01+1*
>> %DT(0	\|dd408.31*
%H	\|dd350~
%I	ID.03+1!, ID.04+1!, \|dd350~, \|dd408.31!, \|dd408.41!, ID.03+1!, ID.04+1!
>> C	ID.03+1, ID.04+1, \|dd408.31, \|dd408.41, ID.03+1, ID.04+1
>> D0	\|dd301.501, \|dd301.511, \|dd350, \|dd408.13, \|dd408.31*
>> D1	\|dd301.501, \|dd301.511
>> D2	\|dd301.511*
>> 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), \|dd301.5, \|dd301.501, \|dd301.511, \|dd301.6, \|dd301.6, \|dd301.61, \|dd301.9, \|dd301.9001 , \|dd301.91, \|dd301.92, \|dd301.93, \|dd350, \|dd350, \|dd350, \|dd408.13, \|dd408.13, \|dd408.31, \|dd408.31 , \|dd408.31, \|dd408.34, \|dd408.41, \|ptcl, .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)
>> DA(1	\|dd301.501, \|dd301.511, \|dd301.9001, \|ptcl
>> DA(2	\|dd301.511
>> DATA(	\|dd301.6
>> DFN	\|ptcl
DG20NAME	\|dd408.13*!
>> DGMTACT	\|dd408.31
>> DGMTYPT	\|dd408.31
DIC	ID.03+1, ID.04+1, .02+1!, .03+1!, \|dd408.31!, \|dd408.41!, ID.03+1, ID.04+1, .02+1!, .03+1!
DIC("S"	.02+1, .02SCR+1, .03+1, .03SCR+1, \|dd408.31, \|dd408.41, .02+1, .02SCR+1, .03+1, .03SCR+1
>> DIE	.02+1, .03+1, \|dd408.31, \|dd408.41, .02+1, .03+1
>> DIG	\|dd301.501, \|dd301.511, \|dd350, \|dd408.13, \|dd408.31*
>> DIH	\|dd301.501, \|dd301.511, \|dd350, \|dd408.13, \|dd408.31*
>> DIU	\|dd301.501, \|dd301.511, \|dd350, \|dd408.13, \|dd408.31*
DIV	\|dd301.501!, \|dd301.511!, \|dd350!, \|dd408.13!, \|dd408.31*!
DIV(0	\|dd301.501, \|dd301.511, \|dd350, \|dd408.13, \|dd408.31*
DIV(1	\|dd301.501, \|dd301.511
DIV(2	\|dd301.511*
DT	\|dd408.13
DUZ	\|dd350
>> I	\|dd408.13*
>> I(0	\|dd301.501*
>> I(1	\|dd301.501*
>> IBDUZ	\|dd350
IVMX	\|dd408.13*!
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), \|dd301.5, \|dd301.501 , \|dd301.511, \|dd301.6, \|dd301.91, \|dd350, \|dd350, \|dd408.13, \|dd408.31, \|dd408.31, \|dd408.41, 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!, \|dd301.5! , \|dd301.5!, \|dd301.501!, \|dd301.511!, \|dd301.6!, \|dd301.6!, \|dd301.61!, \|dd301.9!, \|dd301.9001!, \|dd301.91!, \|dd301.92! , \|dd301.93!, \|dd350!, \|dd350!, \|dd350!, \|dd350!, \|dd408.13!, \|dd408.13!, \|dd408.31!, \|dd408.31!, \|dd408.31! , \|dd408.34!, \|dd408.41!, .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, \|dd301.5, \|dd301.501!, \|dd301.511!, \|dd301.6, \|dd301.61 , \|dd301.9, \|dd301.9001, \|dd350!, \|dd408.13!, \|dd408.31!, \|dd408.41, ID.03+1, ID.04+1*, .01+1, .02+1 , .03+1
Y(0	\|dd350, \|dd408.13, \|dd408.31*
Y(1	\|dd301.501, \|dd301.511, \|dd350, \|dd408.13, \|dd408.31*
Y(101	\|dd301.501*
Y(2	\|dd408.31*
Y(3	\|dd408.31*

Customize PDF page

Package: Registration

Global: ^DGMT(408.41

Information

Description

Directly Accessed By Routines, Total: 9

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 6

Fields, Total: 11

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: