Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^ACM(45

Package: Case Management System

Global: ^ACM(45

Information

FileMan FileNo	FileMan Filename	Package
9002245	CMS RISK FACTOR FOR THE CLIENT	Case Management System

Description

Directly Accessed By Routines, Total: 6

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	RISK FACTOR	0;1	POINTER TO CMS RISK FACTOR LIST ENTRY FILE (#9002245.1)	**********************REQUIRED FIELD********************** CMS RISK FACTOR LIST ENTRY(#9002245.1) LAST EDITED: `JUL 18, 1989` CROSS-REFERENCE: `9002245^B` 1)= S ^ACM(45,"B",$E(X,1,30),DA)="" 2)= K ^ACM(45,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9002245^AC2^MUMPS` 1)= N ACMX S ACMX=$G(^ACM(45,DA,0)) I $P(ACMX,U,2),$P(ACMX,U,4) S ^ACM(45,"AC",$P(ACMX,U,4),$P(ACMX,U,2),X)=DA 2)= N ACMX S ACMX=$G(^ACM(45,DA,0)) I $P(ACMX,U,2),$P(ACMX,U,4) K ^ACM(45,"AC",$P(ACMX,U,4),$P(ACMX,U,2),X)
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `SEP 07, 1989` CROSS-REFERENCE: `9002245^C` 1)= S ^ACM(45,"C",$E(X,1,30),DA)="" 2)= K ^ACM(45,"C",$E(X,1,30),DA)
.03	REGISTER	0;3	POINTER TO CMS REGISTER FILE (#9002241)	**********************REQUIRED FIELD********************** CMS REGISTER(#9002241) LAST EDITED: `SEP 09, 1989` CROSS-REFERENCE: `9002245^D` 1)= S ^ACM(45,"D",$E(X,1,30),DA)="" 2)= K ^ACM(45,"D",$E(X,1,30),DA)
.04	REGISTER TYPE	0;4	POINTER TO CMS REGISTER TYPE FILE (#9002241.1)	CMS REGISTER TYPE(#9002241.1) LAST EDITED: `OCT 03, 2005` CROSS-REFERENCE: `^^TRIGGER^9002245^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACM(45,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002245,.04,1,1,1.1) S DIH=$G(^ACM(45,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9002245,DIG=.05 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^ACM(41.1,+D0,0)) D0=-1 S Y(101)=$S($D(^ACM(41.1,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACM(45,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002245,.04,1,1,2.1) S DIH=$G(^ACM(45,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9002245,DIG=.05 D ^DICR 2.1)= S X=DIV S I(0,0)=$G(D0),Y(1)=$S($D(^ACM(45,D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'D0!'$D(^ACM(41.1,+D0,0)) D0=-1 S Y(101)=$S($D(^ACM(41.1,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) CREATE VALUE)= #.04:#.01 DELETE VALUE)= #.04:#.01 FIELD)= #.05 CROSS-REFERENCE: `9002245^AC^MUMPS` 1)= S ^ACM(45,"AC",$P(^ACM(45,DA,0),U,4),$P(^(0),U,2),$P(^(0),U))=DA 2)= K ^ACM(45,"AC",$P(^ACM(45,DA,0),U,4),$P(^(0),U,2),$P(^(0),U)) CROSS-REFERENCE: `9002245^E` 1)= S ^ACM(45,"E",$E(X,1,30),DA)="" 2)= K ^ACM(45,"E",$E(X,1,30),DA)
.05	NAME OF REGISTER	0;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 10, 1991` HELP-PROMPT: `Answer must be 3-30 characters in length.` NOTES: `TRIGGERED by the REGISTER TYPE field of the CMS RISK FACTOR FOR THE CLIENT File` CROSS-REFERENCE: `9002245^F` 1)= S ^ACM(45,"F",$E(X,1,30),DA)="" 2)= K ^ACM(45,"F",$E(X,1,30),DA)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All