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

Package: Case Management System

Global: ^ACM(44


Information

FileMan FileNo FileMan Filename Package
9002244 CMS DIAGNOSIS FOR THE CLIENT Case Management System

Description

Directly Accessed By Routines, Total: 67

Package Total Routines
Diabetes Registry 40 BDMD013    BDMD113    BDMD207    BDMD217    BDMD313    BDMD413    BDMD513    BDMD613
BDMD713    BDMD813    BDMD913    BDMD997    BDMDA13    BDMDB13    BDMDC13    BDMDD13
BDMDE13    BDMDF13    BDMDG13    BDMDM1    BDMGE    BDMGU    BDMP013    BDMP113
BDMP413    BDMP513    BDMP613    BDMP713    BDMP813    BDMP913    BDMPA13    BDMPB13
BDMPC13    BDMPPDT    BDMS9B4    BDMSDX    BDMVRL2    BDMVRL43    BDMVRL5    BDMVRL8
Patient Care Component Reports 13 APCLD207    APCLD217    APCLD313    APCLD513    APCLD613    APCLD713    APCLD813    APCLD997
APCLDM1    APCLP513    APCLP613    APCLP713    APCLP813    
Case Management System 7 ACMADDM    ACMADDM1    ACMADDM2    ACMFIX    ACMPPDT    ACMPPDTX    ACMRDX    
iCare 3 BQIPTREG    BQIRGACM    BQIRGDBL    
Health Summary Components 1 BHSDM4    
Local Area Programs 1 AZAXDPM1    
PCC Medical Query 1 AMQQREG    
Patient Care Component 1 APCHS9B4    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Case Management System 4 ACMADDM    ACMADDM1    ACMADDM2    ACMFIX    
Diabetes Registry 4 BDMGE    BDMSDX    BDMVRL5    BDMVRL8    
iCare 2 BQIPTREG    BQIRGDBL    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Case Management System 3 CMS REGISTER(#9002241)[.03]    CMS REGISTER TYPE(#9002241.1)[.04]    CMS DIAGNOSIS LIST ENTRY(#9002244.1)[.01]    
IHS Patient 1 PATIENT(#9000001)[.02]    

Fields, Total: 7

Field # Name Loc Type Details
.01 DIAGNOSIS 0;1 POINTER TO CMS DIAGNOSIS LIST ENTRY FILE (#9002244.1)
************************REQUIRED FIELD************************
CMS DIAGNOSIS LIST ENTRY(#9002244.1)

  • LAST EDITED:  AUG 14, 1989
  • CROSS-REFERENCE:  9002244^B
    1)= S ^ACM(44,"B",$E(X,1,30),DA)=""
    2)= K ^ACM(44,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002244^AC2^MUMPS
    1)= N ACMX S ACMX=$G(^ACM(44,DA,0)) I $P(ACMX,U,2),$P(ACMX,U,4) S ^ACM(44,"AC",$P(ACMX,U,4),$P(ACMX,U,2),X)=DA
    2)= N ACMX S ACMX=$G(^ACM(44,DA,0)) I $P(ACMX,U,2),$P(ACMX,U,4) K ^ACM(44,"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:  9002244^C
    1)= S ^ACM(44,"C",$E(X,1,30),DA)=""
    2)= K ^ACM(44,"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:  9002244^D
    1)= S ^ACM(44,"D",$E(X,1,30),DA)=""
    2)= K ^ACM(44,"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^9002244^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACM(44,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002244,.04,1,1,1.1) S DIH=$G(^ACM(44,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9002244,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(44,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002244,.04,1,1,2.1) S DIH=$G(^ACM(44,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9002244,DIG=.05 D ^DICR
    2.1)= S X=DIV S I(0,0)=$G(D0),Y(1)=$S($D(^ACM(44,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:  9002244^AC^MUMPS
    1)= S ^ACM(44,"AC",$P(^ACM(44,DA,0),U,4),$P(^(0),U,2),$P(^(0),U))=DA
    2)= K ^ACM(44,"AC",$P(^ACM(44,DA,0),U,4),$P(^(0),U,2),$P(^(0),U))
  • CROSS-REFERENCE:  9002244^E
    1)= S ^ACM(44,"E",$E(X,1,30),DA)=""
    2)= K ^ACM(44,"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 DIAGNOSIS FOR THE CLIENT File
  • CROSS-REFERENCE:  9002244^F
    1)= S ^ACM(44,"F",$E(X,1,30),DA)=""
    2)= K ^ACM(44,"F",$E(X,1,30),DA)
1 SEVERITY SV;1 SET
  • 'N' FOR NORMAL;
  • 'M' FOR MILD;
  • 'MO' FOR MODERATE;
  • 'S' FOR SEVERE;

  • LAST EDITED:  FEB 06, 1989
2 DATE OF ONSET SV;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 22, 1992
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All