Global: ^ACM(58.1

FileMan FileNo	FileMan Filename	Package
9002258.1	CMS LISTER ITEMS	Case Management System

Package	Total	Routines
Case Management System	11	ACM20P2 ACMPOST ACMRL0 ACMRL01 ACMRL1 ACMRL2 ACMRL3 ACMRLF ACMRLP ACMRLP1 ACMRLS
Diabetes Registry	2	BDM20P12 BDMPOST

Package	Total	Routines
Case Management System	2	ACM20P2 ACMPOST
Diabetes Registry	2	BDM20P12 BDMPOST

Package	Total	FileMan Files
Case Management System	1	CMS LISTER TEMPORARY FILE(#9002258.8)[.07, #9002258.81101(.01), #9002258.81102(.01)]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 08, 1993` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
.01	ITEM	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `NOV 17, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9002258.1^B` 1)= S ^ACM(58.1,"B",$E(X,1,30),DA)="" 2)= K ^ACM(58.1,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002258.1^1101` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACM(58.1,D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002258.1,.01,1,2,1.1) X ^DD(9002258.1,.01,1,2,1.4) 1.1)= S X=DIV S X=DIV X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)" 1.4)= S DIH=$S($D(^ACM(58.1,DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,1)=DIV,DIH=9002258.1,DIG=1101 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(58.1,D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002258.1,.01,1,2,2.1) X ^DD(9002258.1,.01,1,2,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^ACM(58.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,1) X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)" 2.4)= S DIH=$S($D(^ACM(58.1,DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,1)=DIV,DIH=9002258.1,DIG=1101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= UPPERCASE(#.01) DELETE VALUE)= UPPERCASE(#.01) FIELD)= #1101
.02	TYPE	0;2	SET	'Q' FOR QMAN; 'R' FOR READER; 'D' FOR DATE RANGE; 'N' FOR NUMERIC; 'F' FOR FREE TEXT; 'Y' FOR YES/NO; 'W' FOR WORD PROCESSING; 'J' FOR JUST A HIT, NO INTERACTION; 'I' FOR DIC CALL WITH SCREEN; 'C' FOR CONTAINS; LAST EDITED: `DEC 20, 1994`
.021	INPUT TX FOR FREE TEXT	21;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.022	HELP PROMPT FOR FREE TEXT	22;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.025	INPUT TX FOR NUMERIC	25;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.026	HELP PROMPT FOR NUMERIC	26;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.03	QMAN TERM	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `SEP 20, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.`
.04	FILE,FIELD FOR DIR/DIQ	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 23, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.05	PRINT/SELECT/SORT	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `MAY 09, 1994` HELP-PROMPT: `Answer must be 1-3 characters in length.`
.06	COLUMN HEADER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 21, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.07	SUGGESTED COLUMN WIDTH	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>80)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1993` HELP-PROMPT: `Type a Number between 1 and 80, 0 Decimal Digits`
.08	MULT LOGIC	0;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 21, 1993`
.09	ORDER ON MENU	0;9	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 17, 1994` HELP-PROMPT: `Type a Number between 1 and 999, 1 Decimal Digit` CROSS-REFERENCE: `9002258.1^C` 1)= S ^ACM(58.1,"C",$E(X,1,30),DA)="" 2)= K ^ACM(58.1,"C",$E(X,1,30),DA)
.11	CMS REGISTER ITEM MNEMONIC	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `NOV 16, 1994` HELP-PROMPT: `Answer must be 1-6 characters in length.`
.12	PRINT MENU HEADER	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `MAY 31, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.`
.13	LOOKUP FILE FOR DIC	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 17, 1994` HELP-PROMPT: `Answer must be 1-20 characters in length.`
1	SCREEN LOGIC	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `SEP 21, 1993` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
2	TRANSLATION LOGIC	2;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `SEP 09, 1993` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
3	PRINT LOGIC	3;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `SEP 23, 1993` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
4	SORT LOGIC	4;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `OCT 04, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
1101	UPPERCASE MENU TEXT	11;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X` LAST EDITED: `NOV 17, 1994` HELP-PROMPT: `Answer must be 2-80 characters in length.` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the ITEM field of the CMS LISTER ITEMS File` CROSS-REFERENCE: `9002258.1^D` 1)= S ^ACM(58.1,"D",$E(X,1,30),DA)="" 2)= K ^ACM(58.1,"D",$E(X,1,30),DA)

ITEM: Birth Month	ITEM: Care Plan	ITEM: Care Plan Comment	ITEM: Case Comments	ITEM: Case History	ITEM: Case Manager	ITEM: Case Priority	ITEM: Cause of Death
ITEM: Chart Facility	ITEM: Classification/Beneficiary	ITEM: Client Contact	ITEM: Complication Comments	ITEM: Complication Onset Dt	ITEM: Complications	ITEM: Date Last Edited	ITEM: Date of Onset
ITEM: Diagnoses	ITEM: Diagnostic Criteria	ITEM: Eligibility Status	ITEM: Etiology	ITEM: Family Members	ITEM: Home Phone	ITEM: Inactivation Date	ITEM: Initial Entry Date
ITEM: Intervent Plan Category	ITEM: Intervent Result DT	ITEM: Intervention Due DT	ITEM: Intervention Results	ITEM: Interventions	ITEM: Last Review Date	ITEM: Living Patients	ITEM: Medicaid Eligibility
ITEM: Medicare Eligibility	ITEM: Medications	ITEM: Mlg Address-City	ITEM: Mlg Address-State	ITEM: Mlg Address-Street	ITEM: Mlg Address-Zip Code	ITEM: Mother's Maiden Name	ITEM: Mother's Maiden Name
ITEM: Mother's Name	ITEM: Mother's Name	ITEM: Mother's Name	ITEM: Mother's Name	ITEM: Next Review Date	ITEM: PHN	ITEM: Patient Age	ITEM: Patient Chart #
ITEM: Patient Community	ITEM: Patient DOB	ITEM: Patient DOD	ITEM: Patient Name	ITEM: Patient SSN	ITEM: Patient Sex	ITEM: Patient Tribe	ITEM: Patient's Last Visit
ITEM: Primary Care Provider (PCC)	ITEM: Private Insurance Eligibility	ITEM: Recall Date	ITEM: Register Provider	ITEM: Register Status	ITEM: Risk Factors	ITEM: Services	ITEM: Where PT Followed

Customize PDF page

Package: Case Management System

Global: ^ACM(58.1

Information

Description

Directly Accessed By Routines, Total: 13

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 1

Fields, Total: 22

Found Entries, Total: 64