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

Package: Referred Care Information System

Global: ^BMCPROV


Information

FileMan FileNo FileMan Filename Package
90001.04 RCIS SECONDARY REFERRAL Referred Care Information System

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Referred Care Information System 5 ^BMCPROV    BMC4P0    BMCFAHC3    BMCFDR3    BMCRUTL    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Referred Care Information System 2 BMC4P    BMCFDR3    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Referred Care Information System 4 RCIS SPECIFIC PROVIDER(#90001.53)[205]    RCIS REFERRAL(#90001)[.03]    RCIS ICD DIAGNOSTIC CATEGORY(#90001.51)[207]    RCIS HCPCS/CPT CATEGORY(#90001.52)[208]    
Utility Tables 2 LOCATION(#9999999.06)[.12]    VENDOR(#9999999.11)[.05]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.04, 204]    

Fields, Total: 20

Field # Name Loc Type Details
.01 DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:3200131X) X
  • LAST EDITED:  FEB 01, 2002
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND 1/31/2020
  • EXECUTABLE HELP:  W !,?5,"**Enter the Date of the Secondary Provider Letter or Patient Name**",!
  • CROSS-REFERENCE:  90001.04^B
    1)= S ^BMCPROV("B",$E(X,1,30),DA)=""
    2)= K ^BMCPROV("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90001.04^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.
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  OCT 31, 2001
  • TECHNICAL DESCR:  
    This field points to the patient to which these comments apply.
  • CROSS-REFERENCE:  90001.04^AC
    1)= S ^BMCPROV("AC",$E(X,1,30),DA)=""
    2)= K ^BMCPROV("AC",$E(X,1,30),DA)
    This xref allows software to gather comments by patient.
  • CROSS-REFERENCE:  90001.04^C
    1)= S ^BMCPROV("C",$E(X,1,30),DA)=""
    2)= K ^BMCPROV("C",$E(X,1,30),DA)
.03 REFERRAL DATE 0;3 POINTER TO RCIS REFERRAL FILE (#90001)
************************REQUIRED FIELD************************
RCIS REFERRAL(#90001)

  • LAST EDITED:  MAR 25, 1999
  • TECHNICAL DESCR:  
    This field points back to the referral record to which this comment recorded applies.
  • CROSS-REFERENCE:  90001.04^AD
    1)= S ^BMCPROV("AD",$E(X,1,30),DA)=""
    2)= K ^BMCPROV("AD",$E(X,1,30),DA)
    This xref is used for file shifts from the RCIS REFERRAL file.
.04 USER 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 15, 1996
.05 PROVIDER VENDOR 0;5 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  MAY 05, 2004
  • CROSS-REFERENCE:  90001.04^AE
    1)= S ^BMCPROV("AE",$E(X,1,30),DA)=""
    2)= K ^BMCPROV("AE",$E(X,1,30),DA)
.06 EXP APPT DATE 0;6 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 19, 2001
.07 PURPOSE OF APPT 0;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  MAY 05, 2004
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
.08 REFERRAL NUMBER COMPUTED

  • MUMPS CODE:  X ^DD(90001.04,.08,9.2) S Y(90001.04,.08,101)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(90001.04,.08,101),U,2) S D0=Y(90001.04,.08,80)
    9.2 = S Y(90001.04,.08,80)=$S($D(D0):D0,1:""),Y(90001.04,.08,1)=$S($D(^BMCPROV(D0,0)):^(0),1:""),D0=$P(Y(90001.04,.08,1),U,3) S:'$D(^BMCREF(+D0,0)) D0=-1
  • ALGORITHM:  REFERRAL DATE:REFERRAL #
  • LAST EDITED:  SEP 26, 2001
.09 PRIMARY VENDOR COMPUTED

  • MUMPS CODE:  X ^DD(90001.04,.09,9.2) S Y(90001.04,.09,101)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$S('$D(^AUTTVNDR(+$P(Y(90001.04,.09,101),U,7),0)):"",1:$P(^(0),U,1)) S D0=Y(90001.04,.09,80)
    9.2 = S Y(90001.04,.09,80)=$S($D(D0):D0,1:""),Y(90001.04,.09,1)=$S($D(^BMCPROV(D0,0)):^(0),1:""),D0=$P(Y(90001.04,.09,1),U,3) S:'$D(^BMCREF(+D0,0)) D0=-1
  • ALGORITHM:  REFERRAL DATE:TO PRIMARY VENDOR
  • LAST EDITED:  MAY 05, 2004
  • DESCRIPTION:  
    This is the vendor from the original referral.
.11 PRIMARY PURPOSE COMPUTED

  • MUMPS CODE:  X ^DD(90001.04,.11,9.2) S Y(90001.04,.11,101)=$S($D(^BMCREF(D0,12)):^(12),1:"") S X=$P(Y(90001.04,.11,101),U,1) S D0=Y(90001.04,.11,80)
    9.2 = S Y(90001.04,.11,80)=$S($D(D0):D0,1:""),Y(90001.04,.11,1)=$S($D(^BMCPROV(D0,0)):^(0),1:""),D0=$P(Y(90001.04,.11,1),U,3) S:'$D(^BMCREF(+D0,0)) D0=-1
  • ALGORITHM:  REFERRAL DATE:PURPOSE OF REFERRAL
  • LAST EDITED:  MAY 05, 2004
  • DESCRIPTION:  
    This is the Primary purpose from the original referral.
.12 PROVIDER IHS 0;8 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  MAY 05, 2004
    UNEDITABLE
1 MEDICAL HX & FINDINGS COMMENTS 1;0 WORD-PROCESSING #90001.041

  • LAST EDITED:  MAY 06, 2004
  • TECHNICAL DESCR:  
    This field contains the comments made by the physician to document Medical HX of the referred patient.
201 SUFFIX 2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<2)!'(X?1"A".N) X
  • LAST EDITED:  MAY 05, 2004
  • HELP-PROMPT:  Answer must be 2-3 characters in length.
  • CROSS-REFERENCE:  90001.04^S^MUMPS
    1)= S ^BMCPROV("S",$P(^BMCPROV(DA,0),U,3),X,DA)=""
    2)= K ^BMCPROV("S",$P(^BMCPROV(DA,0),U,3),X,DA)
202 TYPE 2;2 SET
************************REQUIRED FIELD************************
  • 'C' FOR CHS;
  • 'I' FOR IHS (ANOTHER FACILITY);
  • 'O' FOR OTHER;

  • LAST EDITED:  MAY 06, 2004
  • HELP-PROMPT:  ENTER THE TYPE OF REFERRAL.
203 OUTP VISITS LEFT 2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 05, 2004
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    NUMBER OF OUTPATIENT VISITS LEFT FROM ORIGINAL REFERRAL
204 REQUESTING PROVIDER 2;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 05, 2004
205 SPECIFIED PROVIDER VENDOR 2;5 POINTER TO RCIS SPECIFIC PROVIDER FILE (#90001.53) RCIS SPECIFIC PROVIDER(#90001.53)

  • LAST EDITED:  MAY 05, 2004
  • HELP-PROMPT:  Enter the specific provider name.
  • DESCRIPTION:  
    This is a specific provider, for instance patient referred to Clinic X, this entry would be for the provider at the clinic.
206 PRIMARY PAYOR 2;6 SET
  • '1' FOR IHS;
  • '2' FOR MEDICARE;
  • '3' FOR MEDICAID;
  • '4' FOR PRIVATE;
  • '5' FOR PATIENT;
  • '6' FOR VA;
  • '7' FOR OTHER;
  • '8' FOR WORKMAN'S COMPENSATION;

  • LAST EDITED:  MAY 05, 2004
207 ICD DIAGNOSTIC CATEGORY 2;7 POINTER TO RCIS ICD DIAGNOSTIC CATEGORY FILE (#90001.51) RCIS ICD DIAGNOSTIC CATEGORY(#90001.51)

  • LAST EDITED:  MAY 05, 2004
208 CPT SERVICE CATEGORY 2;8 POINTER TO RCIS HCPCS/CPT CATEGORY FILE (#90001.52) RCIS HCPCS/CPT CATEGORY(#90001.52)

  • LAST EDITED:  MAY 05, 2004

External References

Name Field # of Occurrence
^%DT .01+1, .06+1
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] ID.02+1
^AUTTVNDR - [#9999999.11] .09+1
^BMCPROV - [#90001.04] .08OF9.2+1, .09OF9.2+1, .11OF9.2+1, 201(XREF 1S), 201(XREF 1K)
^BMCPROV("AC" .02(XREF 1S), .02(XREF 1K)
^BMCPROV("AD" .03(XREF 1S), .03(XREF 1K)
^BMCPROV("AE" .05(XREF 1S), .05(XREF 1K)
^BMCPROV("B" .01(XREF 1S), .01(XREF 1K)
^BMCPROV("C" .02(XREF 2S), .02(XREF 2K)
^BMCPROV("S" 201(XREF 1S), 201(XREF 1K)
^BMCREF - [#90001] ID.03+1, .08+1, .08OF9.2+1, .09+1, .09OF9.2+1, .11+1, .11OF9.2+1
^DD(9000001 ID.02+1
^DD(90001.04 .08+1, .09+1, .11+1

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.03+1, .08+1, .08OF9.2+1, .09+1, .09OF9.2+1, .11OF9.2+1
^(12 .11+1
^(2 ID201+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, .06+1*
%I ID.02+1*!, ID.03+1*!
>> BMCLOOK .01(XREF 9S)
>> C ID.02+1*
>> D0 .08+1*, .08OF9.2+1*, .09+1*, .09OF9.2+1*, .11+1*, .11OF9.2+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K)
, 201(XREF 1S), 201(XREF 1K)
>> DIC ID.02+1, ID.03+1
>> DIC("DR" .01(XREF 9S)
U ID.02+1, ID.03+1, ID201+1, .08+1, .08OF9.2+1, .09+1, .09OF9.2+1, .11+1, .11OF9.2+1, 201(XREF 1S)
, 201(XREF 1K)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S)
, .05(XREF 1K), .06+1*!, .07+1!, .08+1*, .09+1*, .11+1*, 201+1!, 201(XREF 1S), 201(XREF 1K), 203+1!
>> Y ID.02+1*, ID.03+1*, .01+1, .06+1
>> Y( .08+1*, .08OF9.2+1*, .09+1*, .09OF9.2+1*, .11+1*, .11OF9.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