Global: ^DGAM(345

FileMan FileNo	FileMan Filename	Package
42.7	AMIS 345&346	Registration

FileMan FileNo

FileMan Filename

Package

42.7

AMIS 345&346

Registration

Package	Total	Routines
Registration	6	DGANHD DGANHD1 DGANHD2 DGANHD3 DGANHD4 DGGECS
Pharmacy Benefits Management	1	PSUUD6

Package	Total	Routines
Registration	2	DGANHD DGANHD3

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

Fields, Total: 2

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.

.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

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.

ICR, Total: 1

Customize PDF page

Package: Registration

Global: ^DGAM(345

Information

Description

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 2

Fields, Total: 2

ICR, Total: 1