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(49

Package: Case Management System

Global: ^ACM(49

Information

FileMan FileNo	FileMan Filename	Package
9002249	CMS APPOINTMENT	Case Management System

Description

The CMS APPOINTMENTS file contains the data for the provider to which an appointment is made and the last and next appointment dates. This information is used for the future schedules and for missed appointment letters.

Directly Accessed By Routines, Total: 9

Accessed By FileMan Db Calls, Total: 5

Pointer To FileMan Files, Total: 3

Fields, Total: 12

Field #	Name	Loc	Type	Details
.01	RECALL DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 05, 1995` CROSS-REFERENCE: `9002249^B` 1)= S ^ACM(49,"B",$E(X,1,30),DA)="" 2)= K ^ACM(49,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9002249^AC2^MUMPS` 1)= N ACMX S ACMX=$G(^ACM(49,DA,0)) I $P(ACMX,U,2),$P(ACMX,U,4) S ^ACM(49,"AC",$P(ACMX,U,4),$P(ACMX,U,2),X)=DA 2)= N ACMX S ACMX=$G(^ACM(49,DA,0)) I $P(ACMX,U,2),$P(ACMX,U,4) K ^ACM(49,"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: `AUG 22, 1989` CROSS-REFERENCE: `9002249^C` 1)= S ^ACM(49,"C",$E(X,1,30),DA)="" 2)= K ^ACM(49,"C",$E(X,1,30),DA)
.03	REGISTER	0;3	POINTER TO CMS REGISTER FILE (#9002241)	CMS REGISTER(#9002241) LAST EDITED: `AUG 14, 1989` CROSS-REFERENCE: `9002249^D` 1)= S ^ACM(49,"D",$E(X,1,30),DA)="" 2)= K ^ACM(49,"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^9002249^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACM(49,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002249,.04,1,1,1.1) S DIH=$G(^ACM(49,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9002249,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(49,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002249,.04,1,1,2.1) S DIH=$G(^ACM(49,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9002249,DIG=.05 D ^DICR 2.1)= S X=DIV S I(0,0)=$G(D0),Y(1)=$S($D(^ACM(49,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: `9002249^AC^MUMPS` 1)= S ^ACM(49,"AC",$P(^ACM(49,DA,0),U,4),$P(^(0),U,2),$P(^(0),U))=DA 2)= K ^ACM(49,"AC",$P(^ACM(49,DA,0),U,4),$P(^(0),U,2),$P(^(0),U)) CROSS-REFERENCE: `9002249^E` 1)= S ^ACM(49,"E",$E(X,1,30),DA)="" 2)= K ^ACM(49,"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 APPOINTMENT File` CROSS-REFERENCE: `9002249^F` 1)= S ^ACM(49,"F",$E(X,1,30),DA)="" 2)= K ^ACM(49,"F",$E(X,1,30),DA)
1	NEXT APPOINTMENT	DT;1	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 09, 1989` HELP-PROMPT: `If you don't know the exact date of the appointment you can use a date such as Jan 90.` CROSS-REFERENCE: `9002249^NXT` 1)= S ^ACM(49,"NXT",$E(X,1,30),DA)="" 2)= K ^ACM(49,"NXT",$E(X,1,30),DA)
2	APPOINTMENT STATUS	DT;2	SET	'K' FOR KEPT; 'M' FOR MISSED; 'O' FOR OPEN; 'R' FOR REFUSED; 'C' FOR CLOSED; 'P' FOR PENDING; LAST EDITED: `FEB 11, 2002` CROSS-REFERENCE: `9002249^LST` 1)= S ^ACM(49,"LST",$E(X,1,30),DA)="" 2)= K ^ACM(49,"LST",$E(X,1,30),DA)
3	ORGANIZATION	DT;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` LAST EDITED: `JUN 05, 1995` HELP-PROMPT: `Enter name of local/outside organization to whom you are referring this patient (1-35 characters)`
4	CONTACT PERSON	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>35!($L(X)<2) X` LAST EDITED: `JAN 10, 1995` HELP-PROMPT: `Enter the name of the Register Manager or other person who's name will appear on the Recall Letter (2-35 characters)`
5	CONTACT PHONE	0;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8)!'(X?3N1"-"4N) X` LAST EDITED: `JAN 24, 1995` HELP-PROMPT: `Enter the telephone number to appear on the Recall Letter for the purpose of scheduling an appointment. Format = 295-2570` DESCRIPTION: CONTACT PHONE NUMBER WITHOUT AREA CODE EXAMPLE - 259-4851
7	PROVIDER	DT;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` LAST EDITED: `MAY 11, 1995` HELP-PROMPT: `Enter name of local/outside Provider to whom you are referring this patient (1-35 characters)`
11	PURPOSE	DT;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` LAST EDITED: `JUN 05, 1995` HELP-PROMPT: `Enter purpose of recall (1-35 characters)`

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