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

Directly Accessed By Routines, Total: 9

Package Total Routines
Case Management System 7 ACMADDR    ACMAPP1    ACMAPPT    ACMPOST1    ACMPPDT    ACMPPDTX    ACMRAPP    
Diabetes Registry 1 BDMPPDT    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Case Management System 4 ACMAPP1    ACMAPPT    ACMLPAT    ACMPOST1    
Diabetes Registry 1 BDMGUA    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Case Management System 2 CMS REGISTER(#9002241)[.03]    CMS REGISTER TYPE(#9002241.1)[.04]    
IHS Patient 1 PATIENT(#9000001)[.02]    

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