Global: ^DG(35.1

FileMan FileNo	FileMan Filename	Package
35.1	SHARING AGREEMENT CATEGORY	Registration

Package	Total	Routines
Registration	1	DGSAUTL

Package	Total	Routines
Registration	1	DGSAUTL

Package	Total	FileMan Files
Registration	2	SHARING AGREEMENT SUB-CATEGORY(#35.2)[.02] VA ADMITTING REGULATION(#43.4)[.01]
Scheduling	1	APPOINTMENT TYPE(#409.1)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	A/P	0;1	VARIABLE POINTER	**********************REQUIRED FIELD********************** VA ADMITTING REGULATION(#43.4) APPOINTMENT TYPE(#409.1) LAST EDITED: `JAN 17, 1997` HELP-PROMPT: `Enter the Appointment Type or Admitting Regulation.` CROSS-REFERENCE: `35.1^B` 1)= S ^DG(35.1,"B",$E(X,1,30),DA)="" 2)= K ^DG(35.1,"B",$E(X,1,30),DA) CROSS-REFERENCE: `35.1^AC^MUMPS` 1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3) 2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)
.02	CATEGORY	0;2	POINTER TO SHARING AGREEMENT SUB-CATEGORY FILE (#35.2)	SHARING AGREEMENT SUB-CATEGORY(#35.2) LAST EDITED: `JAN 17, 1997` CROSS-REFERENCE: `35.1^AE^MUMPS` 1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3) 2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)
.03	ACTIVE	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 17, 1997` HELP-PROMPT: `Please enter 1 for "Yes" and 0 for "No".` CROSS-REFERENCE: `35.1^AD^MUMPS` 1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3) 2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)

.01

A/P

0;1

VARIABLE POINTER

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

VA ADMITTING REGULATION(#43.4) APPOINTMENT TYPE(#409.1)

LAST EDITED: JAN 17, 1997
HELP-PROMPT: Enter the Appointment Type or Admitting Regulation.

CROSS-REFERENCE: 35.1^B

1)= S ^DG(35.1,"B",$E(X,1,30),DA)=""

2)= K ^DG(35.1,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 35.1^AC^MUMPS

1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)

2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)

.02

CATEGORY

0;2

POINTER TO SHARING AGREEMENT SUB-CATEGORY FILE (#35.2)

SHARING AGREEMENT SUB-CATEGORY(#35.2)

LAST EDITED: JAN 17, 1997

CROSS-REFERENCE: 35.1^AE^MUMPS

1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)

2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)

.03

ACTIVE

0;3

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JAN 17, 1997
HELP-PROMPT: Please enter 1 for "Yes" and 0 for "No".

CROSS-REFERENCE: 35.1^AD^MUMPS

1)= I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)

2)= K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),";",2)="DIC(43.4,":"AR",1:"AT"),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)

Customize PDF page

Package: Registration

Global: ^DG(35.1

Information

Description

Directly Accessed By Routines, Total: 1

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 3