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: ^BMCPX

Package: Referred Care Information System

Global: ^BMCPX


Information

FileMan FileNo FileMan Filename Package
90001.02 RCIS PROCEDURE Referred Care Information System

Description

Directly Accessed By Routines, Total: 18

Package Total Routines
Referred Care Information System 14 BMCRR19P    BMCRR8P    ^BMCPX    BMCAPI2    BMCCHS    BMCFREQ1    BMCHS    BMCMOD1
BMCPCCL    BMCPXCHK    BMCRCHK1    BMCRLU    BMCRR14P    BMCRR2P    
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: 8

Package Total Routines
Referred Care Information System 7 BMC    BMCADD1    BMCAPI2    BMCCHS    BMCDSP    BMCMOD1    BMCPXSTF    
Patient Chart 1 BPCRC6    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
CPT Files 1 CPT(#81)[.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 PROCEDURE 0;1 POINTER TO CPT FILE (#81)
************************REQUIRED FIELD************************
CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 16, 1996
  • TECHNICAL DESCR:  
    This field contains the procedure specified by the provider.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,4)"
  • EXPLANATION:  Inactive codes excluded
  • CROSS-REFERENCE:  90001.02^B
    1)= S ^BMCPX("B",$E(X,1,30),DA)=""
    2)= K ^BMCPX("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90001.02^AV1^MUMPS
    1)= D EN2^BMCBULL
    2)= Q
  • CROSS-REFERENCE:  90001.02^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 added to this file via a file shift from file 90001 by BMC software.
.019 CPT NARRATIVE COMPUTED

  • MUMPS CODE:  X ^DD(90001.02,.019,9.2) S Y(90001.02,.019,101)=$S($D(^ICPT(D0,0)):^(0),1:"") S X=$P(Y(90001.02,.019,101),U,2) S D0=Y(90001.02,.019,80)
    9.2 = S Y(90001.02,.019,80)=$S($D(D0):D0,1:""),Y(90001.02,.019,1)=$S($D(^BMCPX(D0,0)):^(0),1:""),D0=$P(Y(90001.02,.019,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1
  • ALGORITHM:  PROCEDURE:SHORT NAME
  • TECHNICAL DESCR:  
    This computed field retrieves the narrative associated with the CPT entry 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 procedure applies.
  • CROSS-REFERENCE:  90001.02^AC
    1)= S ^BMCPX("AC",$E(X,1,30),DA)=""
    2)= K ^BMCPX("AC",$E(X,1,30),DA)
    This xref allows software to gather procedures 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 procedure record applies.
  • CROSS-REFERENCE:  90001.02^AD
    1)= S ^BMCPX("AD",$E(X,1,30),DA)=""
    2)= K ^BMCPX("AD",$E(X,1,30),DA)
    This xref is used for file shifts from the RCIS REFERRAL file.
.04 TYPE 0;4 SET
************************REQUIRED FIELD************************
  • 'P' FOR PROVISIONAL;
  • 'F' FOR FINAL;

  • LAST EDITED:  JUN 29, 1995
  • TECHNICAL DESCR:  
    This field indicates whether the procedure 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 procedure is primary or secondary.
.06 PROCEDURE NARRATIVE 0;6 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • LAST EDITED:  NOV 22, 1995
  • TECHNICAL DESCR:  
    This field contains the actual narrative written by the provider that resulted in this CPT entry being selected.
.07 UNITS 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 25, 1995
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • TECHNICAL DESCR:  This field contains the number of times the procedure was done. This value is passed by the CHS package and is added to this field each time this CPT code is added. This value is decremented each time this CPT code is
    deleted.  If this value reaches 0 the RCIS PROCEDURE entry is deleted.

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] ID.02+1
^BMCPX - [#90001.02] .019OF9.2+1
^BMCPX("AC" .02(XREF 1S), .02(XREF 1K)
^BMCPX("AD" .03(XREF 1S), .03(XREF 1K)
^BMCPX("B" .01(XREF 1S), .01(XREF 1K)
^BMCREF - [#90001] ID.03+1
^DD(9000001 ID.02+1
^DD(90001.02 .019+1
^ICPT - [#81] .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, .01+1!*
DIC("DR" .01(XREF 9S)
DIC("S" .01+1*, .01SCR+1*
>> DIE .01+1
U ID.02+1, ID.03+1, .019+1, .019OF9.2+1
X .01+1*!, .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*, .01+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