Global: ^DGAM(334

FileMan FileNo	FileMan Filename	Package
42.6	AMIS 334-341	Registration

Directly Accessed By Routines, Total: 10

Package	Total	Routines
Registration	7	DGGECS ^DGAM(334 DGAINP DGAINP1 DGAINP2 DGAINP3 DGAINP4
Interim Management Support	2	ECTS334 ECTSBED
Pharmacy Benefits Management	1	PSUUD6

Package	Total	Routines
Interim Management Support	2	ECTS334 ECTSBED
Registration	2	DGAINP DGAINP3

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[#42.61(52)]
Registration	1	MEDICAL CENTER DIVISION(#40.8)[#42.61(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	AMIS MONTH/YEAR	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) X $S($E(X,6,7)'="00":"K X W !,""Do not specify day of month""",X>DT:"K X W !,""Must be a past date""",1:"") I $D(X) S DINUM=X` LAST EDITED: `OCT 16, 1990` HELP-PROMPT: `Month and year of report` DESCRIPTION: `AMIS Month/Year indicates the month and year that the AMIS report is being generated for. Inpatient AMIS reports cannot be generated prior to the End Of Month, and therefore will always have a set Month/Year indicator.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `42.6^B` `1)= S ^DGAM(334,"B",$E(X,1,30),DA)=""` `2)= K ^DGAM(334,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `42.6^ALST^MUMPS` `1)= K ^DGAM(334,"ALST") X "S DG1=X F %=X:0 S %=$N(^DGAM(334,%)) Q:%'>0 S DG1=%" S ^DGAM(334,"ALST",DG1)="" K DG1` `2)= K ^DGAM(334,"ALST") X "S DG1=0 F %=0:0 S %=$N(^DGAM(334,%)) Q:%'>0 S:%'=DA DG1=%" S:DG1 ^DGAM(334,"ALST",DG1)="" K DG1`
10	SEGMENT	SE;0	SET Multiple #42.6001	42.6001 DESCRIPTION: `The 'Segment' is the AMIS Segment number assigned to a particular report based on VA Manual MP6, Part VI, Supp. 1.2. In the case of this file, the AMIS Segment numbers are 334 through 341 series, and are for inpatient` `data collection activities.`

AMIS MONTH/YEAR

0;1

DATE

************************REQUIRED FIELD************************

INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) X $S($E(X,6,7)'="00":"K X W !,""Do not specify day of month""",X>DT:"K X W !,""Must be a past date""",1:"") I $D(X) S DINUM=X
LAST EDITED: OCT 16, 1990
HELP-PROMPT: Month and year of report
DESCRIPTION: AMIS Month/Year indicates the month and year that the AMIS report is being generated for. Inpatient AMIS reports cannot be generated prior to the End Of Month, and therefore will always have a set Month/Year indicator.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 42.6^B
1)= S ^DGAM(334,"B",$E(X,1,30),DA)=""
2)= K ^DGAM(334,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 42.6^ALST^MUMPS
1)= K ^DGAM(334,"ALST") X "S DG1=X F %=X:0 S %=$N(^DGAM(334,%)) Q:%'>0 S DG1=%" S ^DGAM(334,"ALST",DG1)="" K DG1
2)= K ^DGAM(334,"ALST") X "S DG1=0 F %=0:0 S %=$N(^DGAM(334,%)) Q:%'>0 S:%'=DA DG1=%" S:DG1 ^DGAM(334,"ALST",DG1)="" K DG1

SEGMENT

SE;0

SET Multiple #42.6001

DESCRIPTION: The 'Segment' is the AMIS Segment number assigned to a particular report based on VA Manual MP6, Part VI, Supp. 1.2. In the case of this file, the AMIS Segment numbers are 334 through 341 series, and are for inpatient
data collection activities.

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #4597	Pharmacy Benefits Management	SEGMENT (42.6001). Access: SEGMENT (.01). Access: Direct Global Read & w/Fileman DIVISION (42.61). Access: DIVISION (.01). Access: Direct Global Read & w/Fileman PATIENT DAYS OF CARE (12). Access: Direct Global Read & w/Fileman PATIENT DAYS OF CARE ( >45) (21). Access: Direct Global Read & w/Fileman

Name	Field # of Occurrence
^%DT	.01+1

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