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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^BMCDX

Package: Referred Care Information System

Global: ^BMCDX


Information

FileMan FileNo FileMan Filename Package
90001.01 RCIS DIAGNOSIS Referred Care Information System

Description

Directly Accessed By Routines, Total: 21

Package Total Routines
Referred Care Information System 17 BMCAPI2    BMCCHS    BMCFPIN    BMCFPRNP    BMCHS    BMCMOD1    BMCPCCL    BMCRCHK
BMCRLU    BMCRR14P    BMCRR17P    BMCRR19P    BMCRR2P    BMCRR81    BMCRR8P    BMCTEN1
^BMCDX    
Clinical Scheduling for Windows 1 BSDX41J    
Health Summary Components 1 BHSRCIS    
Local Area Programs 1 AZAXDPM1    
Patient Chart 1 BPCRC5    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Referred Care Information System 9 BMC    BMCADD1    BMCAPI2    BMCCHS    BMCDSP    BMCDXADD    BMCDXLK    BMCDXSTF
BMCMOD1    
Patient Chart 1 BPCRC6    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
DRG Grouper 1 ICD DIAGNOSIS(#80)[.01]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Referred Care Information System 1 RCIS REFERRAL(#90001)[.03]    
Utility Tables 1 PROVIDER NARRATIVE(#9999999.27)[.06]    

Fields, Total: 8

Field # Name Loc Type Details
.01 DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80)
************************REQUIRED FIELD************************
ICD DIAGNOSIS(#80)

  • LAST EDITED:  SEP 17, 2013
  • HELP-PROMPT:  Enter an ICD Code for the Diagnosis
  • TECHNICAL DESCR:  
    This field contains the diagnosis specified by the provider.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,9),$E(^(0),U,1)'=""E"""
  • EXPLANATION:  Inactive codes excluded
  • CROSS-REFERENCE:  90001.01^B
    1)= S ^BMCDX("B",$E(X,1,30),DA)=""
    2)= K ^BMCDX("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90001.01^AZ1^MUMPS
    1)= D EN1^BMCBULL
    2)= Q
    This mumps xref sends a bulletin to the appropriate personnel if a diagnosis is entered for a potentially high cost diagnosis.
  • CROSS-REFERENCE:  90001.01^AV9^MUMPS
    1)= S:$D(BMCLOOK) DIC("DR")=""
    2)= Q
    The purpose of this xref is to prevent FileMan from asking for the identifiers when an entry is created in this file via a file shift from file 90001 using BMC software.
.019 ICD NARRATIVE COMPUTED

  • MUMPS CODE:  X ^DD(90001.01,.019,9.2) S Y(90001.01,.019,101)=$S($D(^ICD9(D0,0)):^(0),1:"") S X=$P(Y(90001.01,.019,101),U,3) S D0=Y(90001.01,.019,80)
    9.2 = S Y(90001.01,.019,80)=$S($D(D0):D0,1:""),Y(90001.01,.019,1)=$S($D(^BMCDX(D0,0)):^(0),1:""),D0=$P(Y(90001.01,.019,1),U,1) S:'$D(^ICD9(+D0,0)) D0=-1
  • ALGORITHM:  DIAGNOSIS:DIAGNOSIS
  • TECHNICAL DESCR:  
    This field derives the ICD narrative associated with the ICD code selected.
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JUN 29, 1995
  • TECHNICAL DESCR:  
    This field points to the patient to which this diagnosis applies.
  • CROSS-REFERENCE:  90001.01^AC
    1)= S ^BMCDX("AC",$E(X,1,30),DA)=""
    2)= K ^BMCDX("AC",$E(X,1,30),DA)
    This xref allows software to gather diagnoses by patient.
.03 REFERRAL 0;3 POINTER TO RCIS REFERRAL FILE (#90001)
************************REQUIRED FIELD************************
RCIS REFERRAL(#90001)

  • LAST EDITED:  JUN 29, 1995
  • TECHNICAL DESCR:  
    This field points back to the referral record to which this diagnosis record applies.
  • CROSS-REFERENCE:  90001.01^AD
    1)= S ^BMCDX("AD",$E(X,1,30),DA)=""
    2)= K ^BMCDX("AD",$E(X,1,30),DA)
    This xref is used to do file shifts from the RCIS REFERRAL file.
.04 TYPE 0;4 SET
************************REQUIRED FIELD************************
  • 'P' FOR PROVISIONAL;
  • 'F' FOR FINAL;

  • LAST EDITED:  JUN 28, 1995
  • TECHNICAL DESCR:  
    This field indicates whether the diagnosis is provisional or final.
.05 PRI/SEC 0;5 SET
************************REQUIRED FIELD************************
  • 'P' FOR PRIMARY;
  • 'S' FOR SECONDARY;

  • LAST EDITED:  SEP 16, 1993
  • TECHNICAL DESCR:  
    This field indicates whether the diagnosis is primary or secondary.
.06 DIAGNOSIS NARRATIVE 0;6 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • LAST EDITED:  APR 11, 2014
  • TECHNICAL DESCR:  
    This field contains the actual narrative written by the provider that resulted in this ICD entry being selected.
.07 COUNT 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 26, 1995
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • TECHNICAL DESCR:  
    This field is incremented by 1 each time the CHS package adds this diagnosis and it is decremented each time the CHS package deletes this diagnosis.  If this counter reaches 0 the RCIS DIAGNOSIS entry is deleted.

External References

Name Field # of Occurrence
EN1^BMCBULL .01(XREF 2S)
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] ID.02+1
^BMCDX - [#90001.01] .019OF9.2+1
^BMCDX("AC" .02(XREF 1S), .02(XREF 1K)
^BMCDX("AD" .03(XREF 1S), .03(XREF 1K)
^BMCDX("B" .01(XREF 1S), .01(XREF 1K)
^BMCREF - [#90001] ID.03+1
^DD(9000001 ID.02+1
^DD(90001.01 .019+1
^ICD9 - [#80] .019+1, .019OF9.2+1

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.03+1, .019+1, .019OF9.2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I ID.02+1*!, ID.03+1*!
>> BMCLOOK .01(XREF 9S)
>> C ID.02+1*
>> D0 .019+1*, .019OF9.2+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
>> DIC ID.02+1, ID.03+1
>> DIC("DR" .01(XREF 9S)
>> DIC("S" .01SCR+1*
U ID.02+1, ID.03+1, .019+1, .019OF9.2+1
X .01(XREF 1S), .01(XREF 1K), .019+1*, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .07+1!
>> Y ID.02+1*, ID.03+1*
>> Y( .019+1*, .019OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All