Global: ^ACM(41

FileMan FileNo	FileMan Filename	Package
9002241	CMS REGISTER	Case Management System

Package	Total	Routines
Diabetes Registry	108	BDMD01 BDMD010 BDMD01E BDMD11 BDMD110 BDMD11E BDMD20 BDMD21 BDMD31 BDMD41 BDMD410 BDMD41E BDMD51 BDMD510 BDMD51E BDMD61 BDMD610 BDMD61E BDMD71 BDMD710 BDMD71E BDMD81 BDMD810 BDMD81E BDMD91 BDMD910 BDMD91E BDMD99 BDMDA1 BDMDA10 BDMDA1E BDMDB1 BDMDB10 BDMDB1E BDMDC1 BDMDC10 BDMDC1E BDMDD1 BDMDD10 BDMDD1E BDMDE1 BDMDE10 BDMDE1E BDMDF1 BDMDF10 BDMDF1E BDMDG1 BDMDG10 BDMDG1E BDMDG1Y BDMDM6 BDMDMAP BDMDMAS BDMDMNC BDMDMSM BDMDR1 BDMDR2 BDMDR3 BDMDR4 BDMDR5 BDMDR6 BDMFUTIL BDMGE BDMGRA BDMGRB BDMGRC BDMGRD BDMGRE BDMGRF BDMGRG BDMGRH BDMGRI BDMGRJ BDMGU BDMGUA BDMGUB BDMLET BDMLLT BDMP01 BDMP11 BDMP41 BDMP51 BDMP61 BDMP71 BDMP81 BDMP91 BDMPA1 BDMPB1 BDMPC1 BDMPD1 BDMPE1 BDMPF1 BDMPG1 BDMPOST BDMPPDT BDMRMC BDMRML BDMS9B1 BDMS9D1 BDMSELFM BDMTRANS BDMVRL2 BDMVRL3 BDMVRL4 BDMVRL43 BDMVRL5 BDMVRL6 BDMVRL8
Patient Care Component Reports	31	APCLD20 APCLD21 APCLD31 APCLD51 APCLD510 APCLD51E APCLD61 APCLD610 APCLD61E APCLD71 APCLD710 APCLD71E APCLD81 APCLD810 APCLD81E APCLD99 APCLDM6 APCLDMAP APCLDMAS APCLDMNC APCLDMSM APCLDR1 APCLDR2 APCLDR3 APCLLT APCLP51 APCLP61 APCLP71 APCLP81 APCLVL1 APCLW11
Case Management System	25	ACMADDM ACMADDP ACMADDR ACMDALLR ACMDELPT ACMDELRG ACMFIX ACMGTP ACMLPAT ACMPOST ACMPPDT ACMPPDTX ACMPSTFX ACMRAGE ACMRALL ACMRCH ACMRCH1 ACMRCMT ACMRDEM ACMRL1 ACMRLF ACMRLP ACMRNT ACMRRG ACMTRANS
Patient Care Component	4	APCDEREG APCHS APCHS9B1 APCHS9D1
Health Summary Components	3	BHSDEM BHSDM1 BHSDMPRE
Clinical Scheduling for Windows	1	BSDX41A
IHS Changes To Scheduling	1	BSDU1
Local Area Programs	1	AZAXDPM1
PCC Medical Query	1	AMQQREG
PCC New Encounter Form	1	VENPCC1L
Taxonomy	1	ATXPOV
iCare	1	BQIPTREG

Package	Total	Routines
Case Management System	15	ACMADDM ACMADDP ACMAPP1 ACMAPPT ACMDALLR ACMDELPT ACMDELRG ACMEP ACMGTP1 ACMLCMS ACMLPAT ACMPLAN ACMPOST ACMPSTFX ACMTRANS
Diabetes Registry	13	BDMDR5 BDMDR6 BDMGUA BDMGUB BDMPOST BDMRML BDMTRANS BDMVRL BDMVRL2 BDMVRL3 BDMVRL4 BDMVRL5 BDMVRL8
iCare	2	BQIPTREG BQIRGACM
Patient Care Component	1	APCDEREG

Package	Total	FileMan Files
Case Management System	14	CMS REGISTER(#9002241)[.011] CMS COMPLICATION FOR THE CLIENT(#9002242)[.03] CMS INTERVENTION PLAN(#9002243)[.03] CMS DIAGNOSIS FOR THE CLIENT(#9002244)[.03] CMS RISK FACTOR FOR THE CLIENT(#9002245)[.03] CMS FAMILY MEMBERS(#9002246)[.03] CMS SERVICE FOR THE CLIENT(#9002247)[.03] CMS CARE PLAN FOR THE CLIENT(#9002248)[.03] CMS APPOINTMENT(#9002249)[.03] CMS REGISTER CRITERIA FOR THE CLIENT(#9002251)[.03] *CMS DIAGNOSTIC MODIFIERS(#9002251.2)[.02] CMS ETIOLOGY FOR THIS CLIENT(#9002253)[.03] CMS MEDICATIONS FOR THE CLIENT(#9002254)[.03] CMS MEASUREMENT(#9002257)[.03]

Package	Total	FileMan Files
Case Management System	3	CMS REGISTER(#9002241)[.011] CMS REGISTER TYPE(#9002241.1)[.01] *CMS DIAGNOSTIC MODIFIERS(#9002251.2)[22]
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	NEW PERSON(#200)[6, 7, 15]
Utility Tables	1	LOCATION(#9999999.06)[10]

Fields, Total: 29

Field #	Name	Loc	Type	Details
.01	REGISTER	0;1	POINTER TO CMS REGISTER TYPE FILE (#9002241.1)	**********************REQUIRED FIELD********************** CMS REGISTER TYPE(#9002241.1) LAST EDITED: `OCT 03, 2005` CROSS-REFERENCE: `9002241^B` 1)= S ^ACM(41,"B",$E(X,1,30),DA)="" 2)= K ^ACM(41,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002241^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACM(41,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P($G(^ACM(41.1,+DIV,0)),U) S DIH=$G(^ACM(41,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9002241,DIG=.05 D ^ DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACM(41,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002241,.01,1,2,2.1) S DIH=$G(^ACM(41,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9002241,DIG=.05 D ^DICR 2.1)= S X=DIV S Y(1)=$S($D(^ACM(41,D0,0)):^(0),1:"") S X=$P($G(^ACM(41.1,+$P(Y(1),U,1),0)),U) CREATE VALUE)= #.01 DELETE VALUE)= #.01 FIELD)= #.05
.011	PARENT REGISTER	UP;1	POINTER TO CMS REGISTER FILE (#9002241)	CMS REGISTER(#9002241) LAST EDITED: `AUG 17, 1989`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `SEP 27, 1994` CROSS-REFERENCE: `9002241^C` 1)= S ^ACM(41,"C",$E(X,1,30),DA)="" 2)= K ^ACM(41,"C",$E(X,1,30),DA) CROSS-REFERENCE: `9002241^D^MUMPS` 1)= S ^ACM(41,"D",$P(^ACM(41,DA,0),U,2),$P(^ACM(41,DA,0),U))="" 2)= K ^ACM(41,"D",$P(^ACM(41,DA,0),U,2),$P(^ACM(41,DA,0),U)) CROSS-REFERENCE: `9002241^AC^MUMPS` 1)= S ^ACM(41,"AC",$P(^ACM(41,DA,0),U,2),$P(^ACM(41,DA,0),U))=DA 2)= K ^ACM(41,"AC",$P(^ACM(41,DA,0),U,2),$P(^ACM(41,DA,0),U))
.05	NAME OF REGISTER	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 27, 1991` HELP-PROMPT: `Answer must be 3-30 characters in length.` NOTES: `TRIGGERED by the REGISTER field of the CMS REGISTER File`
1	STATUS	DT;1	SET	**********************REQUIRED FIELD********************** 'A' FOR ACTIVE; 'I' FOR INACTIVE; 'T' FOR TRANSIENT; 'U' FOR UNREVIEWED; 'D' FOR DECEASED; 'N' FOR NON-IHS; 'L' FOR LOST TO FOLLOW-UP; 'NON' FOR NONCOMPLIANT; LAST EDITED: `SEP 03, 2003` CROSS-REFERENCE: `9002241^ST` 1)= S ^ACM(41,"ST",$E(X,1,30),DA)="" 2)= K ^ACM(41,"ST",$E(X,1,30),DA)
2	ACTIVATION DATE	DT;2	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 09, 1989` CROSS-REFERENCE: `9002241^DA` 1)= S ^ACM(41,"DA",$E(X,1,30),DA)="" 2)= K ^ACM(41,"DA",$E(X,1,30),DA)
3	INACTIVATION DATE	DT;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 29, 1989`
4	INITIAL ENTRY DATE	DT;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 18, 1989`
5	CASE PRIORITY	DT;5	SET	'L' FOR LOW; 'M' FOR MEDIUM; 'H' FOR HIGH; 'C' FOR CRITICAL; LAST EDITED: `AUG 10, 1989`
6	CASE MANAGER	DT;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 04, 1995` CROSS-REFERENCE: `9002241^CM` 1)= S ^ACM(41,"CM",$E(X,1,30),DA)="" 2)= K ^ACM(41,"CM",$E(X,1,30),DA)
7	PHN	DT;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 04, 1995` CROSS-REFERENCE: `9002241^PHN` 1)= S ^ACM(41,"PHN",$E(X,1,30),DA)="" 2)= K ^ACM(41,"PHN",$E(X,1,30),DA)
8	LAST REVIEW DATE	DT;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 18, 1989`
9	NEXT REVIEW DATE	DT;9	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 09, 1989` CROSS-REFERENCE: `9002241^NR` 1)= S ^ACM(41,"NR",$E(X,1,30),DA)="" 2)= K ^ACM(41,"NR",$E(X,1,30),DA)
10	WHERE CLIENT FOLLOWED	DT;10	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `AUG 09, 1989` CROSS-REFERENCE: `9002241^FLD` 1)= S ^ACM(41,"FLD",$E(X,1,30),DA)="" 2)= K ^ACM(41,"FLD",$E(X,1,30),DA)
11	DATE LAST EDITED	DT;11	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 18, 1989`
12	DATE LAST PRINTED	DT;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 18, 1989`
13	CASE COMMENTS	1;0	WORD-PROCESSING #9002241.013
14	CLIENT CONTACT	DT;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 10, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.`
15	PRIMARY PROVIDER	DT;15	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 19, 2002` CROSS-REFERENCE: `^^TRIGGER^9002241^15.1` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACM(41,D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(9002241,15,1,1,1.1) X ^DD(9002241,15,1,1,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^VA(200,+D0,0)) D0=-1 S Y(102)=$S($D(^VA(200,D0,9999999)):^(9999999),1:""),Y(101)=X S X=$P(Y(102),U,1),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACM(41,DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,14)=DIV,DIH=9002241,DIG=15.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACM(41,D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(9002241,15,1,1,2.1) X ^DD(9002241,15,1,1,2.4) 2.1)= S X=DIV X ^DD(9002241,15,1,1,59.2) S Y(101)=X S X=$P(Y(102),U,1),X=X S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^ACM(41,DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,14)=DIV,DIH=9002241,DIG=15.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACM(41,D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,15) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(102)=$S($D(^VA(200,D0,9999999)):^(9999999),1:"") CREATE VALUE)= PRIMARY PROVIDER:INTERNAL(#9999999.01) DELETE VALUE)= PRIMARY PROVIDER:INTERNAL(#9999999.01) FIELD)= PROVIDER CATEGORY
15.1	PROVIDER CATEGORY	DT;14	SET	'1' FOR IHS; '2' FOR CONTRACT; '3' FOR TRIBAL; '4' FOR STATE; '5' FOR MUNICIPAL; '7' FOR NTL HLTH SRV CORP; '9' FOR OTHER; '6' FOR VOLUNTEER; '8' FOR 638 PROGRAM; LAST EDITED: `JUN 01, 1990` NOTES: `TRIGGERED by the PRIMARY PROVIDER field of the CMS REGISTER File`
20	DATE OF ONSET	CH;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 08, 1989`
21	PLACE OF ONSET	CH;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `SEP 08, 1989` HELP-PROMPT: `Answer must be 3-20 characters in length.`
22	CLASS/STAGE	CH;3	POINTER TO *CMS DIAGNOSTIC MODIFIERS FILE (#9002251.2)	*CMS DIAGNOSTIC MODIFIERS(#9002251.2) LAST EDITED: `SEP 08, 1989`
23	CASE HISTORY	2;0	WORD-PROCESSING #9002241.023
100	DIAGNOSTIC CRITERIA	HX;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 09, 1989`
200	AGE		COMPUTED	MUMPS CODE: `X ^DD(9002241,200,9.3) S D0=$P(Y(9002241,200,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.033,0),U,5,99) S Y(9002241,200,201)=X S X=Y(9002241,200,201) S D0=Y(9002241,200,80)` 9.2 = S Y(9002241,200,80)=$S($D(D0):D0,1:""),Y(9002241,200,1)=$S($D(^ACM(41,D0,0)):^(0),1:""),D0=$P(Y(9002241,200,1),U,2) S:'$D(^AUPNPAT(+D0,0)) D0=-1 9.3 = X ^DD(9002241,200,9.2) S Y(9002241,200,180)=$S($D(D0):D0,1:""),Y(9002241,200,101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") ALGORITHM: `PATIENT:NAME:AGE`
201	EDITED SUMMARIES		COMPUTED	MUMPS CODE: `S Y(9002241,201,1)=$S($D(^ACM(41,D0,"DT")):^("DT"),1:"") S X=$P(Y(9002241,201,1),U,11),X1=X,X2=$P(Y(9002241,201,1),U,12),X="" D:X2 ^%DTC:X1` ALGORITHM: `DATE LAST EDITED-DATE LAST PRINTED`
1101	DM AUDIT LOCAL OPTION CODE	11;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 11, 2011` HELP-PROMPT: `Type a Number between 0 and 9, 0 Decimal Digits`
1102	DM AUDIT LOCAL OPTION TEXT	11;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 06, 2011` HELP-PROMPT: `Answer must be 1-30 characters in length.`

Customize PDF page

Package: Case Management System

Global: ^ACM(41

Information

Description

Directly Accessed By Routines, Total: 178

Accessed By FileMan Db Calls, Total: 31

Pointed To By FileMan Files, Total: 14

Pointer To FileMan Files, Total: 6

Fields, Total: 29