Global: ^ADGDSI

Information

FileMan FileNo	FileMan Filename	Package
9009012.5	DS INCOMPLETE CHART	IHS Changes To ADT

Package	Total	Routines
IHS Changes To ADT	11	ADGCP ADGDSA ADGDSIP ADGICAL2 ADGICAL3 ADGT06 ADGT061 ADGT062 ADGT063 BDGF2 BDGPOST4
Registration	2	CHART DEFICIENCY PROVIDER
IHS Changes To Scheduling	1	ASDROUT2
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
IHS Changes To ADT	6	ADGDSA ADGPOST ADGT06 ADGT061 ADGT062 ADGT063

Package	Total	FileMan Files
IHS Changes To ADT	1	CHART DEFICIENCY-OLD(#9009013.5)[#9009012.5131(.01)]
IHS Patient	1	PATIENT(#9000001)[.01]
Kernel	1	NEW PERSON(#200)[#9009012.513(.01)]
Registration	1	FACILITY TREATING SPECIALTY(#45.7)[#9009012.51(5)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) INPUT TRANSFORM: `S DINUM=X Q` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009012.5^B` 1)= S ^ADGDSI("B",$E(X,1,30),DA)="" 2)= K ^ADGDSI("B",$E(X,1,30),DA)
1	SURGERY DATE	DT;0	DATE Multiple #9009012.51	9009012.51
2	HRCN		COMPUTED	MUMPS CODE: `S X=$S($D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),"^",2),1:"") S X=$J(X,0,0)` ALGORITHM: `S X=$S($D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),"^",2),1:"") (ALWAYS 0 DECIMAL DIGITS)`

NAME

0;1

POINTER TO PATIENT FILE (#9000001)

CROSS-REFERENCE: 9009012.5^B

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

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

1 SURGERY DATE DT;0 DATE Multiple #9009012.51 9009012.51

HRCN

COMPUTED

MUMPS CODE: S X=$S($D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),"^",2),1:"") S X=$J(X,0,0)
ALGORITHM: S X=$S($D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),"^",2),1:"") (ALWAYS 0 DECIMAL DIGITS)

Name	Line Occurrences (* Changed, ! Killed)
^ADGDSI("B"	.01(XREF 1S), .01(XREF 1K)
^AUPNPAT - [#9000001]	2+1

Name	Field # of Occurrence
^(0	2+1