Global: ^DGAM(345

FileMan FileNo	FileMan Filename	Package
42.7	AMIS 345&346	Registration

Directly Accessed By Routines, Total: 9

Package	Total	Routines
Registration	7	DGANHD DGANHD1 DGANHD2 ^DGAM(345 DGANHD3 DGANHD4 DGGECS
Interim Management Support	1	ECTS345
Pharmacy Benefits Management	1	PSUUD6

Package	Total	Routines
Registration	2	DGANHD DGANHD3
Interim Management Support	1	ECTS345

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

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	MONTH/YR	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 enter day of month""",X>DT:"K X W !,""Must be in past""",1:"") I $D(X) S DINUM=X` LAST EDITED: `OCT 24, 1985` DESCRIPTION: `Month and year the AMIS 345 and AMIS 346 (NHCU and DOM) reports have been generated for. These reports cannot be generated until after the last day of reporting cycle.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `42.7^B` `1)= S ^DGAM(345,"B",$E(X,1,30),DA)=""` `2)= K ^DGAM(345,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `42.7^ALST^MUMPS` `1)= K ^DGAM(345,"ALST") X "S DG1=X F %=X:0 S %=$N(^DGAM(345,%)) Q:%'>0 S DG1=%" S ^DGAM(345,"ALST",DG1)="" K DG1` `2)= K ^DGAM(345,"ALST") X "S DG1=0 F %=0:0 S %=$N(^DGAM(345,%)) Q:%'>0 S:%'=DA DG1=%" S:DG1 ^DGAM(345,"ALST",DG1)="" K DG1`
10	SEGMENT	SE;0	SET Multiple #42.701	42.701 DESCRIPTION: `Segment number is the number of the AMIS assigned per VA Manual MP6, Part VI, Supp. 1.2. AMIS 345 is for NHCU statistics and AMIS 346 is for Domiciliary statistics.`

MONTH/YR

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 enter day of month""",X>DT:"K X W !,""Must be in past""",1:"") I $D(X) S DINUM=X
LAST EDITED: OCT 24, 1985
DESCRIPTION:
Month and year the AMIS 345 and AMIS 346 (NHCU and DOM) reports have been generated for. These reports cannot be generated until after the last day of reporting cycle.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 42.7^B
1)= S ^DGAM(345,"B",$E(X,1,30),DA)=""
2)= K ^DGAM(345,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 42.7^ALST^MUMPS
1)= K ^DGAM(345,"ALST") X "S DG1=X F %=X:0 S %=$N(^DGAM(345,%)) Q:%'>0 S DG1=%" S ^DGAM(345,"ALST",DG1)="" K DG1
2)= K ^DGAM(345,"ALST") X "S DG1=0 F %=0:0 S %=$N(^DGAM(345,%)) Q:%'>0 S:%'=DA DG1=%" S:DG1 ^DGAM(345,"ALST",DG1)="" K DG1

SEGMENT

SE;0

SET Multiple #42.701

DESCRIPTION:
Segment number is the number of the AMIS assigned per VA Manual MP6, Part VI, Supp. 1.2. AMIS 345 is for NHCU statistics and AMIS 346 is for Domiciliary statistics.

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #4598	Pharmacy Benefits Management	SEGMENT (42.701). Access: SEGMENT (.01). Access: Direct Global Read & w/Fileman DIVISION (42.702). Access: DIVISION (.01). Access: Direct Global Read & w/Fileman PATIENT DAYS OF CARE (16). Access: Direct Global Read & w/Fileman

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

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