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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^BMCREF

Package: Referred Care Information System

Global: ^BMCREF


Information

FileMan FileNo FileMan Filename Package
90001 RCIS REFERRAL Referred Care Information System

Description

Directly Accessed By Routines, Total: 203

Package Total Routines
Referred Care Information System 141 BMCCLO    BMCFPIN    BMCFPRN    BMCFUNC1    BMCHS    BMCLKID    BMCMODS    BMCOUTRP
BMCP4    BMCRDLT    BMCRDSP    BMCRPC1    BMCRPC2    BMCRPC3    BMCRPC4    BMCRR101
BMCRR10P    BMCRR181    BMCRR18P    BMCRR191    BMCRR19P    BMCRR201    BMCRR20P    BMCRR221
BMCRR41    BMCRR51    BMCRR5P    BMCRR7P2    BMCRR91    BMCRR9P    BMCRTC1    BMCTEN1
BMCURMD    CHS APPROVAL STATUS AUDIT LOG    ^BMCPROV    ^BMCPX    BMC    BMC4P0    BMC4P6    BMC4P8
BMCAPI2    BMCCHSE    BMCRR131    ^BMCCOM    BMC4P    BMC4P10    BMC4P11    BMC4P12
BMC4P13    BMC4P7    BMC4P9    BMCADD1    BMCADD3    BMCADDS    BMCALERT    BMCCHS
BMCCLOS1    BMCCLOS3    BMCFDR    BMCFDR2    BMCFDRS    BMCFUTL    BMCLKID1    BMCLKID2
BMCRD    BMCREF    BMCRINH    BMCRL1    BMCRLP    BMCRR11    BMCRR141    BMCRR14P
BMCRR15    BMCRR16    BMCRRSP1    BMCRRSPP    BMCRUTL    CHS OTHER DENIAL PROVIDER    LOCAL SERVICE CATEGORY    SNOMED CLINICAL TERM
SNOMED CLOSED CLINCAL TERM    ^BMCDX    BMCADD    BMCADDFY    BMCAL1    BMCAPI    BMCAPI1    BMCBULL
BMCCHS1    BMCFAHC1    BMCFAHC2    BMCFAHC3    BMCFDR3    BMCFDRA    BMCFDRC    BMCFPRN2
BMCFPRN3    BMCFPRNA    BMCFPRNP    BMCFREQ1    BMCFUNC    BMCFY1    BMCMINI    BMCMM
BMCMOD    BMCOUTR1    BMCPCCL    BMCPXCHK    BMCPXREF    BMCRC32    BMCRCHS1    BMCRCHS2
BMCRCHS3    BMCRCHS4    BMCRCRV1    BMCRDEL    BMCRLU    BMCRLU1    BMCRR121    BMCRR13P
BMCRR171    BMCRR17P    BMCRR1P    BMCRR21    BMCRR22P    BMCRR23    BMCRR23P    BMCRR2P
BMCRR31    BMCRR61    BMCRR71    BMCRR7P    BMCRR81    BMCRR8P    BMCRRNDA    BMCSEL
BMCSPDSP    CHS OTHER DENIAL REASON    ^BMCREF    CHS AUTHORIZATIONS    TRANSITION OF CARE DOCUMENT    
IHS GPRA Information System 26 BGP0C2X    BGP0CU3    BGP0UTL2    BGP1C2X    BGP1CU3    BGP1UTL2    BGP2C2X    BGP2CU3
BGP2UTL2    BGP3C2X    BGP3CU3    BGP3UTL2    BGP4UTL2    BGP5C2    BGP5UTL2    BGP6C2
BGP6UTL2    BGP7C2    BGP7UTL2    BGP8C2X    BGP8CU3    BGP8PC14    BGP8UTL2    BGP9C2X
BGP9CU3    BGP9UTL2    
Patient Care Component Table Maintiance 10 APCM11E1    APCM11E5    APCM11E6    APCM13E1    APCM13E5    APCM13E6    APCM14E5    APCM24E5
APCM25E0    APCM25E5    
Patient Chart 5 BPCRC1    BPCRC3    BPCRC5    BPCRC6    BPCRC9    
Contract Health Management Information System 2 ACHSBMC    ACHSGAO    
Clinical Scheduling for Windows 1 BSDX41J    
Health Summary Components 1 BHSRCIS    
IHS Uniform Data System 1 BUDHUTL3    
Local Area Programs 1 AZAXDPM1    
Patient Care Component 1 APCDVREF    
Patient Care Component Reports 1 APCLSIL2    

Accessed By FileMan Db Calls, Total: 69

Package Total Routines
Referred Care Information System 63 BMC    BMC4P0    BMC4P10    BMC4P11    BMC4P12    BMC4P13    BMC4P2    BMC4P3
BMC4P4    BMC4P5    BMC4P6    BMC4P7    BMC4P8    BMC4P9    BMCADD    BMCADD1
BMCADDFY    BMCADDP    BMCADDS    BMCAPI2    BMCAPIS    BMCCHS    BMCCHS1    BMCCHSE
BMCCLO    BMCCLOS1    BMCCLOS3    BMCDKNA    BMCDSP    BMCFAHC    BMCFDR    BMCFDR2
BMCFDRA    BMCFDRC    BMCFDRP    BMCFDRS    BMCFPRNA    BMCFUNC    BMCFUNC1    BMCLKID2
BMCMINI    BMCMOD    BMCMODS    BMCNDA    BMCPCCL    BMCPCCV    BMCRD1    BMCRDEL
BMCRDLT    BMCREF    BMCRPC1    BMCRPC2    BMCRPC3    BMCRPC4    BMCRR14P    BMCRR17P
BMCRR19P    BMCRR2P    BMCRR7P    BMCRR8P    BMCSMC    BMCSPDSP    BMCURMD    
Patient Chart 2 BPCRC3    BPCRC6    
Contract Health Management Information System 1 ACHSBMC    
GUI Objects 1 BGOVTR    
Local Area Programs 1 AZQBMC    
iCare 1 BQIPTRF    

Pointed To By FileMan Files, Total: 8

Package Total FileMan Files
Referred Care Information System 6 RCIS COMMENTS(#90001.03)[.03]    RCIS DIAGNOSIS(#90001.01)[.03]    RCIS MESSAGES(#90001.57)[.02]    RCIS SECONDARY REFERRAL(#90001.04)[.03]    RCIS PROCEDURE(#90001.02)[.03]    RCIS ROUTINE REFERRAL DEF(#90001.32)[#90001.3221(.01)]    
Contract Health Management Information System 1 CHS FACILITY(#9002080)[#9002080.01(62)]    
IHS Patient 1 V REFERRAL(#9000010.59)[.06]    

Pointer To FileMan Files, Total: 16

Package Total FileMan Files
Referred Care Information System 6 RCIS LOCAL SERVICE CATEGORY(#90001.54)[#90001.21(.01)]    RCIS MANAGED CARE COMM ACTION(#90001.55)[1123]    RCIS SPECIFIC PROVIDER(#90001.53)[.09]    RCIS LOCAL UTIL REV BY MD CODES(#90001.56)[1125]    RCIS ICD DIAGNOSTIC CATEGORY(#90001.51)[.12]    RCIS HCPCS/CPT CATEGORY(#90001.52)[.13]    
IHS Patient 3 PATIENT(#9000001)[.03]    V REFERRAL(#9000010.59)[1303]    VISIT(#9000010)[.291309]    
Contract Health Management Information System 2 CHS DENIAL STATUS(#9002074)[6118]    CHS DENIAL REASON(#9002073)[1114#90001.43(.01)]    
Utility Tables 2 LOCATION(#9999999.06)[.05.08]    VENDOR(#9999999.11)[.07#90001.41(.09)#90001.44(.01)]
DRG Grouper 1 DRG(#80.2)[.21.22]    
Kernel 1 NEW PERSON(#200)[.06.19.24.25112111271308140261066108611061126115#90001.42(.02)#90001.6(.02)]
Scheduling 1 CLINIC STOP(#40.7)[.23]    

Fields, Total: 139

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  APR 06, 2006
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND TODAY
  • TECHNICAL DESCR:  This field contains the date the provider made the referral, i.e., the date the referral form was filled out.
    For the original generation of this record the user is asked for the date and this field is generated by software.
  • CROSS-REFERENCE:  90001^B
    1)= S ^BMCREF("B",$E(X,1,30),DA)=""
    2)= K ^BMCREF("B",$E(X,1,30),DA)
.02 REFERRAL # 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<13)!'(X?13N) X
  • LAST EDITED:  OCT 12, 2012
  • HELP-PROMPT:  Answer must be 13 characters in length.
  • TECHNICAL DESCR:  
    This field contains the referral record number.  This number is generated by software and consists of the six digit asufac concatenated with the current fiscal year concatenated with a sequential five digit number.
  • CROSS-REFERENCE:  90001^C
    1)= S ^BMCREF("C",$E(X,1,30),DA)=""
    2)= K ^BMCREF("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90001^BS1^MUMPS
    1)= Q:$P(^BMCREF(DA,0),U,2)=""  S ^BMCREF("BS1",+$E($P(^(0),U,2),9,13),DA)=""
    2)= Q:$P(^BMCREF(DA,0),U,2)=""  K ^BMCREF("BS1",+$E($P(^(0),U,2),9,13),DA)
    This Cross Reference "BS1" Allows Referral Number Lookup by using the Significant Digits of the 9th Through the 13th Digits of the Referral Number. For Example, Referral Number 0001019700008 can be Found by Entering "8".
  • CROSS-REFERENCE:  90001^AG^MUMPS
    1)= S ^BMCREF("FY",$E(X,1,8),DA)=""
    2)= K ^BMCREF("FY",$E(X,1,8),DA)
.03 PATIENT 0;3 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 17, 2006
  • TECHNICAL DESCR:  This field contains the patient who is being referred.
    For the original generation of this record the user is asked for the patient and this field is set by software.
  • CROSS-REFERENCE:  90001^D
    1)= S ^BMCREF("D",$E(X,1,30),DA)=""
    2)= K ^BMCREF("D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90001^AA^MUMPS
    1)= S ^BMCREF("AA",X,$P(^BMCREF(DA,0),U),DA)=""
    2)= K ^BMCREF("AA",X,$P(^BMCREF(DA,0),U),DA)
    This xref is by patient,date of referral.  It was created to prevent duplicate referrals for the same patient on the same day.  It may be used for other purposes also.
.04 TYPE 0;4 SET
************************REQUIRED FIELD************************
  • 'C' FOR CHS;
  • 'I' FOR IHS (ANOTHER FACILITY);
  • 'O' FOR OTHER;
  • 'N' FOR IN-HOUSE;

  • LAST EDITED:  JUL 10, 1997
  • HELP-PROMPT:  Is this Referral TYPE a CHS, IHS, OTHER, or IN-HOUSE
  • TECHNICAL DESCR:  This field indicates whether the facility/provider to which the patient is being referred is a CHS facility, an IHS facility, or some other type. A facility may be a CHS facility in the VENDOR file but this referral may
    be to that facility without CHS being the payor.  In that case the TYPE would be OTHER.  IN-HOUSE Referrals are screened out of all Report Outputs.
    Type determination is based upon who is the Responsible Party paying for these services.
    If this field value is C for CHS then the IHS, using CHS funds, is the payor.
  • EXECUTABLE HELP:  W !," TYPE selection is based upon the party who is Responsible for payment of ser-",!," vices. TYPE cannot be changed from CHS if a CHS Authorization exists for this",!," Referral."
  • CROSS-REFERENCE:  ^^TRIGGER^90001^.11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X="I" I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X="OTHER" X ^DD(90001,.04,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=90001,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(90001,.04,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(90001,.04,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(90001,.04,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_X_":",2),$C(59),1)="ANOTHER IHS FACILITY"
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=90001,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= INTERNAL(TYPE)="I"
    CREATE VALUE)= S X="OTHER"
    DELETE CONDITION)= OLD TYPE="ANOTHER IHS FACILITY"
    DELETE VALUE)= @
    FIELD)= PRIMARY PAYOR
    This trigger sets the PRIMARY PAYOR field to OTHER anytime the TYPE field is set to I.  The PRIMARY PAYOR field is deleted whenever the TYPE field is changed from ANOTHER IHS FACILITY to any other value.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^.08
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$S($D(^BMCREF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90001,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1
    ,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= TO IHS FACILITY
    This trigger deletes the TO IHS FACILITY field any time the TYPE field is changed or deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1112
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(90001,.04,1,5,69.3) S X=X&Y I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X="P" X ^DD(90001,.04,1,5,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,12)=DIV,DIH=90001,DIG=1112 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    69.2)= S Y(1)=$C(59)_$S($D(^DD(90001,.04,0)):$P(^(0),U,3),1:""),Y(4)=$C(59)_$S($D(^DD(90001,1112,0)):$P(^(0),U,3),1:""),Y(3)=$S($D(^BMCREF(D0,11)):^(11),1:"")
    69.3)= X ^DD(90001,.04,1,5,69.2) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="CHS",Y(2)=X S X=$P($P(Y(4),$C(59)_$P(Y(3),U,12)_":",2),$C(59),1)="",Y=X,X=Y(2),X=X
    CREATE CONDITION)= TYPE="CHS"&(CHS APPROVAL STATUS="")
    CREATE VALUE)= S X="P"
    DELETE VALUE)= NO EFFECT
    FIELD)= CHS APPROVAL STATUS
    This trigger sets the CHS APPROVAL STATUS anytime the TYPE field is set to CHS and the CHS APPROVAL STATUS field was previously blank.  Nothing occurs on the kill side in order to leave the history of the chs activity
    intact.  (e.g CHS DENIAL REASON)
  • CROSS-REFERENCE:  90001^AZ8^MUMPS
    1)= I $G(BMCCHSA),X="C" S BMCXREF("CHS ALERT")=1
    2)= K:X="C" BMCXREF("CHS ALERT")
    This xref sets a variables that causes a bulletin to be sent after the user exits the editing of this referral.
  • CROSS-REFERENCE:  90001^AZ10^MUMPS
    1)= I $G(BMCIHSA),X="I" S BMCXREF("IHS ALERT")=1
    2)= K:X="I" BMCXREF("IHS ALERT")
  • CROSS-REFERENCE:  90001^AZ11^MUMPS
    1)= I $G(BMCOTHRA),X="O" S BMCXREF("OTHER ALERT")=1
    2)= K:X="O" BMCXREF("OTHER ALERT")
  • CROSS-REFERENCE:  90001^AZ12^MUMPS
    1)= I $G(BMCHOUSA),X="N" S BMCXREF("INHOUSE ALERT")=1
    2)= K:X="N" BMCXREF("INHOUSE ALERT")
.05 REQUESTING FACILITY 0;5 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  OCT 11, 1995
  • TECHNICAL DESCR:  
    This field contains the facility requesting the referral.
.06 REQUESTING PROVIDER 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 06, 1997
  • TECHNICAL DESCR:  
    This field contains the provider requesting the referral.
  • AUDIT:  EDITED OR DELETED
  • CROSS-REFERENCE:  90001^E
    1)= S ^BMCREF("E",$E(X,1,30),DA)=""
    2)= K ^BMCREF("E",$E(X,1,30),DA)
.07 TO PRIMARY VENDOR 0;7 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTVNDR(+Y,0),U,5)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 02, 2001
  • TECHNICAL DESCR:  This field contains the primary vendor to which the patient is being referred. This is normally used for CHS referrals but will also be used for other 3rd party payor referrals to facilities in the VENDOR file. If the
    referral is to a provider not in the VENDOR file a generic vendor is selected and the actual provider is entered in the TO OTHER PROVIDER field.
    This field is only relevant if .04 TYPE is CHS or OTHER.
  • SCREEN:  S DIC("S")="I $P(^AUTTVNDR(+Y,0),U,5)="""""
  • EXPLANATION:  Inactive Vendors are Screened Out
.08 TO IHS FACILITY 0;8 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  JUN 28, 1995
  • TECHNICAL DESCR:  
    This field contains the IHS facility to which the patient is being referred.  This field is only relevant if .04 TYPE is IHS.
  • NOTES:  TRIGGERED by the TYPE field of the RCIS REFERRAL File
.09 TO OTHER PROVIDER 0;9 POINTER TO RCIS SPECIFIC PROVIDER FILE (#90001.53) RCIS SPECIFIC PROVIDER(#90001.53)

  • LAST EDITED:  NOV 30, 1995
  • TECHNICAL DESCR:  
    This field contains the non-CHS/non-IHS provider to which the patient is being referred.  This field will contain data only for referrals where .04 TYPE is OTHER and .07 TO PRIMARY VENDOR is a generic vendor.
.0999 FACILITY REFERRED TO (COMP) COMPUTED

  • MUMPS CODE:  S X=$$FACREF^BMCRLU(DA)
  • ALGORITHM:  S X=$$FACREF^BMCRLU(DA)
.11 PRIMARY PAYOR 0;11 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:  FEB 05, 1996
  • TECHNICAL DESCR:  
    This field contains the entity that is primarily responsible for paying for the treatment the patient will receive based on this referral.
  • NOTES:  TRIGGERED by the TYPE field of the RCIS REFERRAL File
.12 ICD DIAGNOSTIC CATEGORY 0;12 POINTER TO RCIS ICD DIAGNOSTIC CATEGORY FILE (#90001.51) RCIS ICD DIAGNOSTIC CATEGORY(#90001.51)

  • INPUT TRANSFORM:  S DIC("S")="D DXCAT^BMCADD1 Q:BMCDOS'?1N.N I ((($P(^BMCTDXC(Y,0),U,2)-1)BMCDOS))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 27, 2015
  • TECHNICAL DESCR:  
    This field contains the ICD diagnostic category.
  • SCREEN:  S DIC("S")="D DXCAT^BMCADD1 Q:BMCDOS'?1N.N I ((($P(^BMCTDXC(Y,0),U,2)-1)BMCDOS))"
  • EXPLANATION:  SCREEN USED TO TEST FOR VALID DATE OF SERVICE FOR ACTIVE AND INACTIVE DATES ON DX CATEGORY CODES.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90001^AZ1^MUMPS
    1)= I $P(^BMCREF(DA,0),U,4)'="O",$P(^BMCTDXC(X,0),U)["INJUR" S BMCBULLC="" D EN1^BMCBULL K BMCBULLC
    2)= Q
    This mumps xref calls a routine to send a bulletin if the diagnostic category may involve third party liability.
.13 CPT SERVICE CATEGORY 0;13 POINTER TO RCIS HCPCS/CPT CATEGORY FILE (#90001.52) RCIS HCPCS/CPT CATEGORY(#90001.52)

  • LAST EDITED:  OCT 11, 1995
  • TECHNICAL DESCR:  
    This field contains the CPT service category for which this patient is being referred.
.14 INPATIENT OR OUTPATIENT 0;14 SET
************************REQUIRED FIELD************************
  • 'I' FOR INPATIENT;
  • 'O' FOR OUTPATIENT;

  • LAST EDITED:  OCT 07, 1995
  • TECHNICAL DESCR:  
    This field indicates whether the patient is to be treated as an inpatient or an outpatient.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1109
    1)= X ^DD(90001,.14,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(90001,.14,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(90001,.14,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="OUTPATIENT"
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,9)=DIV,DIH=90001,DIG=1109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= INPATIENT OR OUTPATIENT="OUTPATIENT"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= INP ESTIMATED LOS
    This trigger deletes the INP ESTIMATED LOS if the INPATIENT OR OUTPATIENT field is set to OUTPATIENT.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1110
    1)= X ^DD(90001,.14,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(90001,.14,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(90001,.14,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="OUTPATIENT"
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,10)=DIV,DIH=90001,DIG=1110 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= INPATIENT OR OUTPATIENT="OUTPATIENT"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= INP ACTUAL LOS
    This trigger deletes the INP ACTUAL LOS if the INPATIENT OR OUTPATIENT field is set to OUTPATIENT.
.1499 DAYS SINCE BEGIN DOS COMPUTED

  • MUMPS CODE:  X ^DD(90001,.1499,9.3) S X=$S(Y(90001,.1499,3):Y(90001,.1499,4),Y(90001,.1499,5):X) S Y=X,X=Y(90001,.1499,1),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1
    9.2 = S Y(90001,.1499,2)=$S($D(^BMCREF(D0,11)):^(11),1:""),X=DT S X=X,Y(90001,.1499,1)=X S X=$P(Y(90001,.1499,2),U,6),Y(90001,.1499,3)=X S X=$P(Y(90001,.1499,2),U,6)
    9.3 = X ^DD(90001,.1499,9.2) S Y(90001,.1499,4)=X S X=1,Y(90001,.1499,5)=X S X=$P(Y(90001,.1499,2),U,5)
  • ALGORITHM:  TODAY-$S(#1106:#1106,1:#1105)
  • LAST EDITED:  OCT 11, 1995
  • TECHNICAL DESCR:  
    This computed field computes the number of days since the begin dos.  It can be used to compute the number of days a patient has been in the hospital but the user must limit the records to active inpatient referrals.
.15 STATUS OF REFERRAL 0;15 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'A1' FOR APPROVED;
  • 'C1' FOR CLOSED-COMPLETED;
  • 'X' FOR CLOSED-NOT COMPLETED;

  • LAST EDITED:  MAY 09, 2014
  • TECHNICAL DESCR:  This field contains the current status of this referral record. When the record is first created this status will be A for active. The status should be changed to A1-Approved, if patient has been approved by CHS or
    referral visit has been created.  If not completed it will be set to X.  If completed and closed it will be set to C1.
    The original setting of this field to A is done by software.
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the CHS AUTHORIZATIONS PAID field of the RCIS REFERRAL File
    TRIGGERED by the CHS APPROVAL STATUS field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  ^^TRIGGER^90001^.16
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$S($D(^BMCREF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=90001,DIG=.16 D ^DICR:$O(^DD(DIH,DIG
    ,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= REASON NOT COMPLETED
    This trigger deletes the REASON NOT COMPLETED field any time the STATUS OF REFERRAL field is changed or deleted.
  • CROSS-REFERENCE:  90001^AB^MUMPS
    1)= S:X="A" ^BMCREF("AB",X,DA)=""
    2)= K:X="A" ^BMCREF("AB",X,DA)
    This xref is used by software to find active referrals.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^.17
    1)= X ^DD(90001,.15,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^BMCREF(DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=90001,DIG=.17 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(90001,.15,1,3,69.2) S X=$P($P(Y(3),$C(59)_Y(0)_":",2),$C(59))="CLOSED-NOT COMPLETED",Y=X,X=Y(2),X=X!Y
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=90001,DIG=.17 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$G(^BMCREF(DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=90001,DIG=.17 D ^DICR
    69.2)= S Y(1)=$C(59)_$P($G(^DD(90001,.15,0)),U,3),Y(3)=$C(59)_$P($G(^DD(90001,.15,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="CLOSED-COMPLETED",Y(2)=$G(X)
    CREATE CONDITION)= (STATUS OF REFERRAL="CLOSED-COMPLETED")!(STATUS OF REFERRAL="CLOSED-NOT COMPLETED")
    CREATE VALUE)= S X=DT
    DELETE VALUE)= @
    FIELD)= DATE CLOSED
    This trigger sets the DATE CLOSED field to DT when the referral status is changed to C1 or X.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^.24
    1)= X ^DD(90001,.15,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BMCREF(DIV(0),0)),DIV=X S $P(^(0),U,24)=DIV,DIH=90001,DIG=.24 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(90001,.15,1,4,69.2) S X=$P($P(Y(3),$C(59)_Y(0)_":",2),$C(59))="CLOSED-NOT COMPLETED",Y=X,X=Y(2),X=X!Y
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=90001,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" S DIH=$G(^BMCREF(DIV(0),0)),DIV=X S $P(^(0),U,24)=DIV,DIH=90001,DIG=.24 D ^DICR
    69.2)= S Y(1)=$C(59)_$P($G(^DD(90001,.15,0)),U,3),Y(3)=$C(59)_$P($G(^DD(90001,.15,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="CLOSED-COMPLETED",Y(2)=$G(X)
    CREATE CONDITION)= (STATUS OF REFERRAL="CLOSED-COMPLETED")!(STATUS OF REFERRAL="CLOSED-NOT COMPLETED")
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= @
    FIELD)= CLOSED BY USER
    This trigger sets the CLOSED BY USER field to DUZ when the referral status is changed to C1 or X.
  • CROSS-REFERENCE:  90001^AZ9^MUMPS
    1)= D:$E(X)="C" ^BMCPXCHK
    2)= Q
    The routine executed by this routine check for logical consistency between the cpt category and the cpt procedures.
  • CROSS-REFERENCE:  90001^AH^MUMPS
    1)= D:X="A1" APRV^BMCALERT
    2)= Q
    When status changes to Approved, an Alert will be sent to the Referring provider and the patient's primary provider.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1305
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(90001,.15,1,7,69.2) S X=X="APPROVED",Y=X,X=Y(2),X=X&Y I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,13)):^(13),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(90001,.15,1,
    7,1.4)
    1.4)= S DIH=$G(^BMCREF(DIV(0),13)),DIV=X S $P(^(13),U,5)=DIV,DIH=90001,DIG=1305 D ^DICR
    2)= Q
    69.2)= S Y(3)=$C(59)_$P($G(^DD(90001,.15,0)),U,3),Y(1)=$S($D(^BMCREF(D0,13)):^(13),1:"") S X=$P(Y(1),U,5)="",Y(2)=$G(X) S X=$P($P(Y(3),$C(59)_Y(0)_":",2),$C(59))
    CREATE CONDITION)= (APPROVAL DATE="")&(STATUS OF REFERRAL="APPROVED")
    CREATE VALUE)= S X=DT
    DELETE VALUE)= NO EFFECT
    FIELD)= APPROVAL DATE
    When the status is changed to approved, the approval date is set only if the approval date has not been previously set.
.16 REASON NOT COMPLETED 0;16 SET
  • '1' FOR FAILED TO APPLY FOR ALTERNATIVE RESOURCES;
  • '2' FOR FAILED TO KEEP APPOINTMENT;
  • '3' FOR CONDITION RESOLVED;
  • '4' FOR ADMINISTRATIVE ERROR;
  • '5' FOR CHS DENIAL;
  • '6' FOR UNKNOWN;
  • '7' FOR NEED ADDITIONAL INFORMATION;
  • '8' FOR OTHER;

  • LAST EDITED:  AUG 18, 2005
  • TECHNICAL DESCR:  
    This field is only used if this referral was not completed and indicates the reason it was not completed.
  • NOTES:  TRIGGERED by the STATUS OF REFERRAL field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  90001^AF^MUMPS
    1)= S ^BMCREF("AF",X,$P(^BMCREF(DA,0),U),DA)=""
    2)= K ^BMCREF("AF",X,$P(^BMCREF(DA,0),U),DA)
    INDEX = "AF",REASON NOT COMPLETED,DATE REFERRAL INITIATED,IEN
.17 DATE CLOSED 0;17 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  OCT 27, 1995
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND TODAY
  • TECHNICAL DESCR:  
    This field contains the date this referral was closed.  Either by being completed or not completed.
  • NOTES:  TRIGGERED by the STATUS OF REFERRAL field of the RCIS REFERRAL File
.18 DATE DSCH SUMM/CONS LTR RCVD 0;18 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND TODAY
  • TECHNICAL DESCR:  
    This field contains the date the discharge summary or consult letter was received.
.19 CASE MANAGER 0;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 22, 1995
  • TECHNICAL DESCR:  
    This field contains the person who is managing this case.
.21 PROVISIONAL DRG 0;21 POINTER TO DRG FILE (#80.2) DRG(#80.2)

  • LAST EDITED:  OCT 11, 1995
  • TECHNICAL DESCR:  
    This field contains the DRG based on the provisional diagnoses at the time of the referral.
.22 FINAL DRG 0;22 POINTER TO DRG FILE (#80.2) DRG(#80.2)

  • LAST EDITED:  SEP 05, 1995
  • TECHNICAL DESCR:  
    This field contains the final DRG based on the services actually provided.
.23 CLINIC REFERRED TO (IN HOUSE) 0;23 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  MAR 05, 1996
.24 CLOSED BY USER 0;24 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 26, 1995
  • TECHNICAL DESCR:  
    This field contains the user that closed this referral.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the STATUS OF REFERRAL field of the RCIS REFERRAL File
.25 CREATED BY USER 0;25 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  SEP 06, 1995
  • TECHNICAL DESCR:  
    This field contains the user who created this referral record.  This field is generated by software.
.26 DATE CREATED 0;26 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND TODAY
  • TECHNICAL DESCR:  
    This field contains the date this referral record was created.  This field is generated by software.
.27 DATE LAST MODIFIED 0;27 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND TODAY
  • TECHNICAL DESCR:  This field contains the date this referral record was last modified.
    This field is generated by software when the record is originally created and modified by software when the record is edited.
.28 DATE EXPORTED 0;28 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND TODAY
  • TECHNICAL DESCR:  
    This field contains the date this referral record was exported to the Area.
.29 PCC VISIT 0;29 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  This is the outside visit patient was referred to.
  • TECHNICAL DESCR:  
    This field points to the PCC visit generated from this referral record.  This field is only used when the PCC link is active.
.31 NEXT REVIEW DATE 0;31 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DT+10000X) X
  • LAST EDITED:  OCT 27, 1995
  • HELP-PROMPT:  TYPE A DATE WITHIN THE NEXT YEAR
  • TECHNICAL DESCR:  
    This field contains the date on which the referral manager wants to review this referral again.
.32 PRIORITY 0;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5AN) X
  • LAST EDITED:  SEP 18, 2001
  • HELP-PROMPT:  Enter 1-5 alpha or numeric only-no punctuation
  • EXECUTABLE HELP:  D PRIORITY^BMCHELP
.34 SEND ADDITIONAL MED INFO 0;34 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 21, 1996
.35 CHS ELIGIBILITY FACTOR 0;35 SET
  • 'Y' FOR YES;

  • LAST EDITED:  NOV 27, 2001
101 SECONDARY SUFFIX 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<2)!'(1"A".N) X
  • LAST EDITED:  MAY 04, 2005
  • HELP-PROMPT:  Answer must be 2-3 characters in length
  • CROSS-REFERENCE:  90001^S^MUMPS
    1)= Q:$P(^BMCREF(DA,0),U,2)=""  S ^BMCREF("S",$P(^(0),U,2),X,DA)=""
    2)= Q:$P(^BMCREF(DA,0),U,2)=""  K ^BMCREF("S",$P(^(0),U,2),X,DA)
    This cross reference identifies the secondary referrals
  • CROSS-REFERENCE:  90001^S1^MUMPS
    1)= Q:$P(^BMCREF(DA,0),U,2)=""  S ^BMCREF("S1",+$E($P(^(0),U,2),9,13)_X,DA)=""
    2)= Q:$P(^BMCREF(DA,0),U,2)=""  K ^BMCREF("S1",+$E($P(^(0),U,2),9,13)_X,DA)
102 PRIMARY REF PT 1;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 05, 2005
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is used for Secondary referral and points to the primary referral.
103 CALL IN NOTIFICATION DATE 1;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 26, 2017
  • HELP-PROMPT:  Enter date the call in referral request was received.
104 CALL IN BY 1;4 SET
  • 'F' FOR FACILITY;
  • 'P' FOR PATIENT;
  • 'O' FOR OTHER;

  • LAST EDITED:  JUN 26, 2017
  • HELP-PROMPT:  Enter who called in the call in referral request.
201 NOT COMPLETED NOTES 2;0 WORD-PROCESSING #90001.201
401 INCLUDE PCC VISIT FORM 4;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF PCC FISIT FORM IS TO BE INCLUDED WITH THIS REFERRAL
402 INCLUDE SPECIALTY CLINIC NOTES 4;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ENTER YES IF SPECIALTY CLINIC NOTES WILL ACCOMPANY WITH THIS REFERRAL
403 INCLUDE PRENATAL RECORD(S) 4;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF PRENATAL RECORD(S) ARE TO BE INCLUDED WITH THIS REFERRAL
404 INCLUDE SIGNED TUBAL CONSENT 4;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF A SIGNED TUBAL CONSENT IS TO BE INCLUDED WITH THIS REFERRAL
405 INCLUDE FACE SHEET 4;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF A FACE SHEET IS TO BE INCLUDED WITH THIS REFERRAL
406 INCLUDE HEALTH SUMMARY 4;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF THE HEALTH SUMMARY IS TO BE INCLUDED WITH THIS REFERRAL
407 INCLUDE MOST RECENT EKG 4;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF THE MOST RECENT EKG WILL BE INCLUDED WITH THIS REFERRAL
408 INCLUDE HISTORY AND PHYSICAL 4;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF THE PATIENT'S MOST RECENT HISTORY AND PHYSICAL ARE TO BE INCLUDED WITH THIS REFERRAL
409 INCLUDE X-RAY / REPORT 4;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF THE MOST RECENT X-RAY OR REPORT WILL BE INCLUDED WITH THIS REFERRAL
410 INCLUDE X-RAY FILM 4;10 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF THE X-RAY FILM IS TO BE INCLUDED WITH THIS REFERRAL
411 INCLUDE CONSULTATION REPORT 4;11 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF A CONSULTATION REPORT WILL ACCOMPANY THIS REFERRAL
412 INCLUDE MOST RECENT LAB REPORT 4;12 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  ANSWER YES IF THE MOST RECENT LAB REPORT IS TO BE INCLUDED WITH THIS REFERRAL
501 INCLUDE MISC DOC 5;0 WORD-PROCESSING #90001.5
600 TRANSITION OF CARE DOCUMENT 6;0 DATE Multiple #90001.6 90001.6

  • LAST EDITED:  MAY 07, 2013
  • DESCRIPTION:  
    This multiple will contain the C32 or CCDA Document status.
  • IDENTIFIED BY:  PRINTED-TRANSMITTED BY(#.02), DOCUMENT TYPE(#.04)
1101 ESTIMATED TOTAL REFERRAL COST 11;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 24, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, Dollars only
  • TECHNICAL DESCR:  
    This field contains the total estimated cost at the time of the referral.
1102 FINAL TOTAL REFERRAL COST 11;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 24, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, Dollars only
  • TECHNICAL DESCR:  This field contains the actual total cost of the treatment the patient received as a result of this referral.
    For CHS referrals this field is not set until all authorizations have been paid.
  • NOTES:  TRIGGERED by the TOTAL REFERRAL COSTS TO DATE field of the RCIS REFERRAL File
1103 ESTIMATED IHS REFERRAL COST 11;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 24, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, Dollars only
  • TECHNICAL DESCR:  
    This field contains the estimated total cost to the IHS of this referral.
1104 FINAL IHS REFERRAL COST 11;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 24, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, Dollars only
  • TECHNICAL DESCR:  This field contains the actual total cost to the IHS for this referral.
    For CHS referrals this field is not set until all authorizations have been paid.
  • NOTES:  TRIGGERED by the IHS REFERRAL COSTS TO DATE field of the RCIS REFERRAL File
1105 EXPECTED BEGIN DOS 11;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 09, 2006
  • TECHNICAL DESCR:  
    This field contains the expected date for the services to begin (i.e., admission date for a hospitalization).
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1107
    1)= X ^DD(90001,1105,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90001,1105,1,1,1.1) X ^DD(90001,1105,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=DIV,X1=X,X2=+$P(Y(1),U,9),X="" D C^%DTC:X1
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(90001,.14,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)="INPATIENT"
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,7)=DIV,DIH=90001,DIG=1107 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,5)="" I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(90001,1105,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,7)=DIV,DIH=90001,DIG=1107 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= INPATIENT OR OUTPATIENT="INPATIENT"
    CREATE VALUE)= EXPECTED BEGIN DOS+INP ESTIMATED LOS
    DELETE CONDITION)= EXPECTED BEGIN DOS=""
    DELETE VALUE)= @
    FIELD)= EXPECTED END DOS
  • CROSS-REFERENCE:  90001^BA
    1)= S ^BMCREF("BA",$E(X,1,30),DA)=""
    2)= K ^BMCREF("BA",$E(X,1,30),DA)
1106 ACTUAL APPT/BEGIN DOS 11;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:DT+1X) X
  • LAST EDITED:  MAY 10, 2006
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND DT+1
  • TECHNICAL DESCR:  This field contains the date the services actually began (i.e., the admission date for a hospitalization). Future Dates are NOT allowed - User should use the EXPECTED BEG DOS field to record scheduled appointments. The
    ACTUAL BEG DOS field is automatically populated when EOBR's are downloaded into the CHS Package;i.e., User does NOT have to record this data.
  • EXECUTABLE HELP:  W !,?10,"Future Dates are NOT allowed in the ACTUAL Begining Date of Service",!,?10,"This field is automatically populated when EOBR's are downloaded",!,?10,"after services have ACTUALLY been rendered. Use EXPECTED BEG DO
    S",!
  • NOTES:  TRIGGERED by the ACTUAL BEGINNING DATE field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1110
    1)= X ^DD(90001,1106,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(90001,1106,1,1,1.1) X ^DD(90001,1106,1,1,1.4)
    1.1)= S X=DIV X ^DD(90001,1106,1,1,49.2) S X=X+1,Y(4)=X S X=1,Y(5)=X S X=0,X=$S(Y(3):Y(4),Y(5):X)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(90001,.14,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)="INPATIENT"
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,10)=DIV,DIH=90001,DIG=1110 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(90001,1106,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(90001,1106,1,1,2.1) X ^DD(90001,1106,1,1,2.4)
    2.1)= S X=DIV X ^DD(90001,1106,1,1,59.2) S X=X+1,Y(4)=X S X=1,Y(5)=X S X=0,X=$S(Y(3):Y(4),Y(5):X)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(90001,.14,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)="INPATIENT"
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,10)=DIV,DIH=90001,DIG=1110 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,8)'="",Y(2)=X S X=DIV'="",Y=X,X=Y(2),X=X&Y,Y(3)=X S X=$P(Y(1),U,8),X1=X,X2=DIV,X="" D:X2 ^%DTC:X1 S X=X
    59.2)= S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,8)'="",Y(2)=X S X=$P(Y(1),U,6)'="",Y=X,X=Y(2),X=X&Y,Y(3)=X S X=$P(Y(1),U,8),X1=X,X2=$P(Y(1),U,6),X="" D:X2 ^%DTC:X1 S X=X
    CREATE CONDITION)= INPATIENT OR OUTPATIENT="INPATIENT"
    CREATE VALUE)= $S(#1108'=""&(#1106'=""):#1108-#1106+1,1:0)
    DELETE CONDITION)= INPATIENT OR OUTPATIENT="INPATIENT"
    DELETE VALUE)= $S(#1108'=""&(#1106'=""):#1108-#1106+1,1:0)
    FIELD)= INP ACTUAL LOS
  • CROSS-REFERENCE:  90001^BB
    1)= S ^BMCREF("BB",$E(X,1,30),DA)=""
    2)= K ^BMCREF("BB",$E(X,1,30),DA)
1107 EXPECTED END DOS 11;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 11, 1997
  • TECHNICAL DESCR:  
    This field contains the last date services were provided under the authority of this referral.
  • NOTES:  TRIGGERED by the INP ESTIMATED LOS field of the RCIS REFERRAL File
    TRIGGERED by the EXPECTED BEGIN DOS field of the RCIS REFERRAL File
1108 ACTUAL END DOS 11;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  DEC 16, 1997
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND TODAY
  • TECHNICAL DESCR:  This field contains the data the services actually ended (i.e. the discharge date for a hospitalization). Future dates are NOT allowed - User should use the EXPECTED END DOS field to record scheduled appointments. The
    ACTUAL END DOS field is automatically populated when EOBR'S are downloaded into the CHS Package;i.e., User does NOT have to record this data.
  • EXECUTABLE HELP:  W !,?10,"Future Dates are NOT allowed in the ACTUAL END DOS",!,?10,"This field is automatically populated when EOBR's are downloaded",!,?10,"after services have ACTUALLY been rendered. Use EXPECTED END DOS",!
  • NOTES:  TRIGGERED by the ACTUAL ENDING DATE field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  90001^AC
    1)= S ^BMCREF("AC",$E(X,1,30),DA)=""
    2)= K ^BMCREF("AC",$E(X,1,30),DA)
    This X-Ref is created for purposes of quickly Ordering through the Actual Ending Date of Service.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1110
    1)= X ^DD(90001,1108,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(90001,1108,1,2,1.1) X ^DD(90001,1108,1,2,1.4)
    1.1)= S X=DIV X ^DD(90001,1108,1,2,49.2) S X=X+1,Y(4)=X S X=1,Y(5)=X S X=0,X=$S(Y(3):Y(4),Y(5):X)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(90001,.14,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)="INPATIENT"
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,10)=DIV,DIH=90001,DIG=1110 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(90001,1108,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(90001,1108,1,2,2.1) X ^DD(90001,1108,1,2,2.4)
    2.1)= S X=DIV X ^DD(90001,1108,1,2,59.2) S X=X+1,Y(4)=X S X=1,Y(5)=X S X=0,X=$S(Y(3):Y(4),Y(5):X)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(90001,.14,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)="INPATIENT"
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,10)=DIV,DIH=90001,DIG=1110 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S Y(2)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=DIV'="",Y(1)=X S X=$P(Y(2),U,6)'="",Y=X,X=Y(1),X=X&Y,Y(3)=X S X=DIV,X1=X,X2=$P(Y(2),U,6),X="" D:X2 ^%DTC:X1 S X=X
    59.2)= S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,8)'="",Y(2)=X S X=$P(Y(1),U,6)'="",Y=X,X=Y(2),X=X&Y,Y(3)=X S X=$P(Y(1),U,8),X1=X,X2=$P(Y(1),U,6),X="" D:X2 ^%DTC:X1 S X=X
    CREATE CONDITION)= INPATIENT OR OUTPATIENT="INPATIENT"
    CREATE VALUE)= $S(#1108'=""&(#1106'=""):#1108-#1106+1,1:0)
    DELETE CONDITION)= INPATIENT OR OUTPATIENT="INPATIENT"
    DELETE VALUE)= $S(#1108'=""&(#1106'=""):#1108-#1106+1,1:0)
    FIELD)= INP ACTUAL LOS
1109 INP ESTIMATED LOS 11;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 11, 1997
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • TECHNICAL DESCR:  
    This field is the estimated length of stay for a hospital admission.
  • NOTES:  TRIGGERED by the INPATIENT OR OUTPATIENT field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1107
    1)= X ^DD(90001,1109,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90001,1109,1,1,1.1) X ^DD(90001,1109,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,5),X1=X,X2=+DIV,X="" D C^%DTC:X1
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(90001,1109,1,1,69.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":",2),$C(59),1)="INPATIENT",Y(3)=X S X=$P(Y(4),U,5)'="",Y=X,X=Y(3),X=X&Y
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,7)=DIV,DIH=90001,DIG=1107 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,5)="" I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(90001,1109,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,7)=DIV,DIH=90001,DIG=1107 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    69.2)= S Y(2)=$C(59)_$S($D(^DD(90001,.14,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:""),Y(4)=$S($D(^(11)):^(11),1:"")
    CREATE CONDITION)= INPATIENT OR OUTPATIENT="INPATIENT"&(EXPECTED BEGIN DOS'="")
    CREATE VALUE)= EXPECTED BEGIN DOS+INP ESTIMATED LOS
    DELETE CONDITION)= EXPECTED BEGIN DOS=""
    DELETE VALUE)= @
    FIELD)= EXPECTED END DOS
1110 INP ACTUAL LOS 11;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 09, 1998
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • TECHNICAL DESCR:  
    This field contains the actual length of stay for a hospital admission.
  • NOTES:  TRIGGERED by the INPATIENT OR OUTPATIENT field of the RCIS REFERRAL File
    TRIGGERED by the ACTUAL APPT/BEGIN DOS field of the RCIS REFERRAL File
    TRIGGERED by the ACTUAL END DOS field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  90001^AE^MUMPS
    1)= Q
    2)= Q
    This Cross Reference was created for the purposes of deleting the initial Trigger to calculate Actual End DOS.  The normal DIFROM changes triggers, but does not update deleted triggers.  This just provides an option to
    execute no action and wipe out the old trigger execute values.
1111 OUTP NUMBER OF VISITS 11;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 13, 2003
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • TECHNICAL DESCR:  
    This field contains the number of outpatient visits that occurred under the authority of this referral.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1126
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,26)'="" I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,26),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC
    X ^DD(90001,1111,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,26)=DIV,DIH=90001,DIG=1126 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,26),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,1111,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,26)=DIV,DIH=90001,DIG=1126 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= OUTP VISIT NUMBER MOD DATE'=""
    CREATE VALUE)= TODAY
    DELETE VALUE)= TODAY
    FIELD)= OUTP VISIT NUMBER MOD DATE
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1127
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,27),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,1111,1,2,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,27)=DIV,DIH=90001,DIG=1127 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,27),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,1111,1,2,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,27)=DIV,DIH=90001,DIG=1127 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= OUTPT VISIT NUMBER USER
1112 CHS APPROVAL STATUS 11;12 SET
************************REQUIRED FIELD************************
  • 'P' FOR PENDING;
  • 'A' FOR APPROVED;
  • 'D' FOR DENIED;
  • 'PA' FOR PENDING APPEAL;

  • LAST EDITED:  MAY 06, 2013
  • TECHNICAL DESCR:  
    This field is only used if this referral is a CHS referral.  This field is set to 'P' by a trigger on the .04 TYPE field.  It is set to 'A','PA' or 'D' by the CHS package.
  • AUDIT:  EDITED OR DELETED
  • NOTES:  TRIGGERED by the TYPE field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  90001^AAS^MUMPS
    1)= D SETCA^BMCREF
    2)= D KILLCA^BMCREF
  • CROSS-REFERENCE:  ^^TRIGGER^90001^.15
    1)= X ^DD(90001,1112,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X="A1" S DIH=$G(^BMCREF(DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=90001,DIG=.15 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(90001,1112,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="APPROVED"
    2)= Q
    CREATE CONDITION)= CHS APPROVAL STATUS="APPROVED"
    CREATE VALUE)= "A1"
    DELETE VALUE)= NO EFFECT
    FIELD)= STAT
1113 CHS APPROVAL/DENIAL DATE 11;13 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1995 AND TODAY
  • TECHNICAL DESCR:  
    This field contains the date this CHS referral was approved or denied.
1114 CHS DENIAL REASON 11;14 POINTER TO CHS DENIAL REASON FILE (#9002073) CHS DENIAL REASON(#9002073)

  • INPUT TRANSFORM:  S DIC("S")="I '$G(^(10))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 18, 2002
  • TECHNICAL DESCR:  
    This field is only relevant if this CHS referral was denied.  It contains the reason for the denial as defined in the CHS system.
  • SCREEN:  S DIC("S")="I '$G(^(10))"
  • EXPLANATION:  Screens out Inactive Denial Reasons
1115 CHS AUTHORIZATION COUNT 11;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 03, 1995
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • TECHNICAL DESCR:  
    This field contains the count of CHS AUTHORIZATIONs.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the AUTHORIZATION field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
1116 CHS AUTHORIZATIONS PAID 11;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 03, 1995
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • TECHNICAL DESCR:  
    This field contains the number of CHS AUTHORIZATIONs that have been paid.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DOLLARS PAID field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  ^^TRIGGER^90001^.15
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=Y(0)=$P(Y(1),U,15) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X="C1" X ^DD(90001,1
    116,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,15)=DIV,DIH=90001,DIG=.15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= CHS AUTHORIZATIONS PAID=CHS AUTHORIZATION COUNT
    CREATE VALUE)= S X="C1"
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS OF REFERRAL
1117 UPDATED ESTIMATED IHS COST 11;17 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  MAY 02, 1997
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, Dollars only
  • TECHNICAL DESCR:  This field contains a running total of the DOLLARS AUTHORIZED in the 4100 CHS AUTHORIZATIONS multiple adjusted to reflect the DOLLARS PAID instead of the DOLLARS AUTHORIZED for CHS AUTHORIZATION that have been paid.
    It is the sum of the $ paid + (sum of $ authorized if not yet paid).
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DOLLARS AUTHORIZED field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
    TRIGGERED by the DOLLARS PAID field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
    TRIGGERED by the DOLLARS PAID field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
1118 IHS REFERRAL COSTS TO DATE 11;18 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 24, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, Dollars only
  • TECHNICAL DESCR:  
    This field contains a running total of the DOLLARS PAID field in the 4100 CHS AUTHORIZATIONS multiple.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DOLLARS PAID field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1104
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,16)=$P(Y(1),U,15) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV X ^D
    D(90001,1118,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,4)=DIV,DIH=90001,DIG=1104 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(90001,1118,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,4)=DIV,DIH=90001,DIG=1104 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= CHS AUTHORIZATIONS PAID=CHS AUTHORIZATION COUNT
    CREATE VALUE)= CHS IHS PAID AMT TO DATE
    DELETE VALUE)= @
    FIELD)= ACTUAL IHS COST
    This trigger sets the ACTUAL IHS COST field to the CHS IHS PAID AMT TO DATE when all CHS AUTHORIZATIONS have been paid.
1119 TOTAL REFERRAL COSTS TO DATE 11;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 24, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, Dollars only
  • TECHNICAL DESCR:  
    This field contains a running total of the TOTAL COST of the 4100 CHS AUTHORIZATIONS multiple.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TOTAL COST field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1102
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,16)=$P(Y(1),U,15) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV X ^D
    D(90001,1119,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,2)=DIV,DIH=90001,DIG=1102 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(90001,1119,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,2)=DIV,DIH=90001,DIG=1102 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= CHS AUTHORIZATIONS PAID=CHS AUTHORIZATION COUNT
    CREATE VALUE)= CHS FI TOTAL AMT TO DATE
    DELETE VALUE)= @
    FIELD)= ACTUAL COST
    This trigger sets the ACTUAL COST field to the CHS FI TOTAL AMT TO DATE when all CHS AUTHORIZATIONS have been paid.
1120 CHS AMOUNT AUTHORIZED TO DATE 11;20 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 24, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DOLLARS AUTHORIZED field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
1121 CHS AUTHORIZATION DEC STAFF 11;21 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 02, 2004
1122 CHS AUTHORIZATION DEC REV DT 11;22 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 13, 1996
  • DESCRIPTION:  
    This field is automatically stuffed with the date a CHS Preliminary Review Set of Codes is entered.  Triggered from field #1120.
1123 MAN CARE COMM ACTION 11;23 POINTER TO RCIS MANAGED CARE COMM ACTION FILE (#90001.55) RCIS MANAGED CARE COMM ACTION(#90001.55)

  • LAST EDITED:  JUL 15, 1996
  • CROSS-REFERENCE:  90001^MCC
    1)= S ^BMCREF("MCC",$E(X,1,30),DA)=""
    2)= K ^BMCREF("MCC",$E(X,1,30),DA)
1124 DATE MCC ACTION RECORDED 11;24 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 16, 1996
1125 UTILIZATION REVIEW BY MD 11;25 POINTER TO RCIS LOCAL UTIL REV BY MD CODES FILE (#90001.56) RCIS LOCAL UTIL REV BY MD CODES(#90001.56)

  • LAST EDITED:  JUL 15, 1996
1126 OUTP VISIT NUMBER MOD DATE 11;26 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 03, 1998
  • NOTES:  TRIGGERED by the OUTP NUMBER OF VISITS field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  90001^AD
    1)= S ^BMCREF("AD",$E(X,1,30),DA)=""
    2)= K ^BMCREF("AD",$E(X,1,30),DA)
    Allows quick sorting of the field.
1127 OUTPT VISIT NUMBER USER 11;27 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 13, 2003
  • NOTES:  TRIGGERED by the OUTP NUMBER OF VISITS field of the RCIS REFERRAL File
1128 CHS DENIAL NUMBER 11;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<10) X
  • LAST EDITED:  FEB 01, 2007
  • HELP-PROMPT:  Answer must be 10-15 characters in length.
  • CROSS-REFERENCE:  90001^CD
    1)= S ^BMCREF("CD",$E(X,1,30),DA)=""
    2)= K ^BMCREF("CD",$E(X,1,30),DA)
    Index used for reference to the CHS Denial data.
1201 PURPOSE OF REFERRAL 12;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  FEB 05, 1996
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
1301 NOTES TO SCHEDULER 13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<2) X
  • LAST EDITED:  APR 07, 1997
  • HELP-PROMPT:  Answer must be 2-100 characters in length.
  • DESCRIPTION:  
    This field is to be used to enter notes to be seen by the appointment clerk or the person scheduling the appointment for the patient.
1302 SCHEDULE W/I # DAYS 13;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>365)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 30, 1996
  • HELP-PROMPT:  Enter a number between 0-365
  • DESCRIPTION:  
    This field allows the Provider to record how soon to schedule an appointment for this referral.
  • EXECUTABLE HELP:  W !," This field allows the Provider to record how soon to schedule an appointment",!,"for this patient."
1303 V REFERRAL 13;3 POINTER TO V REFERRAL FILE (#9000010.59) V REFERRAL(#9000010.59)

  • LAST EDITED:  MAY 08, 2013
  • HELP-PROMPT:  This is the pointer to the V Referral file. There must be a Visit entry in order to have a V Referral entry.
1304 TOC STATUS 13;4 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  MAY 08, 2013
  • HELP-PROMPT:  Enter the status of the Transition of Care Document.
  • NOTES:  TRIGGERED by the DATE-TIME TX SENT field of the TRANSITION OF CARE DOCUMENT sub-field of the RCIS REFERRAL File
    TRIGGERED by the DOCUMENT TYPE field of the TRANSITION OF CARE DOCUMENT sub-field of the RCIS REFERRAL File
  • CROSS-REFERENCE:  90001^TOC
    1)= S ^BMCREF("TOC",$E(X,1,30),DA)=""
    2)= K ^BMCREF("TOC",$E(X,1,30),DA)
1305 APPROVAL DATE 13;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 02, 2013
  • HELP-PROMPT:  Enter the date the referral was approved.
  • DESCRIPTION:  
    This field is trigged from the STATUS of referral changing to Approved.
  • NOTES:  TRIGGERED by the STATUS OF REFERRAL field of the RCIS REFERRAL File
1306 CONSULT REPORT STATUS 13;6 SET
  • 'P' FOR PENDING;
  • 'R' FOR REVIEWED;

  • LAST EDITED:  JUL 03, 2013
  • HELP-PROMPT:  Enter the status of the recieved Consultation Report.
1307 CONSULT REPORT DATE REVIEWED 13;7 DATE

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  APR 25, 2018
  • HELP-PROMPT:  Enter the date and time the consult report was reviewed.
1308 CONSULT REPORT REVIEWED BY 13;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 03, 2013
  • HELP-PROMPT:  Enter the physician that reviewed the consultation report.
1309 PCC VISIT-REFERRAL 13;9 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  JUN 27, 2014
  • HELP-PROMPT:  This is the original visit the Patient received the referral from the provider.
  • CROSS-REFERENCE:  90001^VSTR
    1)= S ^BMCREF("VSTR",$E(X,1,30),DA)=""
    2)= K ^BMCREF("VSTR",$E(X,1,30),DA)
1401 ALT RES LTR DATE 14;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 08, 2000
  • DESCRIPTION:  
    This field is populated with a date (each time an Alternate Resource Letter) for this Referral # is printed.  Field #1402 also populates the name of the User who printed the letter.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1402
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,14)):^(14),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,1401,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),14)):^(14),1:""),DIV=X S $P(^(14),U,2)=DIV,DIH=90001,DIG=1402 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,14)):^(14),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,1401,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),14)):^(14),1:""),DIV=X S $P(^(14),U,2)=DIV,DIH=90001,DIG=1402 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= ALT RES LTR USER
1402 ALT RES LTR USER 14;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 08, 2000
  • NOTES:  TRIGGERED by the ALT RES LTR DATE field of the RCIS REFERRAL File
1403 ALT CERT MAIL 14;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<10) X
  • LAST EDITED:  JAN 22, 2001
  • HELP-PROMPT:  Enter Certified Mail Receipt # 10-25 Characters
1404 ALT RES LTR DISSEMINATION 14;4 SET
  • 'M' FOR MAIL CERTIFIED;
  • 'F' FOR FAX;
  • 'N' FOR NONE;
  • 'H' FOR HAND DELIVERED;

  • LAST EDITED:  AUG 01, 2001
1405 INS AUTH NO 14;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 10, 2007
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
1501 ALT RES LTR DOCUMENTATION 15;0 WORD-PROCESSING #90001.15
2100 LOCAL SERVICE CATEGORY 21;0 POINTER Multiple #90001.21 90001.21

  • TECHNICAL DESCR:  
    This multiple contains the local service categories that this patient is being referred for.
2200 SNOMED CLINICAL TERM 22;0 Multiple #90001.22 90001.22
2300 SNOMED CLOSED CLINCAL TERM 23;0 Multiple #90001.23 90001.23
4100 CHS AUTHORIZATIONS 41;0 Multiple #90001.41 90001.41

  • TECHNICAL DESCR:  This multiple contains one entry for each CHS authorization issued under the authority of this CHS referral.
    The entries in this multiple are DINUM and the numeric value is the IEN of the entry in the CHS AUTHORIZATION multiple in the CHS system.
4200 CHS APPROVAL STATUS AUDIT LOG 42;0 DATE Multiple #90001.42 90001.42
4300 CHS OTHER DENIAL REASON 43;0 POINTER Multiple #90001.43 90001.43
4400 CHS OTHER DENIAL PROVIDER 44;0 POINTER Multiple #90001.44 90001.44
5101 EXP NAME 51;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
5102 EXP HRN 51;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
5103 EXP DOB 51;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 21, 1995
5104 EXP SSN 51;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9)!'(X?9N) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Answer must be 9 characters in length.
5105 EXP COMMUNITY 51;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
5106 EXP TRIBE CODE 51;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
5107 EXP SEX 51;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1"M"!(X?1"F")) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Answer must be 1 character in length.
5108 EXP VENDOR 51;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
5109 EXP EIN 51;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10)!'(X?10N) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Answer must be 10 characters in length.
5110 EXP MCARE ELIGIBLE 51;10 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  AUG 21, 1995
5111 EXP MCAID ELIGIBLE 51;11 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  AUG 21, 1995
5112 EXP PI ELIGIBLE 51;12 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  AUG 21, 1995
5113 EXP FACILITY 51;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
5114 EXP ASUFAC 51;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Answer must be 6 characters in length.
6101 CHS INDIAN DESCENT 61;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 07, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6111
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,6101,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,11)=DIV,DIH=90001,DIG=6111 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,6101,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,11)=DIV,DIH=90001,DIG=6111 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= TODAY
    FIELD)= CHS INDIAN DESCENT DATE
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6112
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6101,1,2,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,12)=DIV,DIH=90001,DIG=6112 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6101,1,2,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,12)=DIV,DIH=90001,DIG=6112 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= CHS INDIAN DESCENT USER
6102 CHS RESIDENCY 61;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 07, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6105
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,6102,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,5)=DIV,DIH=90001,DIG=6105 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,6102,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,5)=DIV,DIH=90001,DIG=6105 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= TODAY
    FIELD)= CHS RESIDENCY DATE
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6106
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6102,1,2,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,6)=DIV,DIH=90001,DIG=6106 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6102,1,2,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,6)=DIV,DIH=90001,DIG=6106 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= CHS RESIDENCY USER
6103 CHS ALTERNATE RESOURCE 61;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 07, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6107
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,6103,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,7)=DIV,DIH=90001,DIG=6107 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,6103,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,7)=DIV,DIH=90001,DIG=6107 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= TODAY
    FIELD)= CHS ALT RESOURCE DATE
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6108
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6103,1,2,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,8)=DIV,DIH=90001,DIG=6108 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6103,1,2,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,8)=DIV,DIH=90001,DIG=6108 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= CHS ALT RESOURCE USER
6104 CHS 72 HOUR NOTIFICATION 61;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 07, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6109
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,6104,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,9)=DIV,DIH=90001,DIG=6109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,6104,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,9)=DIV,DIH=90001,DIG=6109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= TODAY
    FIELD)= CHS 72 HR DATE
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6110
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6104,1,2,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,10)=DIV,DIH=90001,DIG=6110 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6104,1,2,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,10)=DIV,DIH=90001,DIG=6110 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= CHS 72 HR USER
6105 CHS RESIDENCY DATE 61;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 07, 2001
  • NOTES:  TRIGGERED by the CHS RESIDENCY field of the RCIS REFERRAL File
6106 CHS RESIDENCY USER 61;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 07, 2001
  • NOTES:  TRIGGERED by the CHS RESIDENCY field of the RCIS REFERRAL File
6107 CHS ALT RESOURCE DATE 61;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 07, 2001
  • NOTES:  TRIGGERED by the CHS ALTERNATE RESOURCE field of the RCIS REFERRAL File
6108 CHS ALT RESOURCE USER 61;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 07, 2001
  • NOTES:  TRIGGERED by the CHS ALTERNATE RESOURCE field of the RCIS REFERRAL File
6109 CHS 72 HR DATE 61;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 07, 2001
  • NOTES:  TRIGGERED by the CHS 72 HOUR NOTIFICATION field of the RCIS REFERRAL File
6110 CHS 72 HR USER 61;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 07, 2001
  • NOTES:  TRIGGERED by the CHS 72 HOUR NOTIFICATION field of the RCIS REFERRAL File
6111 CHS INDIAN DESCENT DATE 61;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 07, 2001
  • NOTES:  TRIGGERED by the CHS INDIAN DESCENT field of the RCIS REFERRAL File
6112 CHS INDIAN DESCENT USER 61;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 07, 2001
  • NOTES:  TRIGGERED by the CHS INDIAN DESCENT field of the RCIS REFERRAL File
6113 CHS MEDICAL PRIORITY 61;13 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 30, 2002
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6114
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001,6113,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,14)=DIV,DIH=90001,DIG=6114 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= CHS MEDICAL PRIORITY DT
  • CROSS-REFERENCE:  ^^TRIGGER^90001^6115
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6113,1,2,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,15)=DIV,DIH=90001,DIG=6115 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCREF(D0,61)):^(61),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90001,6113,1,2,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),61)):^(61),1:""),DIV=X S $P(^(61),U,15)=DIV,DIH=90001,DIG=6115 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= CHS MEDICAL PRIORITY USER
6114 CHS MEDICAL PRIORITY DT 61;14 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 30, 2002
  • NOTES:  TRIGGERED by the CHS MEDICAL PRIORITY field of the RCIS REFERRAL File
6115 CHS MEDICAL PRIORITY USER 61;15 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 30, 2002
  • NOTES:  TRIGGERED by the CHS MEDICAL PRIORITY field of the RCIS REFERRAL File
6116 CHS APPEAL DATE 61;16 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 25, 2006
  • HELP-PROMPT:  Enter the date the CHS appeal was received.
6117 CHS APPEAL RESOLVE DATE 61;17 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 25, 2006
  • HELP-PROMPT:  Enter the date the appeal was resolved.
6118 CHS APPEAL STATUS 61;18 POINTER TO CHS DENIAL STATUS FILE (#9002074) CHS DENIAL STATUS(#9002074)

  • LAST EDITED:  AUG 28, 2006
  • HELP-PROMPT:  Enter the Appeal status of the Denial
6119 CHS APPEAL LEVEL 61;19 SET
  • 'L' FOR LOCAL SITE - SERVICE UNIT OR HEALTH DIRECTOR;
  • 'A' FOR AREA OFFICE;
  • 'H' FOR IHS HEADQUARTERS;
  • 'S' FOR TRIBAL PROGRAMS (SECOND LEVEL);
  • 'F' FOR TRIBAL PROGRAMS (FINAL);

  • LAST EDITED:  AUG 28, 2006
  • HELP-PROMPT:  Enter the authority level at which the appeal has been sent
6120 CHS DENIAL REASON OPTION 61;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • OUTPUT TRANSFORM:  Q:'Y S Y=$P(^ACHSDENS($P(^BMCREF(DA,11),U,14),20,Y,0),U)
  • LAST EDITED:  JUL 24, 2012
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • TECHNICAL DESCR:  
    This is a free-text pointer to the OPTION(S) multiple in the CHS DENIAL REASON file.
7110 SECONDARY PRV LETTERS COMPUTED

  • MUMPS CODE:  X ^DD(90001,7110,9.3) S X=Y(90001,7110,101) S D0=Y(90001,7110,80) S X=$J(X,0,0)
    9.2 = S Y(90001,7110,80)=$S($D(D0):D0,1:""),Y(90001,7110,101)=""
    9.3 = X ^DD(90001,7110,9.2) X "F D0=0:0 S D0=$O(^BMCPROV(D0)) Q:D0'>0  S Y(90001,7110,101)=Y(90001,7110,101)+$S($D(^(D0,0)):$P(^(0),U,1),1:"""")" S D(0)=D0
  • ALGORITHM:  TOTAL(RCIS SECONDARY PROVIDER LETTER:) (ALWAYS 0 DECIMAL DIGITS)
9999 LOOKUP COMPUTED

  • MUMPS CODE:  S X=$S($D(BMCLOOK):$S(BMCLOOK=+BMCLOOK:"`"_BMCLOOK,1:BMCLOOK),1:"")
  • ALGORITHM:  S X=$S($D(BMCLOOK):$S(BMCLOOK=+BMCLOOK:"`"_BMCLOOK,1:BMCLOOK),1:"")

External References

Name Field # of Occurrence
^%DT .01+1, .17+1, .18+1, .26+1, .27+1, .28+1, .31+1, 103+1, 1105+1, 1106+1
, 1107+1, 1108+1, 1113+1, 1122+1, 1124+1, 1126+1, 1305+1, 1307+1, 1401+1, 5103+1
, 6105+1, 6107+1, 6109+1, 6111+1, 6114+1, 6116+1, 6117+1
^%DTC .1499+1, 1106(XREF 1n49.2), 1106(XREF 1n59.2), 1108(XREF 2n49.2), 1108(XREF 2n59.2)
C^%DTC 1105(XREF 1n1.1), 1109(XREF 1n1.1)
NOW^%DTC 1111(XREF 1S), 1111(XREF 1K), 6101(XREF 1S), 6101(XREF 1K), 6102(XREF 1S), 6102(XREF 1K), 6103(XREF 1S), 6103(XREF 1K), 6104(XREF 1S), 6104(XREF 1K)
6113(XREF 1S)
APRV^BMCALERT .15(XREF 6S)
EN1^BMCBULL .12(XREF 1S)
PRIORITY^BMCHELP .32(HELP )
^BMCLKID IDIHS0+1
^BMCPXCHK .15(XREF 5S)
KILLCA^BMCREF 1112(XREF 1K)
SETCA^BMCREF 1112(XREF 1S)
$$FACREF^BMCRLU .0999+1
^DIC .07+1, .12+1, 1114+1
^DICR .04(XREF 1n1.4), .04(XREF 1n2.4), .04(XREF 3K), .04(XREF 5n1.4), .14(XREF 1n1.4), .14(XREF 2n1.4), .15(XREF 1K), .15(XREF 3S), .15(XREF 3n1.4), .15(XREF 3K)
.15(XREF 4S), .15(XREF 4n1.4), .15(XREF 4K), .15(XREF 7n1.4), 1105(XREF 1n1.4), 1105(XREF 1n2.4), 1106(XREF 1n1.4), 1106(XREF 1n2.4), 1108(XREF 2n1.4), 1108(XREF 2n2.4)
1109(XREF 1n1.4), 1109(XREF 1n2.4), 1111(XREF 1n1.4), 1111(XREF 1n2.4), 1111(XREF 2n1.4), 1111(XREF 2n2.4), 1112(XREF 2S), 1116(XREF 1n1.4), 1118(XREF 1n1.4), 1118(XREF 1n2.4)
1119(XREF 1n1.4), 1119(XREF 1n2.4), 1401(XREF 1n1.4), 1401(XREF 1n2.4), 6101(XREF 1n1.4), 6101(XREF 1n2.4), 6101(XREF 2n1.4), 6101(XREF 2n2.4), 6102(XREF 1n1.4), 6102(XREF 1n2.4)
6102(XREF 2n1.4), 6102(XREF 2n2.4), 6103(XREF 1n1.4), 6103(XREF 1n2.4), 6103(XREF 2n1.4), 6103(XREF 2n2.4), 6104(XREF 1n1.4), 6104(XREF 1n2.4), 6104(XREF 2n1.4), 6104(XREF 2n2.4)
6113(XREF 1n1.4), 6113(XREF 2n1.4), 6113(XREF 2n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDENS - [#9002073] 6120OT+1
^BMCREF - [#90001] .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .04(XREF 1n2.4), .04(XREF 3K), .04(XREF 5S)
.04(XREF 5n1.4), .04(XREF 5n69.2), .12(XREF 1S), .14(XREF 1S), .14(XREF 1n1.4), .14(XREF 2S), .14(XREF 2n1.4), .1499OF9.2+1, .15(XREF 1K), .15(XREF 3S)
.15(XREF 3n1.4), .15(XREF 3K), .15(XREF 4S), .15(XREF 4n1.4), .15(XREF 4K), .15(XREF 7S), .15(XREF 7n1.4), .15(XREF 7n69.2), .16(XREF 1S), .16(XREF 1K)
101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2K), 1105(XREF 1S), 1105(XREF 1n1.1), 1105(XREF 1n1.3), 1105(XREF 1n1.4), 1105(XREF 1K), 1105(XREF 1n2.4)
1106(XREF 1S), 1106(XREF 1n1.3), 1106(XREF 1n1.4), 1106(XREF 1K), 1106(XREF 1n2.3), 1106(XREF 1n2.4), 1106(XREF 1n49.2), 1106(XREF 1n59.2), 1108(XREF 2S), 1108(XREF 2n1.3)
1108(XREF 2n1.4), 1108(XREF 2K), 1108(XREF 2n2.3), 1108(XREF 2n2.4), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109(XREF 1S), 1109(XREF 1n1.1), 1109(XREF 1n1.4), 1109(XREF 1K)
1109(XREF 1n2.4), 1109(XREF 1n69.2), 1111(XREF 1S), 1111(XREF 1n1.4), 1111(XREF 1K), 1111(XREF 1n2.4), 1111(XREF 2S), 1111(XREF 2n1.4), 1111(XREF 2K), 1111(XREF 2n2.4)
1112(XREF 2S), 1116(XREF 1S), 1116(XREF 1n1.4), 1118(XREF 1S), 1118(XREF 1n1.4), 1118(XREF 1K), 1118(XREF 1n2.4), 1119(XREF 1S), 1119(XREF 1n1.4), 1119(XREF 1K)
1119(XREF 1n2.4), 1401(XREF 1S), 1401(XREF 1n1.4), 1401(XREF 1K), 1401(XREF 1n2.4), 6101(XREF 1S), 6101(XREF 1n1.4), 6101(XREF 1K), 6101(XREF 1n2.4), 6101(XREF 2S)
6101(XREF 2n1.4), 6101(XREF 2K), 6101(XREF 2n2.4), 6102(XREF 1S), 6102(XREF 1n1.4), 6102(XREF 1K), 6102(XREF 1n2.4), 6102(XREF 2S), 6102(XREF 2n1.4), 6102(XREF 2K)
6102(XREF 2n2.4), 6103(XREF 1S), 6103(XREF 1n1.4), 6103(XREF 1K), 6103(XREF 1n2.4), 6103(XREF 2S), 6103(XREF 2n1.4), 6103(XREF 2K), 6103(XREF 2n2.4), 6104(XREF 1S)
6104(XREF 1n1.4), 6104(XREF 1K), 6104(XREF 1n2.4), 6104(XREF 2S), 6104(XREF 2n1.4), 6104(XREF 2K), 6104(XREF 2n2.4), 6113(XREF 1S), 6113(XREF 1n1.4), 6113(XREF 2S)
6113(XREF 2n1.4), 6113(XREF 2K), 6113(XREF 2n2.4), 6120OT+1
^BMCREF("AA" .03(XREF 2S), .03(XREF 2K)
^BMCREF("AB" .15(XREF 2S), .15(XREF 2K)
^BMCREF("AC" 1108(XREF 1S), 1108(XREF 1K)
^BMCREF("AD" 1126(XREF 1S), 1126(XREF 1K)
^BMCREF("AF" .16(XREF 1S), .16(XREF 1K)
^BMCREF("B" .01(XREF 1S), .01(XREF 1K)
^BMCREF("BA" 1105(XREF 2S), 1105(XREF 2K)
^BMCREF("BB" 1106(XREF 2S), 1106(XREF 2K)
^BMCREF("BS1" .02(XREF 2S), .02(XREF 2K)
^BMCREF("C" .02(XREF 1S), .02(XREF 1K)
^BMCREF("CD" 1128(XREF 1S), 1128(XREF 1K)
^BMCREF("D" .03(XREF 1S), .03(XREF 1K)
^BMCREF("E" .06(XREF 1S), .06(XREF 1K)
^BMCREF("FY" .02(XREF 3S), .02(XREF 3K)
^BMCREF("MCC" 1123(XREF 1S), 1123(XREF 1K)
^BMCREF("S" 101(XREF 1S), 101(XREF 1K)
^BMCREF("S1" 101(XREF 2S), 101(XREF 2K)
^BMCREF("TOC" 1304(XREF 1S), 1304(XREF 1K)
^BMCREF("VSTR" 1309(XREF 1S), 1309(XREF 1K)
^BMCTDXC - [#90001.51] .12(XREF 1S)
^DD( .04(XREF 1n1.4), .04(XREF 1n2.4), .04(XREF 3K), .04(XREF 5n1.4), .14(XREF 1n1.4), .14(XREF 2n1.4), .15(XREF 1K), .15(XREF 3n1.4), .15(XREF 4n1.4), 1105(XREF 1n1.4)
1105(XREF 1n2.4), 1106(XREF 1n1.4), 1106(XREF 1n2.4), 1108(XREF 2n1.4), 1108(XREF 2n2.4), 1109(XREF 1n1.4), 1109(XREF 1n2.4), 1111(XREF 1n1.4), 1111(XREF 1n2.4), 1111(XREF 2n1.4)
1111(XREF 2n2.4), 1116(XREF 1n1.4), 1118(XREF 1n1.4), 1118(XREF 1n2.4), 1119(XREF 1n1.4), 1119(XREF 1n2.4), 1401(XREF 1n1.4), 1401(XREF 1n2.4), 6101(XREF 1n1.4), 6101(XREF 1n2.4)
6101(XREF 2n1.4), 6101(XREF 2n2.4), 6102(XREF 1n1.4), 6102(XREF 1n2.4), 6102(XREF 2n1.4), 6102(XREF 2n2.4), 6103(XREF 1n1.4), 6103(XREF 1n2.4), 6103(XREF 2n1.4), 6103(XREF 2n2.4)
6104(XREF 1n1.4), 6104(XREF 1n2.4), 6104(XREF 2n1.4), 6104(XREF 2n2.4), 6113(XREF 1n1.4), 6113(XREF 2n1.4), 6113(XREF 2n2.4)
^DD(90001 .04(XREF 1S), .04(XREF 1K), .04(XREF 1n2.3), .04(XREF 5S), .04(XREF 5n69.2), .04(XREF 5n69.3), .14(XREF 1S), .14(XREF 1n1.3), .14(XREF 2S), .14(XREF 2n1.3)
, .1499+1, .1499OF9.3+1, .15(XREF 3S), .15(XREF 3n1.3), .15(XREF 3n69.2), .15(XREF 4S), .15(XREF 4n1.3), .15(XREF 4n69.2), .15(XREF 7S), .15(XREF 7n69.2)
1105(XREF 1S), 1105(XREF 1n1.3), 1105(XREF 1K), 1106(XREF 1S), 1106(XREF 1n1.1), 1106(XREF 1n1.3), 1106(XREF 1K), 1106(XREF 1n2.1), 1106(XREF 1n2.3), 1108(XREF 2S)
1108(XREF 2n1.1), 1108(XREF 2n1.3), 1108(XREF 2K), 1108(XREF 2n2.1), 1108(XREF 2n2.3), 1109(XREF 1S), 1109(XREF 1n1.3), 1109(XREF 1K), 1109(XREF 1n69.2), 1111(XREF 1S)
1111(XREF 1K), 1111(XREF 2S), 1111(XREF 2K), 1112(XREF 2S), 1112(XREF 2n1.3), 1116(XREF 1S), 1118(XREF 1S), 1118(XREF 1K), 1119(XREF 1S), 1119(XREF 1K)
1401(XREF 1S), 1401(XREF 1K), 6101(XREF 1S), 6101(XREF 1K), 6101(XREF 2S), 6101(XREF 2K), 6102(XREF 1S), 6102(XREF 1K), 6102(XREF 2S), 6102(XREF 2K)
6103(XREF 1S), 6103(XREF 1K), 6103(XREF 2S), 6103(XREF 2K), 6104(XREF 1S), 6104(XREF 1K), 6104(XREF 2S), 6104(XREF 2K), 6113(XREF 1S), 6113(XREF 2S)
6113(XREF 2K), 7110+1, 7110OF9.3+1

Naked Globals

Name Field # of Occurrence
^(0 .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .04(XREF 1n2.3), .04(XREF 1n2.4), .04(XREF 3K), .04(XREF 5n69.2), .14(XREF 1n1.3)
.14(XREF 2n1.3), .15(XREF 1K), .15(XREF 3S), .15(XREF 3n1.4), .15(XREF 3K), .15(XREF 4S), .15(XREF 4n1.4), .15(XREF 4K), 101(XREF 1S), 101(XREF 1K)
101(XREF 2S), 101(XREF 2K), 1105(XREF 1n1.3), 1106(XREF 1n1.3), 1106(XREF 1n2.3), 1108(XREF 2n1.3), 1108(XREF 2n2.3), 1109(XREF 1n69.2), 1112(XREF 2S), 1116(XREF 1S)
1116(XREF 1n1.4)
^(11 .04(XREF 5S), .04(XREF 5n1.4), .04(XREF 5n69.2), .14(XREF 1S), .14(XREF 1n1.4), .14(XREF 2S), .14(XREF 2n1.4), .1499OF9.2+1, 1105(XREF 1S), 1105(XREF 1n1.1)
1105(XREF 1n1.4), 1105(XREF 1K), 1105(XREF 1n2.4), 1106(XREF 1S), 1106(XREF 1n1.4), 1106(XREF 1K), 1106(XREF 1n2.4), 1106(XREF 1n49.2), 1106(XREF 1n59.2), 1108(XREF 2S)
1108(XREF 2n1.4), 1108(XREF 2K), 1108(XREF 2n2.4), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109(XREF 1S), 1109(XREF 1n1.1), 1109(XREF 1n1.4), 1109(XREF 1K), 1109(XREF 1n2.4)
1109(XREF 1n69.2), 1111(XREF 1S), 1111(XREF 1n1.4), 1111(XREF 1K), 1111(XREF 1n2.4), 1111(XREF 2S), 1111(XREF 2n1.4), 1111(XREF 2K), 1111(XREF 2n2.4), 1116(XREF 1S)
1118(XREF 1S), 1118(XREF 1n1.4), 1118(XREF 1K), 1118(XREF 1n2.4), 1119(XREF 1S), 1119(XREF 1n1.4), 1119(XREF 1K), 1119(XREF 1n2.4)
^(13 .15(XREF 7S), .15(XREF 7n1.4), .15(XREF 7n69.2)
^(14 1401(XREF 1S), 1401(XREF 1n1.4), 1401(XREF 1K), 1401(XREF 1n2.4)
^(61 6101(XREF 1S), 6101(XREF 1n1.4), 6101(XREF 1K), 6101(XREF 1n2.4), 6101(XREF 2S), 6101(XREF 2n1.4), 6101(XREF 2K), 6101(XREF 2n2.4), 6102(XREF 1S), 6102(XREF 1n1.4)
6102(XREF 1K), 6102(XREF 1n2.4), 6102(XREF 2S), 6102(XREF 2n1.4), 6102(XREF 2K), 6102(XREF 2n2.4), 6103(XREF 1S), 6103(XREF 1n1.4), 6103(XREF 1K), 6103(XREF 1n2.4)
6103(XREF 2S), 6103(XREF 2n1.4), 6103(XREF 2K), 6103(XREF 2n2.4), 6104(XREF 1S), 6104(XREF 1n1.4), 6104(XREF 1K), 6104(XREF 1n2.4), 6104(XREF 2S), 6104(XREF 2n1.4)
6104(XREF 2K), 6104(XREF 2n2.4), 6113(XREF 1S), 6113(XREF 1n1.4), 6113(XREF 2S), 6113(XREF 2n1.4), 6113(XREF 2K), 6113(XREF 2n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 1111(XREF 1S), 1111(XREF 1K), 6101(XREF 1S), 6101(XREF 1K), 6102(XREF 1S), 6102(XREF 1K), 6103(XREF 1S), 6103(XREF 1K), 6104(XREF 1S), 6104(XREF 1K)
6113(XREF 1S)
>> %DT .01+1*, .17+1*, .18+1*, .26+1*, .27+1*, .28+1*, .31+1*, 103+1*, 1105+1*, 1106+1*
, 1107+1*, 1108+1*, 1113+1*, 1122+1*, 1124+1*, 1126+1*, 1305+1*, 1307+1*, 1401+1*, 5103+1*
, 6105+1*, 6107+1*, 6109+1*, 6111+1*, 6114+1*, 6116+1*, 6117+1*
%H 1111(XREF 1S), 1111(XREF 1K), 6101(XREF 1S), 6101(XREF 1K), 6102(XREF 1S), 6102(XREF 1K), 6103(XREF 1S), 6103(XREF 1K), 6104(XREF 1S), 6104(XREF 1K)
6113(XREF 1S)
%I 1111(XREF 1S), 1111(XREF 1K), 6101(XREF 1S), 6101(XREF 1K), 6102(XREF 1S), 6102(XREF 1K), 6103(XREF 1S), 6103(XREF 1K), 6104(XREF 1S), 6104(XREF 1K)
6113(XREF 1S)
BMCBULLC .12(XREF 1S)
>> BMCCHSA .04(XREF 6S)
>> BMCHOUSA .04(XREF 9S)
>> BMCIHSA .04(XREF 7S)
>> BMCLOOK 9999+1
>> BMCOTHRA .04(XREF 8S)
>> BMCXREF("CHS ALERT" , .04(XREF 6S), .04(XREF 6K)
>> BMCXREF("IHS ALERT" , .04(XREF 7S), .04(XREF 7K)
>> BMCXREF("INHO USE ALERT" , .04(XREF 9S), .04(XREF 9K)
>> BMCXREF("OTHE R ALERT" , .04(XREF 8S), .04(XREF 8K)
>> D(0 7110OF9.3+1*
>> D0 .04(XREF 1S), .04(XREF 1K), .04(XREF 1n2.3), .04(XREF 3K), .04(XREF 5S), .04(XREF 5n69.2), .14(XREF 1S), .14(XREF 1n1.3), .14(XREF 2S), .14(XREF 2n1.3)
, .1499OF9.2+1, .15(XREF 1K), .15(XREF 3S), .15(XREF 3n1.3), .15(XREF 3K), .15(XREF 4S), .15(XREF 4n1.3), .15(XREF 4K), .15(XREF 7S), .15(XREF 7n69.2)
1105(XREF 1S), 1105(XREF 1n1.1), 1105(XREF 1n1.3), 1105(XREF 1K), 1106(XREF 1S), 1106(XREF 1n1.3), 1106(XREF 1K), 1106(XREF 1n2.3), 1106(XREF 1n49.2), 1106(XREF 1n59.2)
1108(XREF 2S), 1108(XREF 2n1.3), 1108(XREF 2K), 1108(XREF 2n2.3), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109(XREF 1S), 1109(XREF 1n1.1), 1109(XREF 1n1.3), 1109(XREF 1K)
1109(XREF 1n69.2), 1111(XREF 1S), 1111(XREF 1K), 1111(XREF 2S), 1111(XREF 2K), 1112(XREF 2S), 1112(XREF 2n1.3), 1116(XREF 1S), 1118(XREF 1S), 1118(XREF 1K)
1119(XREF 1S), 1119(XREF 1K), 1401(XREF 1S), 1401(XREF 1K), 6101(XREF 1S), 6101(XREF 1K), 6101(XREF 2S), 6101(XREF 2K), 6102(XREF 1S), 6102(XREF 1K)
6102(XREF 2S), 6102(XREF 2K), 6103(XREF 1S), 6103(XREF 1K), 6103(XREF 2S), 6103(XREF 2K), 6104(XREF 1S), 6104(XREF 1K), 6104(XREF 2S), 6104(XREF 2K)
6113(XREF 1S), 6113(XREF 2S), 6113(XREF 2K), 7110+1*, 7110OF9.2+1, 7110OF9.3+1
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K)
.03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1n2.3), .04(XREF 3K), .04(XREF 5S), .06(XREF 1S), .06(XREF 1K), .0999+1, .12(XREF 1S)
.14(XREF 1n1.3), .14(XREF 2n1.3), .15(XREF 1K), .15(XREF 2S), .15(XREF 2K), .15(XREF 3n1.3), .15(XREF 3K), .15(XREF 4n1.3), .15(XREF 4K), .15(XREF 7S)
.16(XREF 1S), .16(XREF 1K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2K), 1105(XREF 1n1.3), 1105(XREF 1K), 1105(XREF 2S), 1105(XREF 2K)
1106(XREF 1n1.3), 1106(XREF 1n2.3), 1106(XREF 2S), 1106(XREF 2K), 1108(XREF 1S), 1108(XREF 1K), 1108(XREF 2n1.3), 1108(XREF 2n2.3), 1109(XREF 1n1.3), 1109(XREF 1K)
1111(XREF 1S), 1111(XREF 1K), 1111(XREF 2S), 1111(XREF 2K), 1112(XREF 2n1.3), 1116(XREF 1S), 1118(XREF 1S), 1118(XREF 1K), 1119(XREF 1S), 1119(XREF 1K)
1123(XREF 1S), 1123(XREF 1K), 1126(XREF 1S), 1126(XREF 1K), 1128(XREF 1S), 1128(XREF 1K), 1304(XREF 1S), 1304(XREF 1K), 1309(XREF 1S), 1309(XREF 1K)
1401(XREF 1S), 1401(XREF 1K), 6101(XREF 1S), 6101(XREF 1K), 6101(XREF 2S), 6101(XREF 2K), 6102(XREF 1S), 6102(XREF 1K), 6102(XREF 2S), 6102(XREF 2K)
6103(XREF 1S), 6103(XREF 1K), 6103(XREF 2S), 6103(XREF 2K), 6104(XREF 1S), 6104(XREF 1K), 6104(XREF 2S), 6104(XREF 2K), 6113(XREF 1S), 6113(XREF 2S)
6113(XREF 2K), 6120OT+1
DIC .07+1!*, .12+1!*, 1114+1!*
DIC("S" .07+1*, .07SCR+1*, .12+1*, .12SCR+1*, 1114+1*, 1114SCR+1*
>> DIE .07+1, .12+1, 1114+1
>> DIG .04(XREF 1n1.4), .04(XREF 1n2.4), .04(XREF 3K), .04(XREF 5n1.4), .14(XREF 1n1.4), .14(XREF 2n1.4), .15(XREF 1K), .15(XREF 3S), .15(XREF 3n1.4), .15(XREF 3K)
.15(XREF 4S), .15(XREF 4n1.4), .15(XREF 4K), .15(XREF 7n1.4), 1105(XREF 1n1.4), 1105(XREF 1n2.4), 1106(XREF 1n1.4), 1106(XREF 1n2.4), 1108(XREF 2n1.4), 1108(XREF 2n2.4)
1109(XREF 1n1.4), 1109(XREF 1n2.4), 1111(XREF 1n1.4), 1111(XREF 1n2.4), 1111(XREF 2n1.4), 1111(XREF 2n2.4), 1112(XREF 2S), 1116(XREF 1n1.4), 1118(XREF 1n1.4), 1118(XREF 1n2.4)
1119(XREF 1n1.4), 1119(XREF 1n2.4), 1401(XREF 1n1.4), 1401(XREF 1n2.4), 6101(XREF 1n1.4), 6101(XREF 1n2.4), 6101(XREF 2n1.4), 6101(XREF 2n2.4), 6102(XREF 1n1.4), 6102(XREF 1n2.4)
6102(XREF 2n1.4), 6102(XREF 2n2.4), 6103(XREF 1n1.4), 6103(XREF 1n2.4), 6103(XREF 2n1.4), 6103(XREF 2n2.4), 6104(XREF 1n1.4), 6104(XREF 1n2.4), 6104(XREF 2n1.4), 6104(XREF 2n2.4)
6113(XREF 1n1.4), 6113(XREF 2n1.4), 6113(XREF 2n2.4)
>> DIH .04(XREF 1n1.4), .04(XREF 1n2.4), .04(XREF 3K), .04(XREF 5n1.4), .14(XREF 1n1.4), .14(XREF 2n1.4), .15(XREF 1K), .15(XREF 3S), .15(XREF 3n1.4), .15(XREF 3K)
.15(XREF 4S), .15(XREF 4n1.4), .15(XREF 4K), .15(XREF 7n1.4), 1105(XREF 1n1.4), 1105(XREF 1n2.4), 1106(XREF 1n1.4), 1106(XREF 1n2.4), 1108(XREF 2n1.4), 1108(XREF 2n2.4)
1109(XREF 1n1.4), 1109(XREF 1n2.4), 1111(XREF 1n1.4), 1111(XREF 1n2.4), 1111(XREF 2n1.4), 1111(XREF 2n2.4), 1112(XREF 2S), 1116(XREF 1n1.4), 1118(XREF 1n1.4), 1118(XREF 1n2.4)
1119(XREF 1n1.4), 1119(XREF 1n2.4), 1401(XREF 1n1.4), 1401(XREF 1n2.4), 6101(XREF 1n1.4), 6101(XREF 1n2.4), 6101(XREF 2n1.4), 6101(XREF 2n2.4), 6102(XREF 1n1.4), 6102(XREF 1n2.4)
6102(XREF 2n1.4), 6102(XREF 2n2.4), 6103(XREF 1n1.4), 6103(XREF 1n2.4), 6103(XREF 2n1.4), 6103(XREF 2n2.4), 6104(XREF 1n1.4), 6104(XREF 1n2.4), 6104(XREF 2n1.4), 6104(XREF 2n2.4)
6113(XREF 1n1.4), 6113(XREF 2n1.4), 6113(XREF 2n2.4)
>> DIU .04(XREF 1S), .04(XREF 1K), .04(XREF 3K), .04(XREF 5S), .14(XREF 1S), .14(XREF 2S), .15(XREF 1K), .15(XREF 3S), .15(XREF 3K), .15(XREF 4S)
.15(XREF 4K), .15(XREF 7S), 1105(XREF 1S), 1105(XREF 1K), 1106(XREF 1S), 1106(XREF 1K), 1108(XREF 2S), 1108(XREF 2K), 1109(XREF 1S), 1109(XREF 1K)
1111(XREF 1S), 1111(XREF 1K), 1111(XREF 2S), 1111(XREF 2K), 1112(XREF 2S), 1116(XREF 1S), 1118(XREF 1S), 1118(XREF 1K), 1119(XREF 1S), 1119(XREF 1K)
1401(XREF 1S), 1401(XREF 1K), 6101(XREF 1S), 6101(XREF 1K), 6101(XREF 2S), 6101(XREF 2K), 6102(XREF 1S), 6102(XREF 1K), 6102(XREF 2S), 6102(XREF 2K)
6103(XREF 1S), 6103(XREF 1K), 6103(XREF 2S), 6103(XREF 2K), 6104(XREF 1S), 6104(XREF 1K), 6104(XREF 2S), 6104(XREF 2K), 6113(XREF 1S), 6113(XREF 2S)
6113(XREF 2K)
DIV .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .04(XREF 1n2.3), .04(XREF 1n2.4), .04(XREF 3K), .04(XREF 5S), .04(XREF 5n1.4), .14(XREF 1S), .14(XREF 1n1.3)
.14(XREF 1n1.4), .14(XREF 2S), .14(XREF 2n1.3), .14(XREF 2n1.4), .15(XREF 1K), .15(XREF 3S), .15(XREF 3n1.3), .15(XREF 3n1.4), .15(XREF 3K), .15(XREF 4S)
.15(XREF 4n1.3), .15(XREF 4n1.4), .15(XREF 4K), .15(XREF 7S), .15(XREF 7n1.4), 1105(XREF 1S), 1105(XREF 1n1.1), 1105(XREF 1n1.3), 1105(XREF 1n1.4), 1105(XREF 1K)
1105(XREF 1n2.4), 1106(XREF 1S), 1106(XREF 1n1.1), 1106(XREF 1n1.3), 1106(XREF 1n1.4), 1106(XREF 1K), 1106(XREF 1n2.1), 1106(XREF 1n2.3), 1106(XREF 1n2.4), 1106(XREF 1n49.2)
1108(XREF 2S), 1108(XREF 2n1.1), 1108(XREF 2n1.3), 1108(XREF 2n1.4), 1108(XREF 2K), 1108(XREF 2n2.1), 1108(XREF 2n2.3), 1108(XREF 2n2.4), 1108(XREF 2n49.2), 1109(XREF 1S)
1109(XREF 1n1.1), 1109(XREF 1n1.3), 1109(XREF 1n1.4), 1109(XREF 1K), 1109(XREF 1n2.4), 1111(XREF 1S), 1111(XREF 1n1.4), 1111(XREF 1K), 1111(XREF 1n2.4), 1111(XREF 2S)
1111(XREF 2n1.4), 1111(XREF 2K), 1111(XREF 2n2.4), 1112(XREF 2S), 1112(XREF 2n1.3), 1116(XREF 1S), 1116(XREF 1n1.4), 1118(XREF 1S), 1118(XREF 1n1.4), 1118(XREF 1K)
1118(XREF 1n2.4), 1119(XREF 1S), 1119(XREF 1n1.4), 1119(XREF 1K), 1119(XREF 1n2.4), 1401(XREF 1S), 1401(XREF 1n1.4), 1401(XREF 1K), 1401(XREF 1n2.4), 6101(XREF 1S)
6101(XREF 1n1.4), 6101(XREF 1K), 6101(XREF 1n2.4), 6101(XREF 2S), 6101(XREF 2n1.4), 6101(XREF 2K), 6101(XREF 2n2.4), 6102(XREF 1S), 6102(XREF 1n1.4), 6102(XREF 1K)
6102(XREF 1n2.4), 6102(XREF 2S), 6102(XREF 2n1.4), 6102(XREF 2K), 6102(XREF 2n2.4), 6103(XREF 1S), 6103(XREF 1n1.4), 6103(XREF 1K), 6103(XREF 1n2.4), 6103(XREF 2S)
6103(XREF 2n1.4), 6103(XREF 2K), 6103(XREF 2n2.4), 6104(XREF 1S), 6104(XREF 1n1.4), 6104(XREF 1K), 6104(XREF 1n2.4), 6104(XREF 2S), 6104(XREF 2n1.4), 6104(XREF 2K)
6104(XREF 2n2.4), 6113(XREF 1S), 6113(XREF 1n1.4), 6113(XREF 2S), 6113(XREF 2n1.4), 6113(XREF 2K), 6113(XREF 2n2.4)
DIV(0 .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1n2.3), .04(XREF 1n2.4), .04(XREF 3K), .04(XREF 5S), .04(XREF 5n1.4), .14(XREF 1n1.3), .14(XREF 1n1.4), .14(XREF 2n1.3)
.14(XREF 2n1.4), .15(XREF 1K), .15(XREF 3S), .15(XREF 3n1.3), .15(XREF 3n1.4), .15(XREF 3K), .15(XREF 4S), .15(XREF 4n1.3), .15(XREF 4n1.4), .15(XREF 4K)
.15(XREF 7S), .15(XREF 7n1.4), 1105(XREF 1n1.3), 1105(XREF 1n1.4), 1105(XREF 1K), 1105(XREF 1n2.4), 1106(XREF 1n1.3), 1106(XREF 1n1.4), 1106(XREF 1n2.3), 1106(XREF 1n2.4)
1108(XREF 2n1.3), 1108(XREF 2n1.4), 1108(XREF 2n2.3), 1108(XREF 2n2.4), 1109(XREF 1n1.3), 1109(XREF 1n1.4), 1109(XREF 1K), 1109(XREF 1n2.4), 1111(XREF 1S), 1111(XREF 1n1.4)
1111(XREF 1K), 1111(XREF 1n2.4), 1111(XREF 2S), 1111(XREF 2n1.4), 1111(XREF 2K), 1111(XREF 2n2.4), 1112(XREF 2S), 1112(XREF 2n1.3), 1116(XREF 1S), 1116(XREF 1n1.4)
1118(XREF 1S), 1118(XREF 1n1.4), 1118(XREF 1K), 1118(XREF 1n2.4), 1119(XREF 1S), 1119(XREF 1n1.4), 1119(XREF 1K), 1119(XREF 1n2.4), 1401(XREF 1S), 1401(XREF 1n1.4)
1401(XREF 1K), 1401(XREF 1n2.4), 6101(XREF 1S), 6101(XREF 1n1.4), 6101(XREF 1K), 6101(XREF 1n2.4), 6101(XREF 2S), 6101(XREF 2n1.4), 6101(XREF 2K), 6101(XREF 2n2.4)
6102(XREF 1S), 6102(XREF 1n1.4), 6102(XREF 1K), 6102(XREF 1n2.4), 6102(XREF 2S), 6102(XREF 2n1.4), 6102(XREF 2K), 6102(XREF 2n2.4), 6103(XREF 1S), 6103(XREF 1n1.4)
6103(XREF 1K), 6103(XREF 1n2.4), 6103(XREF 2S), 6103(XREF 2n1.4), 6103(XREF 2K), 6103(XREF 2n2.4), 6104(XREF 1S), 6104(XREF 1n1.4), 6104(XREF 1K), 6104(XREF 1n2.4)
6104(XREF 2S), 6104(XREF 2n1.4), 6104(XREF 2K), 6104(XREF 2n2.4), 6113(XREF 1S), 6113(XREF 1n1.4), 6113(XREF 2S), 6113(XREF 2n1.4), 6113(XREF 2K), 6113(XREF 2n2.4)
DT .01+1, .1499OF9.2+1, .15(XREF 3S), .15(XREF 7S), .17+1, .18+1, .26+1, .27+1, .28+1, .31+1
, 1106+1, 1108+1, 1113+1
DUZ .15(XREF 4S), 1111(XREF 2S), 1111(XREF 2K), 1401(XREF 1S), 1401(XREF 1K), 6101(XREF 2S), 6101(XREF 2K), 6102(XREF 2S), 6102(XREF 2K), 6103(XREF 2S)
6103(XREF 2K), 6104(XREF 2S), 6104(XREF 2K), 6113(XREF 2S), 6113(XREF 2K)
U .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .04(XREF 1n2.3), .04(XREF 1n2.4), .04(XREF 3K)
.04(XREF 5S), .04(XREF 5n1.4), .04(XREF 5n69.2), .04(XREF 5n69.3), .12(XREF 1S), .14(XREF 1S), .14(XREF 1n1.3), .14(XREF 1n1.4), .14(XREF 2S), .14(XREF 2n1.3)
.14(XREF 2n1.4), .1499OF9.2+1, .1499OF9.3+1, .15(XREF 1K), .15(XREF 3S), .15(XREF 3n1.4), .15(XREF 3K), .15(XREF 3n69.2), .15(XREF 4S), .15(XREF 4n1.4)
.15(XREF 4K), .15(XREF 4n69.2), .15(XREF 7S), .15(XREF 7n1.4), .15(XREF 7n69.2), .16(XREF 1S), .16(XREF 1K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S)
101(XREF 2K), 1105(XREF 1S), 1105(XREF 1n1.1), 1105(XREF 1n1.3), 1105(XREF 1n1.4), 1105(XREF 1K), 1105(XREF 1n2.4), 1106(XREF 1S), 1106(XREF 1n1.3), 1106(XREF 1n1.4)
1106(XREF 1K), 1106(XREF 1n2.3), 1106(XREF 1n2.4), 1106(XREF 1n49.2), 1106(XREF 1n59.2), 1108(XREF 2S), 1108(XREF 2n1.3), 1108(XREF 2n1.4), 1108(XREF 2K), 1108(XREF 2n2.3)
1108(XREF 2n2.4), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109(XREF 1S), 1109(XREF 1n1.1), 1109(XREF 1n1.3), 1109(XREF 1n1.4), 1109(XREF 1K), 1109(XREF 1n2.4), 1109(XREF 1n69.2)
1111(XREF 1S), 1111(XREF 1n1.4), 1111(XREF 1K), 1111(XREF 1n2.4), 1111(XREF 2S), 1111(XREF 2n1.4), 1111(XREF 2K), 1111(XREF 2n2.4), 1112(XREF 2S), 1112(XREF 2n1.3)
1116(XREF 1S), 1116(XREF 1n1.4), 1118(XREF 1S), 1118(XREF 1n1.4), 1118(XREF 1K), 1118(XREF 1n2.4), 1119(XREF 1S), 1119(XREF 1n1.4), 1119(XREF 1K), 1119(XREF 1n2.4)
1401(XREF 1S), 1401(XREF 1n1.4), 1401(XREF 1K), 1401(XREF 1n2.4), 6101(XREF 1S), 6101(XREF 1n1.4), 6101(XREF 1K), 6101(XREF 1n2.4), 6101(XREF 2S), 6101(XREF 2n1.4)
6101(XREF 2K), 6101(XREF 2n2.4), 6102(XREF 1S), 6102(XREF 1n1.4), 6102(XREF 1K), 6102(XREF 1n2.4), 6102(XREF 2S), 6102(XREF 2n1.4), 6102(XREF 2K), 6102(XREF 2n2.4)
6103(XREF 1S), 6103(XREF 1n1.4), 6103(XREF 1K), 6103(XREF 1n2.4), 6103(XREF 2S), 6103(XREF 2n1.4), 6103(XREF 2K), 6103(XREF 2n2.4), 6104(XREF 1S), 6104(XREF 1n1.4)
6104(XREF 1K), 6104(XREF 1n2.4), 6104(XREF 2S), 6104(XREF 2n1.4), 6104(XREF 2K), 6104(XREF 2n2.4), 6113(XREF 1S), 6113(XREF 1n1.4), 6113(XREF 2S), 6113(XREF 2n1.4)
6113(XREF 2K), 6113(XREF 2n2.4), 6120OT+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K)
.03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .04(XREF 1n2.3), .04(XREF 1n2.4), .04(XREF 3K), .04(XREF 5S), .04(XREF 5n1.4)
.04(XREF 5n69.3), .04(XREF 6S), .04(XREF 6K), .04(XREF 7S), .04(XREF 7K), .04(XREF 8S), .04(XREF 8K), .04(XREF 9S), .04(XREF 9K), .06(XREF 1S)
.06(XREF 1K), .07+1*!, .0999+1*, .12+1*!, .12(XREF 1S), .14(XREF 1S), .14(XREF 1n1.3), .14(XREF 1n1.4), .14(XREF 2S), .14(XREF 2n1.3)
.14(XREF 2n1.4), .1499+1*, .1499OF9.2+1*, .1499OF9.3+1*, .15(XREF 1K), .15(XREF 2S), .15(XREF 2K), .15(XREF 3S), .15(XREF 3n1.3), .15(XREF 3n1.4)
.15(XREF 3K), .15(XREF 3n69.2), .15(XREF 4S), .15(XREF 4n1.3), .15(XREF 4n1.4), .15(XREF 4K), .15(XREF 4n69.2), .15(XREF 5S), .15(XREF 6S), .15(XREF 7S)
.15(XREF 7n1.4), .15(XREF 7n69.2), .16(XREF 1S), .16(XREF 1K), .17+1*!, .18+1*!, .26+1*!, .27+1*!, .28+1*!, .31+1*!
, .32+1!, 101+1!, 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2K), 102+1!, 103+1*!, 1101+1!, 1102+1!
, 1103+1!, 1104+1!, 1105+1*!, 1105(XREF 1S), 1105(XREF 1n1.1), 1105(XREF 1n1.3), 1105(XREF 1n1.4), 1105(XREF 1K), 1105(XREF 1n2.4), 1105(XREF 2S)
1105(XREF 2K), 1106+1*!, 1106(XREF 1S), 1106(XREF 1n1.1), 1106(XREF 1n1.3), 1106(XREF 1n1.4), 1106(XREF 1K), 1106(XREF 1n2.1), 1106(XREF 1n2.3), 1106(XREF 1n2.4)
1106(XREF 1n49.2), 1106(XREF 1n59.2), 1106(XREF 2S), 1106(XREF 2K), 1107+1*!, 1108+1*!, 1108(XREF 1S), 1108(XREF 1K), 1108(XREF 2S), 1108(XREF 2n1.1)
1108(XREF 2n1.3), 1108(XREF 2n1.4), 1108(XREF 2K), 1108(XREF 2n2.1), 1108(XREF 2n2.3), 1108(XREF 2n2.4), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109+1!, 1109(XREF 1S)
1109(XREF 1n1.1), 1109(XREF 1n1.3), 1109(XREF 1n1.4), 1109(XREF 1K), 1109(XREF 1n2.4), 1110+1!, 1111+1!, 1111(XREF 1S), 1111(XREF 1n1.4), 1111(XREF 1K)
1111(XREF 1n2.4), 1111(XREF 2S), 1111(XREF 2n1.4), 1111(XREF 2K), 1111(XREF 2n2.4), 1112(XREF 2S), 1112(XREF 2n1.3), 1113+1*!, 1114+1*!, 1115+1!
, 1116+1!, 1116(XREF 1S), 1116(XREF 1n1.4), 1117+1*!, 1118+1*!, 1118(XREF 1S), 1118(XREF 1n1.4), 1118(XREF 1K), 1118(XREF 1n2.4), 1119+1*!
1119(XREF 1S), 1119(XREF 1n1.4), 1119(XREF 1K), 1119(XREF 1n2.4), 1120+1*!, 1122+1*!, 1123(XREF 1S), 1123(XREF 1K), 1124+1*!, 1126+1*!
1126(XREF 1S), 1126(XREF 1K), 1128+1!, 1128(XREF 1S), 1128(XREF 1K), 1201+1!, 1301+1!, 1302+1!, 1304(XREF 1S), 1304(XREF 1K)
, 1305+1*!, 1307+1*!, 1309(XREF 1S), 1309(XREF 1K), 1401+1*!, 1401(XREF 1S), 1401(XREF 1n1.4), 1401(XREF 1K), 1401(XREF 1n2.4), 1403+1!
, 1405+1!, 5101+1!, 5102+1!, 5103+1*!, 5104+1!, 5105+1!, 5106+1!, 5107+1!, 5108+1!, 5109+1!
, 5113+1!, 5114+1!, 6101(XREF 1S), 6101(XREF 1n1.4), 6101(XREF 1K), 6101(XREF 1n2.4), 6101(XREF 2S), 6101(XREF 2n1.4), 6101(XREF 2K), 6101(XREF 2n2.4)
6102(XREF 1S), 6102(XREF 1n1.4), 6102(XREF 1K), 6102(XREF 1n2.4), 6102(XREF 2S), 6102(XREF 2n1.4), 6102(XREF 2K), 6102(XREF 2n2.4), 6103(XREF 1S), 6103(XREF 1n1.4)
6103(XREF 1K), 6103(XREF 1n2.4), 6103(XREF 2S), 6103(XREF 2n1.4), 6103(XREF 2K), 6103(XREF 2n2.4), 6104(XREF 1S), 6104(XREF 1n1.4), 6104(XREF 1K), 6104(XREF 1n2.4)
6104(XREF 2S), 6104(XREF 2n1.4), 6104(XREF 2K), 6104(XREF 2n2.4), 6105+1*!, 6107+1*!, 6109+1*!, 6111+1*!, 6113(XREF 1S), 6113(XREF 1n1.4)
6113(XREF 2S), 6113(XREF 2n1.4), 6113(XREF 2K), 6113(XREF 2n2.4), 6114+1*!, 6116+1*!, 6117+1*!, 6120+1!, 7110+1*, 9999+1*
>> X1 .1499+1*, 1105(XREF 1n1.1), 1106(XREF 1n49.2), 1106(XREF 1n59.2), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109(XREF 1n1.1)
>> X2 .1499+1*, 1105(XREF 1n1.1), 1106(XREF 1n49.2), 1106(XREF 1n59.2), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109(XREF 1n1.1)
Y .01+1, .04(XREF 1S), .04(XREF 1K), .04(XREF 3K), .04(XREF 5S), .04(XREF 5n69.3), .07+1, .12+1, .14(XREF 1S), .14(XREF 2S)
, .1499+1*, .15(XREF 1K), .15(XREF 3S), .15(XREF 3n1.3), .15(XREF 3K), .15(XREF 4S), .15(XREF 4n1.3), .15(XREF 4K), .15(XREF 7S), .17+1
, .18+1, .26+1, .27+1, .28+1, .31+1, 103+1, 1105+1, 1105(XREF 1S), 1105(XREF 1K), 1106+1
1106(XREF 1S), 1106(XREF 1K), 1106(XREF 1n49.2), 1106(XREF 1n59.2), 1107+1, 1108+1, 1108(XREF 2S), 1108(XREF 2K), 1108(XREF 2n49.2), 1108(XREF 2n59.2)
1109(XREF 1S), 1109(XREF 1n1.3), 1109(XREF 1K), 1111(XREF 1S), 1111(XREF 1K), 1111(XREF 2S), 1111(XREF 2K), 1112(XREF 2S), 1113+1, 1114+1
1116(XREF 1S), 1118(XREF 1S), 1118(XREF 1K), 1119(XREF 1S), 1119(XREF 1K), 1122+1, 1124+1, 1126+1, 1305+1, 1307+1
, 1401+1, 1401(XREF 1S), 1401(XREF 1K), 5103+1, 6101(XREF 1S), 6101(XREF 1K), 6101(XREF 2S), 6101(XREF 2K), 6102(XREF 1S), 6102(XREF 1K)
6102(XREF 2S), 6102(XREF 2K), 6103(XREF 1S), 6103(XREF 1K), 6103(XREF 2S), 6103(XREF 2K), 6104(XREF 1S), 6104(XREF 1K), 6104(XREF 2S), 6104(XREF 2K)
, 6105+1, 6107+1, 6109+1, 6111+1, 6113(XREF 1S), 6113(XREF 2S), 6113(XREF 2K), 6114+1, 6116+1, 6117+1
, 6120OT+1*
Y(0 .04(XREF 1S), .04(XREF 1n2.3), .04(XREF 5S), .04(XREF 5n69.3), .14(XREF 1n1.3), .14(XREF 2n1.3), .15(XREF 3n1.3), .15(XREF 3n69.2), .15(XREF 4n1.3), .15(XREF 4n69.2)
.15(XREF 7S), .15(XREF 7n69.2), 1105(XREF 1n1.3), 1105(XREF 1K), 1106(XREF 1n1.3), 1106(XREF 1n2.3), 1108(XREF 2n1.3), 1108(XREF 2n2.3), 1109(XREF 1n1.3), 1109(XREF 1K)
1111(XREF 1S), 1112(XREF 2n1.3), 1116(XREF 1S), 1118(XREF 1S), 1119(XREF 1S), 6120OT+1*
Y(1 .04(XREF 1S), .04(XREF 1K), .04(XREF 1n2.3), .04(XREF 3K), .04(XREF 5S), .04(XREF 5n69.2), .04(XREF 5n69.3), .14(XREF 1S), .14(XREF 1n1.3), .14(XREF 2S)
.14(XREF 2n1.3), .15(XREF 1K), .15(XREF 3S), .15(XREF 3K), .15(XREF 3n69.2), .15(XREF 4S), .15(XREF 4K), .15(XREF 4n69.2), .15(XREF 7S), .15(XREF 7n69.2)
1105(XREF 1S), 1105(XREF 1n1.1), 1105(XREF 1n1.3), 1105(XREF 1K), 1106(XREF 1S), 1106(XREF 1n1.3), 1106(XREF 1K), 1106(XREF 1n2.3), 1106(XREF 1n49.2), 1106(XREF 1n59.2)
1108(XREF 2S), 1108(XREF 2n1.3), 1108(XREF 2K), 1108(XREF 2n2.3), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109(XREF 1S), 1109(XREF 1n1.1), 1109(XREF 1n1.3), 1109(XREF 1K)
1109(XREF 1n69.2), 1111(XREF 1S), 1111(XREF 1K), 1111(XREF 2S), 1111(XREF 2K), 1112(XREF 2S), 1112(XREF 2n1.3), 1116(XREF 1S), 1118(XREF 1S), 1118(XREF 1K)
1119(XREF 1S), 1119(XREF 1K), 1401(XREF 1S), 1401(XREF 1K), 6101(XREF 1S), 6101(XREF 1K), 6101(XREF 2S), 6101(XREF 2K), 6102(XREF 1S), 6102(XREF 1K)
6102(XREF 2S), 6102(XREF 2K), 6103(XREF 1S), 6103(XREF 1K), 6103(XREF 2S), 6103(XREF 2K), 6104(XREF 1S), 6104(XREF 1K), 6104(XREF 2S), 6104(XREF 2K)
6113(XREF 1S), 6113(XREF 2S), 6113(XREF 2K)
Y(2 .04(XREF 5n69.3), .15(XREF 3n1.3), .15(XREF 3n69.2), .15(XREF 4n1.3), .15(XREF 4n69.2), .15(XREF 7S), .15(XREF 7n69.2), 1105(XREF 1n1.3), 1106(XREF 1n1.3), 1106(XREF 1n2.3)
1106(XREF 1n49.2), 1106(XREF 1n59.2), 1108(XREF 2n1.3), 1108(XREF 2n2.3), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109(XREF 1n1.3), 1109(XREF 1n69.2)
Y(3 .04(XREF 5n69.2), .04(XREF 5n69.3), .15(XREF 3n1.3), .15(XREF 3n69.2), .15(XREF 4n1.3), .15(XREF 4n69.2), .15(XREF 7n69.2), 1106(XREF 1n1.1), 1106(XREF 1n2.1), 1106(XREF 1n49.2)
1106(XREF 1n59.2), 1108(XREF 2n1.1), 1108(XREF 2n2.1), 1108(XREF 2n49.2), 1108(XREF 2n59.2), 1109(XREF 1n1.3)
Y(4 .04(XREF 5n69.2), .04(XREF 5n69.3), 1106(XREF 1n1.1), 1106(XREF 1n2.1), 1108(XREF 2n1.1), 1108(XREF 2n2.1), 1109(XREF 1n1.3), 1109(XREF 1n69.2)
Y(5 1106(XREF 1n1.1), 1106(XREF 1n2.1), 1108(XREF 2n1.1), 1108(XREF 2n2.1)
Y(90001 .1499+1, .1499OF9.2+1*, .1499OF9.3+1*, 7110+1, 7110OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All