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 |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DGCR(399

Package: Integrated Billing

Global: ^DGCR(399


Information

FileMan FileNo FileMan Filename Package
399 BILL/CLAIMS Integrated Billing

Description

Directly Accessed By Routines, Total: 213

Package Total Routines
Integrated Billing 182 IB20PT62    IBCRTN    ^IBT(356.399    IBCF1    IBCF2    IBCF22    IBCF23    IBCF3
IBCF31    IBCF32    IBCF33    IBCF4    IBCNQ    IBCNS    IBCNS1    IBCORC1
IBCSC1    IBCSC3    IBCSC4    IBCSC4A    IBCSC4C    IBCSC4D    IBCSC5    IBCSC5A
IBCSC5B    IBCSC5C    IBCSCH1    IBCU71    IBEFUNC1    IBOA31    IBOBCC    IBOCNC1
IBOTR2    IBPU2    IBRFN2    IBTRE    IBXSC1    IBXSC2    IBXSC3    IBXSC4
IBXSC5    IBXSC6    IBXSC7    IBXSC8    IBXX19    IBXX5    ^DGCR(399    IB20PT1
IBCA    IBCA1    IBCA2    IBCA3    IBCAMS    IBCB    IBCB1    IBCB2
IBCBB    IBCBB1    IBCBB2    IBCBULL    IBCC    IBCCC    IBCCC1    IBCCC2
IBCCC3    IBCCPT    IBCD    IBCD1    IBCD2    IBCD3    IBCD4    IBCD5
IBCDC    IBCDE    IBCF    IBCF10    IBCF11    IBCF12    IBCF13    IBCF21
IBCFP    IBCNADD    IBCNQ1    IBCNS2    IBCNSM1    IBCNSU    IBCONS1    IBCONS2
IBCOPV    IBCOPV1    IBCOPV2    IBCSC6    IBCSC7    IBCSC8    IBCSC82    IBCSC8H
IBCSCE    IBCSCE1    IBCSCU    IBCU    IBCU1    IBCU2    IBCU3    IBCU4
IBCU41    IBCU5    IBCU6    IBCU61    IBCU62    IBCU63    IBCU64    IBCU7
IBCU8    IBCU81    IBCVA0    IBCVA1    IBERS3    IBOAMS    IBOBL    IBOCPDS
IBOHLD1    IBOHLD2    IBOLK    IBOLK1    IBOMBL    IBOMTP1    IBORT    IBORT1
IBOSTUS    IBOSTUS1    IBPF1    IBRFN    IBRUTL    IBTOBI1    IBTRED0    IBTRED1
IBXSC31    IBXSC32    IBXSC41    IBXSC42    IBXSC43    IBXSC51    IBXSC52    IBXSC53
IBXSC54    IBXSC61    IBXSC62    IBXSC71    IBXSC72    IBXSC73    IBXSC74    IBXSC82
IBXSC8H    IBXST    IBXST1    IBXX1    IBXX10    IBXX11    IBXX12    IBXX13
IBXX14    IBXX15    IBXX16    IBXX17    IBXX18    IBXX2    IBXX3    IBXX4
IBXX6    IBXX7    IBXX8    IBXX9    OCCURRENCE CODE    OP VISITS DATE(S)    PROCEDURES    REASON(S) DISAPPROVED-INITIAL
REASON(S) DISAPPROVED-SECOND    RETURNED LOG DATE/TIME    REVENUE CODE    VALUE CODE    ^IBA(362.1    ^IBA(362.4    
Registration 3 DGCRNS    DGPTAPSL    DGVPTIB6    
Automated Information Collection System 2 IBDFOSG1    IBDFOSG2    

Accessed By FileMan Db Calls, Total: 44

Package Total Routines
Integrated Billing 43 IBCA2    IBCB    IBCC    IBCCC    IBCCC2    IBCCPT    IBCD3    IBCF4
IBCNQ    IBCNSP2    IBCRTN    IBCSC5C    IBCSCE    IBCU62    IBCVA0    IBOBL
IBOCPD    IBPU2    IBXSC1    IBXSC2    IBXSC3    IBXSC32    IBXSC4    IBXSC41
IBXSC42    IBXSC43    IBXSC5    IBXSC51    IBXSC52    IBXSC53    IBXSC54    IBXSC6
IBXSC61    IBXSC62    IBXSC7    IBXSC71    IBXSC73    IBXSC74    IBXSC8    IBXSC82
IBXSC8H    IBXST    IBXST1    
Automated Information Collection System 1 IBDFOSG2    

Pointed To By FileMan Files, Total: 7

Package Total FileMan Files
Integrated Billing 7 BILL/CLAIMS(#399)[.15.17]    IB AUTOMATED BILLING COMMENTS(#362.1)[.03]    IB BILL/CLAIMS DIAGNOSIS(#362.3)[.02]    IB BILL/CLAIMS PRESCRIPTION REFILL(#362.4)[.02]    IB BILL/CLAIMS PROSTHETICS(#362.5)[.02]    CLAIMS TRACKING(#356)[.11]    CLAIMS TRACKING/BILL(#356.399)[.02]    

Pointer To FileMan Files, Total: 20

Package Total FileMan Files
Integrated Billing 10 BILL/CLAIMS(#399)[.15.17]    MCCR UTILITY(#399.1)[161162#399.041(.01)#399.042(.05)#399.047(.01)]    REVENUE CODE(#399.2)[#399.042(.01)]    RATE TYPE(#399.3)[.07]    MCCR INCONSISTENT DATA ELEMENTS(#399.4)[#399.044(.01)#399.045(.01)]    INSURANCE COMPANY(#36)[101102103]
IB BILL/CLAIMS DIAGNOSIS(#362.3)[#399.0304(10)#399.0304(11)#399.0304(12)#399.0304(13)]    BILL FORM TYPE(#353)[.19]    PLACE OF SERVICE(#353.1)[168#399.0304(8)]    TYPE OF SERVICE(#353.2)[169#399.0304(9)]    
Kernel 3 INSTITUTION(#4)[111]    STATE(#5)[108#399.041(.03)]    NEW PERSON(#200)[25811131518#399.046(.02)]    
Registration 3 MEDICAL CENTER DIVISION(#40.8)[#399.0304(5)#399.042(.07)]    PTF(#45)[.08]    VA PATIENT(#2)[.02]    
DRG Grouper 2 ICD OPERATION/PROCEDURE(#80.1)[545556#399.0304(.01)]    ICD DIAGNOSIS(#80)[6465666768215#399.0304(7)]
CPT Files 1 CPT(#81)[515253575859#399.0304(.01)#399.042(.06)]    
Scheduling 1 HOSPITAL LOCATION(#44)[#399.0304(6)]    

Fields, Total: 131

Field # Name Loc Type Details
.01 BILL NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:X'?.ANP X I $D(X) K:$E(X)=" " X
  • LAST EDITED:  JUN 08, 1993
  • HELP-PROMPT:  Enter the "unique" bill number for this billing episode [6 characters].
  • DESCRIPTION:  This is the "unique" bill number assigned to this billing episode. A bill numbers consist of 6 characters. Beginning with MAS version 4.7 bill numbers will be determined by the Accounts Receivable module of IFCAP and
    returned to MCCR.  This is to provide consistency in bill numbering between the sites and CALM.  The bill numbers will be determined from entries in the AR BILL NUMBER file.  They will be in the format of PAT (Pending
    Account Transaction) numbers and may be used in Accounts Receivable for PAT numbers.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  399^B
    1)= S ^DGCR(399,"B",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^399^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^
    %DTC X ^DD(399,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,1)=DIV,DIH=399,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= DATE ENTERED=""
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= #1
  • CROSS-REFERENCE:  ^^TRIGGER^399^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"") X ^DD(399,.01,1,4,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,2)=DIV,DIH=399,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$S(($D(DUZ)#2):DUZ,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= #2
  • CROSS-REFERENCE:  ^^TRIGGER^399^164
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,14)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(399,.01,1,5,1.1)
    X ^DD(399,.01,1,5,1.4)
    1.1)= S X=DIV S X=$S($D(^IBE(350.9,1,1)):$P(^(1),U,6),1:"")
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,14)=DIV,DIH=399,DIG=164 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #164=""
    CREATE VALUE)= S X=$S($D(^IBE(350.9,1,1)):$P(^(1),U,6),1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= #164
    This will automatically store the default BC/BS PROVIDER # from the IB SITE PARAMETERS file into the BC/BS PROVIDER # field for this bill.
  • CROSS-REFERENCE:  ^^TRIGGER^399^.13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(399,.01,1,6,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=1
    DELETE VALUE)= NO EFFECT
    FIELD)= #.13
  • CROSS-REFERENCE:  ^^TRIGGER^399^.19
    1)= X ^DD(399,.01,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=$P($G(^IBE(350.9,1,1)),U,26) X ^DD(399,.01,1,7,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$S('$D(^IBE(353,+$P(Y(1),U,19),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,19)=DIV,DIH=399,DIG=.19 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= DO NOT DELETE
    CREATE CONDITION)= FORM TYPE=""
    CREATE VALUE)= S X=$P($G(^IBE(350.9,1,1)),U,26)
    DELETE VALUE)= NO EFFECT
    FIELD)= FORM TYPE
    Sets the bill's form type to the site's default form type (350.9,1.26) when the bill is created.
.02 PATIENT NAME 0;2 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • LAST EDITED:  MAY 26, 1988
  • HELP-PROMPT:  Enter the name of the patient for whom this bill is being generated.
  • DESCRIPTION:  
    This is the name of the patient for whom this bill is being generated.
    UNEDITABLE
  • CROSS-REFERENCE:  399^C
    1)= S ^DGCR(399,"C",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,"C",$E(X,1,30),DA)
.03 EVENT DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETP",%DT(0)="-0" D ^%DT S X=Y K:Y<1 X I $D(X),'$D(IBNWBL) W !?4,"Event date can no longer be edited...cancel and submit a new bill if necessary." K X
  • LAST EDITED:  FEB 20, 1992
  • HELP-PROMPT:  Enter the date of admission for inpatient episodes of care. For outpatient visits, enter the date of the initial outpatient visit.
  • DESCRIPTION:  
    This is the date on which care was originated. For inpatient episodes of care, this is the admission date. For outpatient visits, this is the date of the initial outpatient visit.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  399^D
    1)= S ^DGCR(399,"D",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  399^APDT^MUMPS
    1)= S IBN=$P(^DGCR(399,DA,0),"^",2) S:$D(IBN) ^DGCR(399,"APDT",IBN,DA,9999999-X)="" K IBN
    2)= S IBN=$P(^DGCR(399,DA,0),"^",2) I $D(IBN) K ^DGCR(399,"APDT",IBN,DA,9999999-X),IBN
    Cross-reference of bills by patient and event date.
  • CROSS-REFERENCE:  399^ABNDT^MUMPS
    1)= S ^DGCR(399,"ABNDT",DA,9999999-X)=""
    2)= K ^DGCR(399,"ABNDT",DA,9999999-X)
    Cross-reference of bills by inverse event date.
.04 LOCATION OF CARE 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR HOSPITAL (INCLUDES CLINIC) - INPT. OR OPT.;
  • '2' FOR SKILLED NURSING (NHCU);
  • '7' FOR CLINIC (WHEN INDEPENDENT OR SATELLITE);

  • LAST EDITED:  DEC 21, 1993
  • HELP-PROMPT:  Enter the code which identifies the type of facility at which care was administered.
  • DESCRIPTION:  
    This identifies the type of facility at which care was administered.
.05 BILL CLASSIFICATION 0;5 SET
************************REQUIRED FIELD************************
  • '1' FOR INPATIENT (MEDICARE PART A);
  • '2' FOR HUMANITARIAN EMERGENCY (INPT./MEDICARE PART B);
  • '3' FOR OUTPATIENT;
  • '4' FOR HUMANITARIAN EMERGENCY (OPT./ESRD);

  • LAST EDITED:  MAY 08, 1990
  • HELP-PROMPT:  Enter the code which designates inpatient or outpatient care.
  • DESCRIPTION:  
    This code identifies the care being billed for as inpatient or outpatient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  399^ABT
    1)= S ^DGCR(399,"ABT",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,"ABT",$E(X,1,30),DA)
.06 TIMEFRAME OF BILL 0;6 SET
************************REQUIRED FIELD************************
  • '1' FOR ADMIT THRU DISCHARGE CLAIM;
  • '2' FOR INTERIM - FIRST CLAIM;
  • '3' FOR INTERIM - CONTINUING CLAIM;
  • '4' FOR INTERIM - LAST CLAIM;
  • '5' FOR LATE CHARGE(S) ONLY CLAIM;
  • '6' FOR ADJUSTMENT OF PRIOR CLAIM;
  • '7' FOR REPLACEMENT OF PRIOR CLAIM;
  • '0' FOR NON-PAYMENT/ZERO CLAIM;

  • LAST EDITED:  DEC 21, 1989
  • HELP-PROMPT:  Enter the code which defines the frequency of this bill.
  • DESCRIPTION:  
    This code defines the frequency of this bill.
.07 RATE TYPE 0;7 POINTER TO RATE TYPE FILE (#399.3)
************************REQUIRED FIELD************************
RATE TYPE(#399.3)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 12, 1991
  • HELP-PROMPT:  Enter the code which identifies the type of bill.
  • DESCRIPTION:  
    This identifies the type of bill.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  to screen out Inactive Rate Types
  • CROSS-REFERENCE:  ^^TRIGGER^399^156
    1)= X ^DD(399,.07,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X="Y" X ^DD(399,.07,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.07,1,1,69.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,5)_":",2),$C(59),1)="YES" S D0=I(0,0)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,6)=DIV,DIH=399,DIG=156 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(399,.07,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(399,.07,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.07,1,1,79.2) S Y(101)=$S($D(^DGCR(399.3,D0,0)):^(0),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,5)_":",2),$C(59),1)'="YES" S D0=I(0,0)
    2.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,6)=DIV,DIH=399,DIG=156 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    69.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^DGCR(399.3,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(399.3,.05,0)):$P(^(0),U,3),1:""),Y(101)=$S($D(^DGCR(399.3,D0,0)):^(0),1:"")
    79.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:""),D0=$P(Y(1),U,7) S:'$D(^DGCR(399.3,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(399.3,.05,0)):$P(^(0),U,3),1:"")
    CREATE CONDITION)= RATE TYPE:IS THIS A THIRD PARTY BILL?="YES"
    CREATE VALUE)= S X="Y"
    DELETE CONDITION)= RATE TYPE:IS THIS A THIRD PARTY BILL?'="YES"
    DELETE VALUE)= S X="N"
    FIELD)= #156
  • CROSS-REFERENCE:  ^^TRIGGER^399^.11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(399,.07,1,2,1.1) X ^DD(399,.07,1,2,1.4)
    1.1)= S X=DIV S X=$P(^DGCR(399.3,$P(^DGCR(399,DA,0),U,7),0),U,7)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=399,DIG=.11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$P(^DGCR(399.3,$P(^DGCR(399,DA,0),U,7),0),U,7)
    DELETE VALUE)= NO EFFECT
    FIELD)= WHO'S RESPONSIBLE
  • CROSS-REFERENCE:  399^AD
    1)= S ^DGCR(399,"AD",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,"AD",$E(X,1,30),DA)
.08 PTF ENTRY NUMBER 0;8 POINTER TO PTF FILE (#45)
************************REQUIRED FIELD************************
PTF(#45)

  • INPUT TRANSFORM:  D PTF^IBCU S DIC(0)="MN",DIC="^DGPT(",DIC("S")="I $D(IBDD1(+Y))" D ^DIC:X K DIC,IBDD1 S:$D(DIE) DIC=DIE S X=+Y K:Y<0 X
  • LAST EDITED:  OCT 18, 1993
  • HELP-PROMPT:  ENTER A PTF RECORD BELONGING TO THIS PATIENT ONLY!
  • DESCRIPTION:  
    This identifies PTF records belonging to this patient only.
  • SCREEN:  S DIC("S")="I $D(IBDD1(+Y))"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^399^159
    1)= X ^DD(399,.08,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(399,.08,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,159,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_":",2),$C(59),1)=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,9)=DIV,DIH=399,DIG=159 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #159=""
    CREATE VALUE)= S X=2
    DELETE VALUE)= NO EFFECT
    FIELD)= #159
  • CROSS-REFERENCE:  ^^TRIGGER^399^158
    1)= X ^DD(399,.08,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(399,.08,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,158,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_":",2),$C(59),1)=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,8)=DIV,DIH=399,DIG=158 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #158=""
    CREATE VALUE)= S X=2
    DELETE VALUE)= NO EFFECT
    FIELD)= #158
  • CROSS-REFERENCE:  ^^TRIGGER^399^160
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=99 X ^DD(399,.08,1,3,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,10)=DIV,DIH=399,DIG=160 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=99
    DELETE VALUE)= NO EFFECT
    FIELD)= ACCIDENT HOUR
  • CROSS-REFERENCE:  ^^TRIGGER^399^162
    1)= X ^DD(399,.08,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV D DIS^IBCU S X=X X ^DD(399,.08,1,4,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$S('$D(^DGCR(399.1,+$P(Y(1),U,12),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,12)=DIV,DIH=399,DIG=162 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(399,.08,1,4,2.4)
    2.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,12)=DIV,DIH=399,DIG=162 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= #162=""
    CREATE VALUE)= D DIS^IBCU S X=X
    DELETE VALUE)= @
    FIELD)= #162
    This sets the discharge status to the correct entry based upon the Disposition Field type in the PTF record.
  • CROSS-REFERENCE:  399^APTF
    1)= S ^DGCR(399,"APTF",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,"APTF",$E(X,1,30),DA)
    Cross reference of all PTF records with associated bills.  To be used by PTF purge utilities.
  • CROSS-REFERENCE:  ^^TRIGGER^399^165
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^DGCR(399,DA,0),U,5)<3 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=+$$LOS1^IBCU64(DA) X ^DD(399,.08,1,6,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,15)=DIV,DIH=399,DIG=165 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= I $P(^DGCR(399,DA,0),U,5)<3
    CREATE VALUE)= S X=+$$LOS1^IBCU64(DA)
    DELETE VALUE)= NO EFFECT
    FIELD)= LENGTH OF STAY
    Sets Length of Stay based on PTF record and date range of bill.  Inpatients only.
.09 PROCEDURE CODING METHOD 0;9 SET
  • '4' FOR CPT-4;
  • '5' FOR HCPCS (HCFA COMMON PROCEDURE CODING SYSTEM);
  • '9' FOR ICD-9-CM;

  • HELP-PROMPT:  Enter the code which identifies the method for procedure coding on this bill.
  • DESCRIPTION:  
    This defines the outpatient procedure coding method utilized on this bill.
  • NOTES:  TRIGGERED by the FORM TYPE field of the BILL/CLAIMS File
.11 WHO'S RESPONSIBLE FOR BILL? 0;11 SET
************************REQUIRED FIELD************************
  • 'p' FOR PATIENT;
  • 'i' FOR INSURER;
  • 'o' FOR OTHER;

  • LAST EDITED:  SEP 08, 1993
  • HELP-PROMPT:  Enter the code which identifies the party responsible for payment of this bill.
  • DESCRIPTION:  
    This identifies the party responsible for payment of this bill.
    UNEDITABLE
  • NOTES:  TRIGGERED by the RATE TYPE field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  ^^TRIGGER^399^112
    1)= X ^DD(399,.11,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"M")):^("M"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV D EN1^IBCU5 X ^DD(399,.11,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=(X="i"&($S('$D(^DGCR(399,DA,"M")):1,'+^("M"):1,'$D(^DIC(36,+^("M"),0)):1,1:0)))
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M")):^("M"),1:""),DIV=X S $P(^("M"),U,12)=DIV,DIH=399,DIG=112 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X=(X="i"&($S('$D(^DGCR(399,DA,"M")):1,'+^("M"):1,'$D(^DIC(36,+^("M"),0)):1,1:0)))
    CREATE VALUE)= D EN1^IBCU5
    DELETE VALUE)= NO EFFECT
    FIELD)= #112
  • CROSS-REFERENCE:  399^AML1^MUMPS
    1)= D EN^IBCU5
    2)= D DEL^IBCU5
    Loads/deletes the mailing address.
  • CROSS-REFERENCE:  399^AREV6^MUMPS
    1)= S DGRVRCAL=1
    2)= S DGRVRCAL=2
    Variable causes revenue codes and chrges to be re-calculated on return to the enter/edit billing screens.
.13 STATUS 0;13 SET
************************REQUIRED FIELD************************
  • '1' FOR ENTERED/NOT REVIEWED;
  • '2' FOR REVIEWED;
  • '3' FOR AUTHORIZED;
  • '4' FOR PRINTED;
  • '5' FOR TRANSMITTED;
  • '7' FOR CANCELLED;
  • '0' FOR CLOSED;

  • LAST EDITED:  JAN 27, 1994
  • HELP-PROMPT:  Enter the code which defines whether or not billing record is editable.
  • DESCRIPTION:  This identifies the status of this billing record. That is, whether or not this record is open for editing. Current valid statuss are: 1=ENTERED/NOT REVIEWED, 2=REVIEWED, 3=AUTHORIZED, 4=PRINTED, 5=TRANSMITTED,
    7=CANCELLED, 0=CLOSED Only ENTERED/NOT REVIEWED and REVIEWED bills are editable.
  • NOTES:  TRIGGERED by the BILL NUMBER field of the BILL/CLAIMS File
    TRIGGERED by the DATE BILL CANCELLED field of the BILL/CLAIMS File
    TRIGGERED by the DATE LAST PRINTED field of the BILL/CLAIMS File
    TRIGGERED by the AUTHORIZE BILL GENERATION? field of the BILL/CLAIMS File
    TRIGGERED by the SECONDARY REVIEW field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  ^^TRIGGER^399^.14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),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(399,.13,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=399,DIG=.14 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= #.14
  • CROSS-REFERENCE:  399^AOP^MUMPS
    1)= I X>0,X<3,$P(^DGCR(399,DA,0),U,2) S ^DGCR(399,"AOP",$P(^(0),U,2),DA)=""
    2)= I $P(^DGCR(399,DA,0),U,2) K ^DGCR(399,"AOP",$P(^(0),U,2),DA)
  • CROSS-REFERENCE:  399^AST^MUMPS
    1)= I +X=3 S ^DGCR(399,"AST",+X,DA)=""
    2)= K ^DGCR(399,"AST",+X,DA)
    Cross reference of all Authorized bills.
.14 STATUS DATE 0;14 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 08, 1988
  • HELP-PROMPT:  Enter the date of last status change.
  • DESCRIPTION:  
    This is the date of the last status change.
  • NOTES:  TRIGGERED by the STATUS field of the BILL/CLAIMS File
.15 BILL COPIED FROM 0;15 POINTER TO BILL/CLAIMS FILE (#399) BILL/CLAIMS(#399)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,13)=7" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 26, 1990
  • HELP-PROMPT:  Enter the bill that this bill was copied from.
  • DESCRIPTION:  
    If this bill was copied from another bill, then this will be the bill it was copied from.  This field is automatically completed by the Copy and Cancel option.
  • SCREEN:  S DIC("S")="I $P(^(0),U,13)=7"
  • EXPLANATION:  BILL MUST BE CANCELLED TO COPY
.16 NON-VA DISCHARGE DATE 0;16 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 20, 1990
  • HELP-PROMPT:  Enter the discharge date for this admission. It must be since the admission date and not in the future.
  • DESCRIPTION:  
    This is the discharge date for NON-VA Admissions when no associated PTF record exists.  The date entered must be after the admission date and not into the future.
.17 PRIMARY BILL 0;17 POINTER TO BILL/CLAIMS FILE (#399) BILL/CLAIMS(#399)

  • LAST EDITED:  MAY 24, 1990
  • DESCRIPTION:  
    This is the initial bill that this episode is associated with.  If an episode of care has more than one bill but multiple event dates, then this field can be used.
  • CROSS-REFERENCE:  399^AC
    1)= S ^DGCR(399,"AC",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,"AC",$E(X,1,30),DA)
.18 SC AT TIME OF CARE 0;18 FREE TEXT

  • INPUT TRANSFORM:  I $D(X) D YN^IBCU
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  SEP 13, 1991
  • HELP-PROMPT:  Was this patient Service Connected for any condition during the timeframe of this bill? Answer 'Yes' or 'No'.
  • DESCRIPTION:  Was this patient Service Connected for any condition at the time the care in the bill was rendered. This field is used to correctly assign Accounts Receivable AMIS segments to this bill if it is a Reimbursable Insurance
    bill.  Answer 'Yes' or 'No'.
    The default for this field is the current value in the SC PATIENT field of the patient file.  If this field is left blank, the default value will be used to determine the AMIS segment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.19 FORM TYPE 0;19 POINTER TO BILL FORM TYPE FILE (#353)
************************REQUIRED FIELD************************
BILL FORM TYPE(#353)

  • LAST EDITED:  APR 30, 1992
  • HELP-PROMPT:  Enter the type of claim form to be used.
  • DESCRIPTION:  
    The form type that the bill is printed on.
  • NOTES:  TRIGGERED by the BILL NUMBER field of the BILL/CLAIMS File
    TRIGGERED by the PRIMARY INSURANCE CARRIER field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  ^^TRIGGER^399^.09
    1)= X ^DD(399,.19,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=4 X ^DD(399,.19,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.19,1,1,69.2) S Y(1)=X S X=$P($P(Y(3),$C(59)_$P(Y(2),U,9)_":",2),$C(59),1)="",Y=X,X=Y(1),X=X&Y
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=399,DIG=.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    69.2)= S Y(3)=$C(59)_$S($D(^DD(399,.09,0)):$P(^(0),U,3),1:""),Y(2)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$S('$D(^IBE(353,+Y(0),0)):"",1:$P(^(0),U,1))="HCFA 1500"
    CREATE CONDITION)= FORM TYPE="HCFA 1500"&(PROCEDURE CODING METHOD="")
    CREATE VALUE)= S X=4
    DELETE VALUE)= NO EFFECT
    FIELD)= PROCEDURE CODING METHOD
    If the HCFA 1500 claim form is used and no coding method defined, then set coding method to CPT-4.
  • CROSS-REFERENCE:  399^AREV7^MUMPS
    1)= S DGRVRCAL=1
    2)= S DGRVRCAL=2
    3)= DO NOT DELETE
    Variable causes revenue codes and chrges to be re-calculated on return to the enter/edit billing screens.
.2 AUTO 0;20 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 25, 1994
  • HELP-PROMPT:  True if this bill was created by the auto biller.
  • DESCRIPTION:  
    True if this bill was created by the auto biller.  Should only be set by the auto biller software, no manual entry.
1 DATE ENTERED S;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 21, 1992
  • HELP-PROMPT:  Enter the date on which this billing record was established.
  • DESCRIPTION:  
    This is the date on which this billing record was established.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the BILL NUMBER field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  399^APD
    1)= S ^DGCR(399,"APD",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,"APD",$E(X,1,30),DA)
    Regular cross-reference used to speed up reports.
2 ENTERED/EDITED BY S;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  SEP 21, 1990
  • HELP-PROMPT:  Enter the user who established this billing record.
  • DESCRIPTION:  
    This is the user who established this billing record.
    UNEDITABLE
  • NOTES:  TRIGGERED by the BILL NUMBER field of the BILL/CLAIMS File
3 INITIAL REVIEW S;3 FREE TEXT

  • INPUT TRANSFORM:  I $D(X) D YN^IBCU
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  MAR 10, 1994
  • HELP-PROMPT:  Enter 'Yes' or '1' if the information in this record is accurate and complete or 'No' or '0' if the information is inaccurate or incomplete.
  • DESCRIPTION:  
    This allows the user to approve or disapprove the information contained in this billing record.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^399^4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,4)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^
    %DTC X ^DD(399,3,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,4)=DIV,DIH=399,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= INITIAL REVIEW DATE=""
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= INITIAL REVIEW DATE
  • CROSS-REFERENCE:  ^^TRIGGER^399^5
    1)= X ^DD(399,3,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,3,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,5)=DIV,DIH=399,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= INITIAL REVIEWER=""
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= INITIAL REVIEWER
  • CROSS-REFERENCE:  ^^TRIGGER^399^6
    1)= X ^DD(399,3,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=+X X ^DD(399,3,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:""),Y=$P(Y(1),U,6) X:$D(^DD(399,6,2)) ^(2) S X=Y=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^("S")=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=399,DIG=6 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    2)= Q
    CREATE CONDITION)= SECONDARY REVIEW=""
    CREATE VALUE)= S X=+X
    DELETE VALUE)= NO EFFECT
    FIELD)= SECONDARY REVIEW
4 INITIAL REVIEW DATE S;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1990
  • HELP-PROMPT:  Enter the date on which this billing record was first reviewed.
  • DESCRIPTION:  
    This is the date on which this record was initially reviewed.
  • NOTES:  TRIGGERED by the INITIAL REVIEW field of the BILL/CLAIMS File
5 INITIAL REVIEWER S;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 21, 1990
  • HELP-PROMPT:  Enter the user who first reviewed this billing record.
  • DESCRIPTION:  
    This is the user who performed the initial review on this billing record.
    UNEDITABLE
  • NOTES:  TRIGGERED by the INITIAL REVIEW field of the BILL/CLAIMS File
6 SECONDARY REVIEW S;6 FREE TEXT

  • INPUT TRANSFORM:  I $D(X) D YN^IBCU
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  MAR 10, 1994
  • HELP-PROMPT:  Enter 'Yes' or '1' if the information in this record is accurate and complete, or 'No' or '0' if the information is inaccurate or incomplete.
  • DESCRIPTION:  
    This allows the user to approve or disapprove the information contained in this billing record during the secondary review stage.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the INITIAL REVIEW field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  ^^TRIGGER^399^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,7)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),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(399,6,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,7)=DIV,DIH=399,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= SECONDARY REVIEW DATE=""
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= SECONDARY REVIEW DATE
  • CROSS-REFERENCE:  ^^TRIGGER^399^8
    1)= X ^DD(399,6,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,6,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,8),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,8)=DIV,DIH=399,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= SECONDARY REVIEWER=""
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= SECONDARY REVIEWER
  • CROSS-REFERENCE:  ^^TRIGGER^399^.13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y=Y(0) X:$D(^DD(399,6,2)) ^(2) S X=Y="YES" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(399,6,1,3,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #6="YES"
    CREATE VALUE)= S X=2
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS
7 SECONDARY REVIEW DATE S;7 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter the date on which last review was performed.
  • DESCRIPTION:  
    This is the date on which this record was last reviewed.
  • NOTES:  TRIGGERED by the SECONDARY REVIEW field of the BILL/CLAIMS File
8 SECONDARY REVIEWER S;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 21, 1990
  • HELP-PROMPT:  Enter the user who performed the last review on this billing record.
  • DESCRIPTION:  
    This is the user who performed the last review of this billing record.
  • NOTES:  TRIGGERED by the SECONDARY REVIEW field of the BILL/CLAIMS File
9 AUTHORIZE BILL GENERATION? S;9 FREE TEXT

  • INPUT TRANSFORM:  I $D(X) D YN^IBCU
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  MAR 10, 1994
  • HELP-PROMPT:  Enter 'Yes' or '1' if the billing record has been reviewed and is ready for authorization, or 'No' or '0' if the billing record is not ready to be authorized.
  • DESCRIPTION:  
    This allows the user to authorize the printing of this bill.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^399^10
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,10)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV N %I,%H,% D NO
    W^%DTC X ^DD(399,9,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,10)=DIV,DIH=399,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= AUTHORIZATION DATE=""
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= AUTHORIZATION DATE
  • CROSS-REFERENCE:  ^^TRIGGER^399^11
    1)= X ^DD(399,9,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,9,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,11),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,11)=DIV,DIH=399,DIG=11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= AUTHORIZER=""
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= AUTHORIZER
  • CROSS-REFERENCE:  ^^TRIGGER^399^.13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y=Y(0) X:$D(^DD(399,9,2)) ^(2) S X=Y="YES" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=3 X ^DD(399,9,1,3,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #9="YES"
    CREATE VALUE)= S X=3
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS
10 AUTHORIZATION DATE S;10 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 26, 1988
  • HELP-PROMPT:  Enter date on which this billing record was authorized for generation.
  • DESCRIPTION:  
    This is the date on which this bill was authorized for printing.
    UNEDITABLE
  • NOTES:  TRIGGERED by the AUTHORIZE BILL GENERATION? field of the BILL/CLAIMS File
11 AUTHORIZER S;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 21, 1990
  • HELP-PROMPT:  Enter user who authorized this bill for generation.
  • DESCRIPTION:  
    This is the user who authorized the generation of this bill.
    UNEDITABLE
  • NOTES:  TRIGGERED by the AUTHORIZE BILL GENERATION? field of the BILL/CLAIMS File
12 DATE FIRST PRINTED S;12 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 10, 1994
  • HELP-PROMPT:  Enter date on which this bill was first generated.
  • DESCRIPTION:  
    This is the date on which the bill was first printed.
  • CROSS-REFERENCE:  ^^TRIGGER^399^14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,14)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV N %I,%H,% D NO
    W^%DTC X ^DD(399,12,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,14)=DIV,DIH=399,DIG=14 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #14=""
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= #14
  • CROSS-REFERENCE:  ^^TRIGGER^399^15
    1)= X ^DD(399,12,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,12,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,15),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,15)=DIV,DIH=399,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #15=""
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #15
  • CROSS-REFERENCE:  ^^TRIGGER^399^13
    1)= X ^DD(399,12,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,12,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,13)=DIV,DIH=399,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= FIRST PRINTED BY=""
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= FIRST PRINTED BY
  • CROSS-REFERENCE:  399^AP
    1)= S ^DGCR(399,"AP",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,"AP",$E(X,1,30),DA)
    Regular cross-reference to be used to speed up reports.
13 FIRST PRINTED BY S;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 21, 1990
  • HELP-PROMPT:  Enter user who first generated this bill.
  • DESCRIPTION:  
    This is the user who first generated this bill.
  • NOTES:  TRIGGERED by the DATE FIRST PRINTED field of the BILL/CLAIMS File
14 DATE LAST PRINTED S;14 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1990
  • HELP-PROMPT:  Enter date on which this bill was last generated.
  • DESCRIPTION:  
    This is the date on which this bill was last printed.
  • NOTES:  TRIGGERED by the DATE FIRST PRINTED field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  ^^TRIGGER^399^.13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=4 X ^DD(399,14,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=4
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS
  • CROSS-REFERENCE:  ^^TRIGGER^399^15
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,14,1,3,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,15)=DIV,DIH=399,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= LAST GENERATED BY
15 LAST PRINTED BY S;15 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 21, 1990
  • HELP-PROMPT:  Enter user who generated this bill last.
  • DESCRIPTION:  
    This is the user who last printed this bill.
    UNEDITABLE
  • NOTES:  TRIGGERED by the DATE FIRST PRINTED field of the BILL/CLAIMS File
    TRIGGERED by the DATE LAST PRINTED field of the BILL/CLAIMS File
16 CANCEL BILL? S;16 FREE TEXT

  • INPUT TRANSFORM:  I $D(X) D YN^IBCU
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  JUN 08, 1988
  • HELP-PROMPT:  Enter 'Yes' or '1' if you want this billing record to be cancelled, 'No' or '0' if you do not want this billing record to be cancelled.
  • DESCRIPTION:  
    This allows the user to cancel this bill.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^399^17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(399,16,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,17)=DIV,DIH=399,DIG=17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= #17
  • CROSS-REFERENCE:  ^^TRIGGER^399^18
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,16,1,2,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,18)=DIV,DIH=399,DIG=18 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #18
17 DATE BILL CANCELLED S;17 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 19, 1990
  • HELP-PROMPT:  Enter date on which this bill was cancelled.
  • DESCRIPTION:  
    This is the date on which this billing record was cancelled.
    UNEDITABLE
  • NOTES:  TRIGGERED by the CANCEL BILL? field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  ^^TRIGGER^399^.13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^DGCR(399,DA,"S"),U,16)=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=7 X ^DD(399,17,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= I $P(^DGCR(399,DA,"S"),U,16)=1
    CREATE VALUE)= S X=7
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS
18 BILL CANCELLED BY S;18 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 21, 1990
  • HELP-PROMPT:  Enter user who cancelled this bill.
  • DESCRIPTION:  
    This is the user who cancelled this bill.
    UNEDITABLE
  • NOTES:  TRIGGERED by the CANCEL BILL? field of the BILL/CLAIMS File
19 REASON CANCELLED S;19 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<3)!'(X?1A.ANP) X I '$D(X) X ^DD(399,19,9.3)
  • LAST EDITED:  JAN 21, 1992
  • HELP-PROMPT:  Enter the 3-100 character reason(s) why this bill was cancelled.
  • DESCRIPTION:  
    This is the reason(s) why this bill was cancelled.  This entry is mandatory when cancelling a bill.  Enter 3-100 characters, the first character must be an alphabetic character.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
40 CONDITION CODE CC;0 SET Multiple #399.04 399.04

  • DESCRIPTION:  
    This identifies the condition(s) relating to this bill that may affect payer processing.
41 OCCURRENCE CODE OC;0 POINTER Multiple #399.041 399.041

  • DESCRIPTION:  
    This identifies the significant event(s) relating to this bill that may affect payer processing.
  • SCREEN:  S DIC("S")="I $D(^DGCR(399.1,+Y,0)) I $P(^DGCR(399.1,+Y,0),""^"",4)=1 X ^DD(399.041,9.1)"
  • EXPLANATION:  Valid MCCR Occurrence Codes only!
  • IDENTIFIED BY:  DATE(#.02)[R]
42 REVENUE CODE RC;0 POINTER Multiple #399.042 399.042

  • DESCRIPTION:  
    This identifies specific accommodation(s), ancillary service(s) or billing calculation(s).
  • IDENTIFIED BY:  BEDSECTION(#.05)[R]
43 OP VISITS DATE(S) OP;0 DATE Multiple #399.043 399.043

  • DESCRIPTION:  
    This identifies the outpatient visit date(s) which are included on this bill.
44 REASON(S) DISAPPROVED-INITIAL D1;0 POINTER Multiple #399.044 399.044

  • DESCRIPTION:  
    This defines the reason(s) why this billing record was disapproved during the initial review phase.
45 REASON(S) DISAPPROVED-SECOND D2;0 POINTER Multiple #399.045 399.045

  • DESCRIPTION:  
    This defines the reason(s) why this billing record was disapproved during the secondary review phase.
46 RETURNED LOG DATE/TIME R;0 DATE Multiple #399.046 399.046

  • DESCRIPTION:  This field provides the audit trail of who edited a bill after is has been returned from being Audited for correction by the approving service. Data in this field is automatically entered by the system whenever a returned
    bill is edited and/or returned to fiscal.
47 VALUE CODE CV;0 POINTER Multiple #399.047 399.047
51 *CPT PROCEDURE CODE (1) C;1 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",1)?5N" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  CPT procedure codes may be selected if CPT is specified as the Procedure Coding Method for this bill.
  • DESCRIPTION:  This is a CPT outpatient procedure code.
    This field has been marked for deletion 11/4/91.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",1)?5N"
  • EXPLANATION:  Only CPT codes may be selected!!
52 *CPT PROCEDURE CODE (2) C;2 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",1)?5N" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  CPT outpatient procedure codes may only be selected if CPT is specified as the Procedure Coding Method for this outpatient bill.
  • DESCRIPTION:  This is a CPT outpatient procedure code.
    This field has been marked for deletion on 11/4/91.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",1)?5N"
  • EXPLANATION:  Only CPT codes may be selected!!
53 *CPT PROCEDURE CODE (3) C;3 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",1)?5N" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  CPT outpatient procedure codes may only be selected if CPT is specified as the Procedure Coding Method for this outpatient bill.
  • DESCRIPTION:  This is a CPT outpatient procedure code.
    This field has been marked for deletion on 11/4/91.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",1)?5N"
  • EXPLANATION:  Only CPT codes may be selected!!
54 *ICD PROCEDURE CODE (1) C;4 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  Enter ICD procedure code associated with the outpatient episode of care.
  • DESCRIPTION:  This is an ICD outpatient procedure code.
    This field is marked for deletion on 11/4/91.
55 *ICD PROCEDURE CODE (2) C;5 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  Enter ICD procedure code associated with this outpatient episode of care.
  • DESCRIPTION:  This is an ICD outpatient procedure code.
    This field is marked of deletion on 11/4/91.
56 *ICD PROCEDURE CODE (3) C;6 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  Enter ICD procedure code associated with this outpatient episode of care.
  • DESCRIPTION:  This is an ICD outpatient procedure code.
    This field is marked for deletion on 11/4/91.
57 *HCFA PROCEDURE CODE (1) C;7 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S D="F" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  Enter HCFA procedure code associated with this outpatient episode of care.
  • DESCRIPTION:  This is a HCFA outpatient procedure code.
    This field is marked for deletion on 11/4/91.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",1)?1A.N"
  • EXPLANATION:  Only HCFA codes may be selected!!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58 *HCFA PROCEDURE CODE (2) C;8 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S D="F" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  Enter HCFA procedure code associated with this outpatient episode of care.
  • DESCRIPTION:  This is a HCFA outpatient procedure code.
    This field has been marked for deletion on 11/4/91.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",1)?1A.N"
  • EXPLANATION:  Only HCFA codes may be selected!!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
59 *HCFA PROCEDURE CODE (3) C;9 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S D="F" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  Enter HCFA procedure code associated with this outpatient episode of care.
  • DESCRIPTION:  This is a HCFA outpatient procedure code.
    This field has been marked for deletion on 11/4/91.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",1)?1A.N"
  • EXPLANATION:  Only HCFA codes may be selected!!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
60 OUTPATIENT DIAGNOSIS C;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1)!'(X?1U.ANP) X
  • LAST EDITED:  JUN 13, 1990
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    The outpatient diagnosis is selectable from the ICD DIAGNOSIS file.
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the *ICD DIAGNOSIS CODE (1) field of the BILL/CLAIMS File
61 *PROCDEDURE DATE (1) C;11 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y I $D(X) D DTMES^IBCU7
  • LAST EDITED:  NOV 04, 1991
  • HELP-PROMPT:  TYPE A DATE ON OR BEFORE TODAY
  • DESCRIPTION:  This is the date on which the first procedure associated with this billing episode occurred.
    This field has been marked for deletion on 11/4/91.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
62 *PROCEDURE DATE (2) C;12 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y I $D(X) D DTMES^IBCU7
  • LAST EDITED:  NOV 04, 1991
  • DESCRIPTION:  This is the date on which the second procedure associated with this billing episode occurred.
    This field has been marked for deletion on 11/4/91.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63 *PROCEDURE DATE (3) C;13 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y I $D(X) D DTMES^IBCU7
  • LAST EDITED:  NOV 04, 1991
  • HELP-PROMPT:  TYPE A DATE ON OR BEFORE TODAY
  • DESCRIPTION:  This is the date on which the third procedure associated with this billing episode occurred.
    This field has been marked for deletion on 11/4/91.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
64 *ICD DIAGNOSIS CODE (1) C;14 POINTER TO ICD DIAGNOSIS FILE (#80)
************************REQUIRED FIELD************************
ICD DIAGNOSIS(#80)

  • LAST EDITED:  NOV 10, 1993
  • HELP-PROMPT:  Enter the ICD diagnosis code which pertains to this billing episode.
  • DESCRIPTION:  
    This is the first ICD diagnosis code associated with this billing episode.
  • TECHNICAL DESCR:  
    Replaced by a diagnosis file (362.3) with IB v2.0.  "*" for deletion on 11/10/93.
  • CROSS-REFERENCE:  ^^TRIGGER^399^60
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^DGCR(399,DA,0),"^",5)>2 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"C")):^("C"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$P(^ICD9(+X,0),"^",3) X ^DD(399,64,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,10)=DIV,DIH=399,DIG=60 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"C")):^("C"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(399,64,1,1,2.4)
    2.4)= S DIH=$S($D(^DGCR(399,DIV(0),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,10)=DIV,DIH=399,DIG=60 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= I $P(^DGCR(399,DA,0),"^",5)>2
    CREATE VALUE)= S X=$P(^ICD9(+X,0),"^",3)
    DELETE VALUE)= @
    FIELD)= #60
    Sets the Outpatient Diagnosis to the ICD DIAGNOSIS CODE (1).
65 *ICD DIAGNOSIS CODE (2) C;15 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  NOV 10, 1993
  • HELP-PROMPT:  Enter the ICD diagnosis code which pertains to this billing episode.
  • DESCRIPTION:  
    This is the second ICD diagnosis code associated with this billing episode.
  • TECHNICAL DESCR:  
    Replaced by a diagnosis file (362.3) with IB v2.0.  "*" for deletion on 11/10/93.
66 *ICD DIAGNOSIS CODE (3) C;16 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  NOV 10, 1993
  • HELP-PROMPT:  Enter the ICD diagnosis code which pertains to this billing episode.
  • DESCRIPTION:  
    This is the third ICD diagnosis code associated with this billing episode.
  • TECHNICAL DESCR:  
    Replaced by a diagnosis file (362.3) with IB v2.0.  "*" for deletion on 11/10/93.
67 *ICD DIAGNOSIS CODE (4) C;17 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  NOV 10, 1993
  • HELP-PROMPT:  Enter the ICD diagnosis code which pertains to this billing episode.
  • DESCRIPTION:  
    This is the fourth ICD diagnosis code associated with this billing episode.
  • TECHNICAL DESCR:  
    Replaced by a diagnosis file (362.3) with IB v2.0.  "*" for deletion on 11/10/93.
68 *ICD DIAGNOSIS CODE (5) C;18 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  NOV 10, 1993
  • HELP-PROMPT:  Enter the ICD diagnosis code which pertains to this billing episode.
  • DESCRIPTION:  
    This is the fifth ICD diagnosis code associated with this billing episode.
  • TECHNICAL DESCR:  
    Replaced by a diagnosis file (362.3) with IB v2.0.  "*" for deletion on 11/10/93.
101 PRIMARY INSURANCE CARRIER M;1 POINTER TO INSURANCE COMPANY FILE (#36)
************************REQUIRED FIELD************************
INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  D DD^IBCNS S DIC("S")="I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""AIC"",+Y))" D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Enter name of insurance carrier to which this bill is to be sent.
  • DESCRIPTION:  
    This is the name of the insurance carrier to which this bill is to be sent.  This is from the entries in this patients file of insurance companies.
  • TECHNICAL DESCR:  
    Only valid/active insurance companies for this patient can be choosen, as defined by DD^IBCNS.  Company must not already be defined as a carrier (399,102-103) for this bill.
  • SCREEN:  S DIC("S")="I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""AIC"",+Y))"
  • EXPLANATION:  Only valid insurance companies for this date of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PRIMARY INSURANCE POLICY field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  399^AI1^MUMPS
    1)= D MAILA^IBCU5
    2)= Q
    - calls MAILA to set mailing address (399,104-109,121) to primary
    insurer's address
    NOTE: I1 and AIC x-refs now set by field 112.  If X is one of the patients active/valid insurance companies:
    - sets the node "I1" to detailed data on the insurance company
    (2,.312, entire node .01-17)
    - sets x-ref "AIC": subfile x-ref of insurance carriers (399,101-103)
  • CROSS-REFERENCE:  399^AREV4^MUMPS
    1)= S DGRVRCAL=1
    2)= S DGRVRCAL=2
    This variable DGRVRCAL being defined causes the revenue codes to be recalculated (results in ^IBCU6 being called).  Checked at various places within the billing screens (ex. EN+2^IBCSC4).
  • CROSS-REFERENCE:  399^AE^MUMPS
    1)= S:$P(^DGCR(399,DA,0),"^",2) ^DGCR(399,"AE",$P(^(0),U,2),X,DA)=""
    2)= K:$P(^DGCR(399,DA,0),"^",2) ^DGCR(399,"AE",$P(^(0),U,2),X,DA)
    Cross reference of patients and bills to primary insurers.  This will be used to prevent deletion of insurance policy entries from the patient file if a bill has been created to this insurance company.
  • CROSS-REFERENCE:  ^^TRIGGER^399^.19
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=$$FT^IBCU3(DA) X ^DD(399,101,1,4,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,19)=DIV,DIH=399,DIG=.19 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$$FT^IBCU3(DA)
    DELETE VALUE)= NO EFFECT
    FIELD)= FORM TYPE
    Sets form type depending on ins co. parameter and site default.
  • CROSS-REFERENCE:  ^^TRIGGER^399^122
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"M1")):^("M1"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(399,101,1,5,1.1) X ^DD(399,101,1,5,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(36,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(36,D0,0)):^(0),1:"") S X=$P(Y(101),U,11) S D0=I(0,0)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M1")):^("M1"),1:""),DIV=X S $P(^("M1"),U,2)=DIV,DIH=399,DIG=122 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= PRIMARY INSURANCE CARRIER:HOSPITAL PROVIDER NUMBER
    DELETE VALUE)= NO EFFECT
    FIELD)= PRIMARY PROVIDER #
    Loads the Primary Provider # with the Hospital Provider Number of the Primary Insurance Carrier.
102 SECONDARY INSURANCE CARRIER M;2 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Enter name of secondary insurance carrier from which the provider might expect some payment for this bill.
  • DESCRIPTION:  
    This is the name of the secondary insurance carrier from which the provider might expect some payment for this bill.
  • SCREEN:  S DIC("S")="I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""AIC"",+Y))"
  • EXPLANATION:  Only valid insurance companies for this date of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY INSURANCE POLICY field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  399^AI2^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^399^123
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"M1")):^("M1"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(399,102,1,2,1.1) X ^DD(399,102,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(36,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(36,D0,0)):^(0),1:"") S X=$P(Y(101),U,11) S D0=I(0,0)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M1")):^("M1"),1:""),DIV=X S $P(^("M1"),U,3)=DIV,DIH=399,DIG=123 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= SECONDARY INSURANCE CARRIER:HOSPITAL PROVIDER NUMBER
    DELETE VALUE)= NO EFFECT
    FIELD)= SECONDARY PROVIDER #
    Loads the Secondary Provider # with the Hospital Provider Number of the Secondary Insurance Carrier.
103 TERTIARY INSURANCE CARRIER M;3 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Enter name of tertiary insurance carrier from which the provider might expect some payment for this bill.
  • DESCRIPTION:  
    This is the name of the tertiary insurance carrier from which the provider might expect some payment for this bill.
  • SCREEN:  S DIC("S")="I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""AIC"",+Y))"
  • EXPLANATION:  Only valid insurance companies for this date of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the TERTIARY INSURANCE POLICY field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  399^AI3^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^399^124
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"M1")):^("M1"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(399,103,1,2,1.1) X ^DD(399,103,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(36,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(36,D0,0)):^(0),1:"") S X=$P(Y(101),U,11) S D0=I(0,0)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M1")):^("M1"),1:""),DIV=X S $P(^("M1"),U,4)=DIV,DIH=399,DIG=124 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TERTIARY INSURANCE CARRIER:HOSPITAL PROVIDER NUMBER
    DELETE VALUE)= NO EFFECT
    FIELD)= TERTIARY PROVIDER #
    Loads the Tertiary Provider # with the Hospital Provider Number of the Tertiary Insurance Carrier.
104 MAILING ADDRESS NAME M;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter the name or title of the person to which this bill is to be sent.
  • DESCRIPTION:  
    This is the name of the party to whom this bill is to be sent.
105 MAILING ADDRESS STREET M;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  JAN 31, 1989
  • HELP-PROMPT:  Enter the 3-35 character street address to which this bill is to be mailed.
  • DESCRIPTION:  
    This is the street address to which this bill is to be sent.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
106 MAILING ADDRESS STREET2 M;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • HELP-PROMPT:  Enter the 3-35 character street address to which this bill is to be mailed.
  • DESCRIPTION:  
    This is the street address to which this bill is to be sent.
107 MAILING ADDRESS CITY M;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<2) X
  • LAST EDITED:  FEB 13, 1989
  • HELP-PROMPT:  Enter the 2-25 character city to which this bill is to be mailed.
  • DESCRIPTION:  
    This is the city to which this bill is to be sent.
108 MAILING ADDRESS STATE M;8 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter the state to which this bill is to be mailed.
  • DESCRIPTION:  
    This is the state to which this bill is to be sent.
109 MAILING ADDRESS ZIP CODE M;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X
  • LAST EDITED:  AUG 31, 1988
  • HELP-PROMPT:  Enter the 5-digit or 9-digit zip code to which this bill is to be sent.
  • DESCRIPTION:  
    This is the 5-digit or 9-digit zip code to which this bill is to be sent.
110 PATIENT SHORT MAILING ADDRESS M;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>47!($L(X)<1) X
  • LAST EDITED:  APR 19, 1989
  • HELP-PROMPT:  Answer with the 1-47 character short form of the patient mailing address. This is all the information run together with a maximum of 47 characters.
  • DESCRIPTION:  This is the 1-47 character patient mailing address that will print in block 11 on the UB-82 form and block 13 on the UB-92. The computer will try to calculate this. If the length of all the patient address fields is
    longer than 47 characters you will need to abbreviate this in order to get it to print in this block.
111 RESPONSIBLE INSTITUTION M;11 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • LAST EDITED:  MAY 15, 1990
  • HELP-PROMPT:  Enter name of the institution or organization responsible for payment of this bill.
  • DESCRIPTION:  
    This is the name of the institution or organization responsible for payment of this bill.
  • CROSS-REFERENCE:  399^AML^MUMPS
    1)= D MAILIN^IBCU5
    2)= D DEL^IBCU5
    Sets/deletes mailing address.
  • CROSS-REFERENCE:  399^AREV5^MUMPS
    1)= S DGRVRCAL=1
    2)= S DGRVRCAL=2
    Variable causes revenue codes and chrges to be re-calculated on return to the enter/edit billing screens.
112 PRIMARY INSURANCE POLICY M;12 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X D:$D(X) DD^IBCNS2(X,DA,1)
  • OUTPUT TRANSFORM:  S Y=$$TRANS^IBCNS2(DA,Y)
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Select this patient's insurance policy that is the primary policy to be billed. Enter the name of the Ins. Company or the number.
  • DESCRIPTION:  
    The policy to be billed for this episode of care.
  • EXECUTABLE HELP:  D DDHELP^IBCNS2(DA,1)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the WHO'S RESPONSIBLE FOR BILL? field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  ^^TRIGGER^399^101
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"M")):^("M"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(399,112,1,1,1.1) X ^DD(399,112,1,1,1.4)
    1.1)= S X=DIV S X=+$$INSCO^IBCNS2(DA,$P(^DGCR(399,DA,"M"),U,12))
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M")):^("M"),1:""),DIV=X S $P(^("M"),U,1)=DIV,DIH=399,DIG=101 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"M")):^("M"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(399,112,1,1,2.4)
    2.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M")):^("M"),1:""),DIV=X S $P(^("M"),U,1)=DIV,DIH=399,DIG=101 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=+$$INSCO^IBCNS2(DA,$P(^DGCR(399,DA,"M"),U,12))
    DELETE VALUE)= @
    FIELD)= #101
  • CROSS-REFERENCE:  399^AI11^MUMPS
    1)= D IX^IBCNS2(DA,"I1")
    2)= D KIX^IBCNS2(DA,"I1")
    Sets "I1" x-ref and "aic" x-ref for bill/claims file.  These indexes previously were set by field #101.
113 SECONDARY INSURANCE POLICY M;13 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X D:$D(X) DD^IBCNS2(X,DA,1)
  • OUTPUT TRANSFORM:  S Y=$$TRANS^IBCNS2(DA,Y)
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Select this patient's insurance policy that is the secondary policy to be billed. Enter the name of the Ins. Company or the number.
  • DESCRIPTION:  
    The secondary policy to be billed for this episode of care.
  • EXECUTABLE HELP:  D DDHELP^IBCNS2(DA,2)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^399^102
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"M")):^("M"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(399,113,1,1,1.1) X ^DD(399,113,1,1,1.4)
    1.1)= S X=DIV S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,"M"),U,13))
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M")):^("M"),1:""),DIV=X S $P(^("M"),U,2)=DIV,DIH=399,DIG=102 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(^DGCR(399,D0,"M")):^("M"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(399,113,1,1,2.4)
    2.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M")):^("M"),1:""),DIV=X S $P(^("M"),U,2)=DIV,DIH=399,DIG=102 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,"M"),U,13))
    DELETE VALUE)= @
    FIELD)= SECONDARY INSURANCE CARRIER
  • CROSS-REFERENCE:  399^AI21^MUMPS
    1)= D IX^IBCNS2(DA,"I2")
    2)= D KIX^IBCNS2(DA,"I2")
    Sets "I2" x-ref and "aic" x-ref for bill/claims file.  These indexes previously were set by field #102.
114 TERTIARY INSURANCE POLICY M;14 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X D:$D(X) DD^IBCNS2(X,DA,1)
  • OUTPUT TRANSFORM:  S Y=$$TRANS^IBCNS2(DA,Y)
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Select this patient's insurance policy that is the tertiary policy to be billed. Enter the name of the Ins. Company or the number.
  • DESCRIPTION:  
    The tertiary policy to be billed for this episode of care.
  • EXECUTABLE HELP:  D DDHELP^IBCNS2(DA,3)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^399^103
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"M")):^("M"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(399,114,1,1,1.1) X ^DD(399,114,1,1,1.4)
    1.1)= S X=DIV S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,"M"),U,14))
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M")):^("M"),1:""),DIV=X S $P(^("M"),U,3)=DIV,DIH=399,DIG=103 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(^DGCR(399,D0,"M")):^("M"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(399,114,1,1,2.4)
    2.4)= S DIH=$S($D(^DGCR(399,DIV(0),"M")):^("M"),1:""),DIV=X S $P(^("M"),U,3)=DIV,DIH=399,DIG=103 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,"M"),U,14))
    DELETE VALUE)= @
    FIELD)= TERTIARY INSURANCE CARRIER
  • CROSS-REFERENCE:  399^AI31^MUMPS
    1)= D IX^IBCNS2(DA,"I3")
    2)= D KIX^IBCNS2(DA,"I3")
    Sets "I3" x-ref and "aic" x-ref for bill/claims file.  These indexes previously were set by field #103.
121 MAILING ADDRESS STREET3 M1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  JAN 10, 1989
  • HELP-PROMPT:  Enter the 3-35 character street address to which this bill is to be sent.
  • DESCRIPTION:  
    This is the street address to which this bill is to be sent.
122 PRIMARY PROVIDER # M1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<3) X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Answer must be 3-13 characters in length.
  • DESCRIPTION:  
    This is the number assigned to the provider by the primary payer.  Printed in Form Locator 51 for the Primary Insurance Carrier on the UB-92.
  • TECHNICAL DESCR:  
    Loaded with Hospital Provider Number (36,.11) of the Primary Insurance Carrier, if defined.
  • NOTES:  TRIGGERED by the PRIMARY INSURANCE CARRIER field of the BILL/CLAIMS File
123 SECONDARY PROVIDER # M1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<3) X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Answer must be 3-13 characters in length.
  • DESCRIPTION:  
    This is the number assigned to the provider by the secondary payer.  Printed in Form Locator 51 for the Secondary Insurance Carrier on the UB-92.
  • TECHNICAL DESCR:  
    Loaded with Hospital Provider Number (36,.11) of the Secondary Insurance Carrier, if defined.
  • NOTES:  TRIGGERED by the SECONDARY INSURANCE CARRIER field of the BILL/CLAIMS File
124 TERTIARY PROVIDER # M1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<3) X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Answer must be 3-13 characters in length.
  • DESCRIPTION:  
    This is the number assigned to the provider by the tertiary payer.  Printed in Form Locator 51 for the Tertiary Insurance Carrier on the UB-92.
  • TECHNICAL DESCR:  
    Loaded with Hospital Provider Number (36,.11) of the Tertiary Insurance Carrier, if defined.
  • NOTES:  TRIGGERED by the TERTIARY INSURANCE CARRIER field of the BILL/CLAIMS File
151 STATEMENT COVERS FROM U;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETP" D ^%DT S X=Y K:Y<1 X I $D(X) D DDAT^IBCU4 K IB00
  • LAST EDITED:  OCT 18, 1993
  • HELP-PROMPT:  Enter the beginning service date of the period included on this bill.
  • DESCRIPTION:  
    This is the beginning service date of the period covered by this bill.  A bills date range may not cross either the fiscal or calendar years.  The date range for inpatient interim bills should not be overlapped.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^399^165
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^DGCR(399,DA,0),U,5)<3 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$LOS1^IBCU64(DA) X ^DD(399,151,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,15)=DIV,DIH=399,DIG=165 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= I $P(^DGCR(399,DA,0),U,5)<3
    CREATE VALUE)= S X=$$LOS1^IBCU64(DA)
    DELETE VALUE)= NO EFFECT
    FIELD)= LENGTH OF STAY
    Sets Length of Stay based on PTF record and date range of bill.  Inpatient only.
  • CROSS-REFERENCE:  399^AREV2^MUMPS
    1)= S DGRVRCAL=1
    2)= S DGRVRCAL=2
    Variable causes revenue codes and chrges to be re-calculated on return to the enter/edit billing screens.
  • CROSS-REFERENCE:  ^^TRIGGER^399^209
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"U1")):^("U1"),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(399,151,1,3,1.1) X ^DD(399,151,1,3,1.4)
    1.1)= S X=DIV S X=+^DGCR(399,DA,"U"),X=$E(X,2,3)+$S($E(X,4,5)<10:0,1:1)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U1")):^("U1"),1:""),DIV=X S $P(^("U1"),U,9)=DIV,DIH=399,DIG=209 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=+^DGCR(399,DA,"U"),X=$E(X,2,3)+$S($E(X,4,5)<10:0,1:1)
    DELETE VALUE)= NO EFFECT
    FIELD)= FISCAL YEAR 1
    Set Fiscal Year 1 to the FY the bill is within.  (Bills can not span FY.)
152 STATEMENT COVERS TO U;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETP" D ^%DT S X=Y K:Y<1 X I $D(X) D DDAT1^IBCU4 K IB00
  • LAST EDITED:  OCT 18, 1993
  • HELP-PROMPT:  Enter the ending service date of period covered by this bill.
  • DESCRIPTION:  
    This is the ending service date of the period covered by this bill.  A bills date range may not cross either the fiscal or calendar years.  The date range for inpatient interim bills should not be overlapped.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^399^165
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^DGCR(399,DA,0),U,5)<3 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$LOS1^IBCU64(DA) X ^DD(399,152,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,15)=DIV,DIH=399,DIG=165 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= I $P(^DGCR(399,DA,0),U,5)<3
    CREATE VALUE)= S X=$$LOS1^IBCU64(DA)
    DELETE VALUE)= NO EFFECT
    FIELD)= LENGTH OF STAY
    Sets Length of Stay based on PTF record and date range of bill.  (Inpatient only.)
  • CROSS-REFERENCE:  399^AREV3^MUMPS
    1)= S DGRVRCAL=1
    2)= S DGRVRCAL=2
    Variable causes revenue codes and chrges to be re-calculated on return to the enter/edit billing screens.
153 POWER OF ATTORNEY COMPLETED? U;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  I $D(X) D YN^IBCU
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  JUN 07, 1988
  • HELP-PROMPT:  Enter 'Yes' or '1' if Power of Attorney has been completed, 'No' or '0' if Power of Attorney has not been completed.
  • DESCRIPTION:  
    This identifies whether or not the power of attorney forms (if necessary) have been signed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
154 WHOSE EMPLOYMENT INFO.? U;4 SET
************************REQUIRED FIELD************************
  • 'p' FOR PATIENT;
  • 's' FOR SPOUSE;

  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter the code which indicates whether the employment information given applies to the patient or to the patient's spouse.
  • DESCRIPTION:  
    This indicates whether the employment information give applies to the patient or to the patient's spouse.
155 IS THIS A SENSITIVE RECORD? U;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  I $D(X) D YN^IBCU
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  JUN 07, 1988
  • HELP-PROMPT:  Enter 'Yes' or '1' if this record contains sensitive information pertaining to, but not limited to, drugs, alcohol, and/or sickle cell anemia, 'No' or '0' if it does not.
  • DESCRIPTION:  
    This indicates whether or not this record contains information pertaining to, but not limited to, drugs, alcohol, or sickle cell anemia, and if so, allows the user to identify this record as "sensitive".
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
156 ASSIGNMENT OF BENEFITS U;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  I $D(X) D YN^IBCU I $D(X) X:X=0 ^DD(399,156,9.3) K IBRATY
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  OCT 25, 1988
  • HELP-PROMPT:  Enter the code which indicates whether or not a third party is authorized to pay the provider for services covered by this bill.
  • DESCRIPTION:  
    This indicates whether or not a third party is authorized to pay the provider for services covered by this bill.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RATE TYPE field of the BILL/CLAIMS File
157 R.O.I. FORM(S) COMPLETED? U;7 FREE TEXT

  • INPUT TRANSFORM:  I $D(X) D YN^IBCU
  • OUTPUT TRANSFORM:  S Y=$S(Y:"YES",Y=0:"NO",1:"")
  • LAST EDITED:  JUN 07, 1988
  • HELP-PROMPT:  Enter 'Yes' or '1' if Release Of Information form(s) are completed, 'No' or '0' if Release Of Information form(s) are not completed.
  • DESCRIPTION:  
    This allows the user to indicate if the Release of Information forms (if necessary) have been signed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
158 TYPE OF ADMISSION U;8 SET
  • '1' FOR EMERGENCY;
  • '2' FOR URGENT;
  • '3' FOR ELECTIVE;

  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter a code indicating the priority of this admission.
  • DESCRIPTION:  
    This indicates the priority of this admission.
  • NOTES:  TRIGGERED by the PTF ENTRY NUMBER field of the BILL/CLAIMS File
159 SOURCE OF ADMISSION U;9 SET
  • '1' FOR PHYSICIAN REFERRAL;
  • '2' FOR CLINIC REFERRAL;
  • '3' FOR HMO REFERRAL;
  • '4' FOR TRANSFER FROM HOSPITAL;
  • '5' FOR TRANSFER FROM SKILLED NURSING FAC.;
  • '6' FOR TRANSFER FROM OTHER HEALTH CARE FAC.;
  • '7' FOR EMERGENCY ROOM;
  • '8' FOR COURT/LAW ENFORCEMENT;
  • '9' FOR INFO NOT AVAILABLE;

  • LAST EDITED:  APR 03, 1989
  • HELP-PROMPT:  Enter the code which indicates the source of this admission.
  • DESCRIPTION:  
    This indicates the source of this admission.
  • NOTES:  TRIGGERED by the PTF ENTRY NUMBER field of the BILL/CLAIMS File
160 ACCIDENT HOUR U;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter the time at which an accident took place if this bill is related to an accident.
  • DESCRIPTION:  
    This indicates the time at which an accident occurred if this episode of care is related to an accident.
  • NOTES:  TRIGGERED by the PTF ENTRY NUMBER field of the BILL/CLAIMS File
161 DISCHARGE BEDSECTION U;11 POINTER TO MCCR UTILITY FILE (#399.1) MCCR UTILITY(#399.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^DGCR(399.1,+Y,0),""^"",5)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 12, 1992
  • HELP-PROMPT:  Enter the bedsection from which this patient was discharged.
  • DESCRIPTION:  
    This is the bedsection from which this patient was discharged.
  • SCREEN:  S DIC("S")="I $P(^DGCR(399.1,+Y,0),""^"",5)=1"
  • EXPLANATION:  Valid MCCR Bedsections only!
  • CROSS-REFERENCE:  ^^TRIGGER^399^162
    1)= X ^DD(399,161,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV D DIS^IBCU S X=X X ^DD(399,161,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$S('$D(^DGCR(399.1,+$P(Y(1),U,12),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,12)=DIV,DIH=399,DIG=162 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #162=""
    CREATE VALUE)= D DIS^IBCU S X=X
    DELETE VALUE)= NO EFFECT
    FIELD)= #162
    Sets the Discharge Status field to the correct status based upon the Disposition Type field in the PTF Record.
162 DISCHARGE STATUS U;12 POINTER TO MCCR UTILITY FILE (#399.1) MCCR UTILITY(#399.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^DGCR(399.1,+Y,0),""^"",6)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 31, 1988
  • HELP-PROMPT:  Enter the code which indicates patient status as of statement covers through date.
  • DESCRIPTION:  
    This is the patient status as of the statement covers through date.
  • SCREEN:  S DIC("S")="I $P(^DGCR(399.1,+Y,0),""^"",6)=1"
  • EXPLANATION:  Valid MCCR Discharge Statuses only!
  • NOTES:  TRIGGERED by the DISCHARGE BEDSECTION field of the BILL/CLAIMS File
    TRIGGERED by the PTF ENTRY NUMBER field of the BILL/CLAIMS File
163 TREATMENT AUTHORIZATION CODE U;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<1) X
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Answer must be 1-18 characters in length.
  • DESCRIPTION:  This indicates that the treatment covered by this bill has been authorized by the payer.
    On the HCFA 1500 this is block 23, PRIOR AUTHORIZATION NUMBER.
164 BC/BS PROVIDER # U;14 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<3)!'(X?.ANP) X
  • LAST EDITED:  AUG 19, 1991
  • HELP-PROMPT:  Enter the Blue Cross/Shield provider number for this particular billing episode.
  • DESCRIPTION:  
    This is the Blue Cross/Blue Shield Provider Number for this billing episode.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the BILL NUMBER field of the BILL/CLAIMS File
165 LENGTH OF STAY U;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?.N) X
  • LAST EDITED:  JUN 02, 1988
  • HELP-PROMPT:  Enter the length of stay for this inpatient episode excluding pass, AA and UA days.
  • DESCRIPTION:  
    This defines the length of stay in days for this inpatient episode excluding pass, AA, and UA days.
  • TECHNICAL DESCR:  If no PTF defined then uses the Statement From and To dates for LOS. Excludes pass, AA, UA days but includes days in non-billable bedsections. Notice that the number of units of service under revenue code only includes
    billable bedsections so the number of units may not add up to the length of stay if the patient was in a non-billable bedsection for awhile.  LOS of a stay where admit day=discharge day is 1.  LOS of a stay where admit
    date+1=discharge date also has an LOS of 1.  The discharge date is not charged.  Therefore, on continuous first and interum bills the LOS is the date range inclusive of the last day on the bill, all other bills exclude the
    last day (with exception of admit=discharge day).
  • NOTES:  TRIGGERED by the PTF ENTRY NUMBER field of the BILL/CLAIMS File
    TRIGGERED by the STATEMENT COVERS FROM field of the BILL/CLAIMS File
    TRIGGERED by the STATEMENT COVERS TO field of the BILL/CLAIMS File
166 UNABLE TO WORK FROM U;16 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 27, 1992
  • HELP-PROMPT:  Enter the beginning date the patient became unable to work due to current condition.
  • DESCRIPTION:  
    Enter the beginning date for the period of time that the patient could not work due to the condition for which this claim is being submitted.  Printed on the HCFA 1500.
167 UNABLE TO WORK TO U;17 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 27, 1992
  • HELP-PROMPT:  Enter the ending date of the time that the patient was unable to work due to current condition.
  • DESCRIPTION:  
    This is the ending date of the period of time during which the patient was unable to work due to the condition for which this claim is being submitted.  Used on the HCFA 1500.
168 *PLACE OF SERVICE U;18 POINTER TO PLACE OF SERVICE FILE (#353.1) PLACE OF SERVICE(#353.1)

  • LAST EDITED:  JUN 11, 1993
  • HELP-PROMPT:  Enter the code corresponding to the Place of Service of patient care.
  • DESCRIPTION:  
    This indicates the Place of Service, used on the HCFA 1500.  Not used after IB v1.5, replaced by PLACE OF SERVICE (304,8) associated with a specific procedure.  Marked for deletion 6/11/93.
169 *TYPE OF SERVICE U;19 POINTER TO TYPE OF SERVICE FILE (#353.2) TYPE OF SERVICE(#353.2)

  • LAST EDITED:  JUN 11, 1993
  • HELP-PROMPT:  Enter the appropriate Type of Service code for this visit.
  • DESCRIPTION:  
    Code indicating the Type of Service preformed.  Used on the HCFA 1500.  Not used after IB v1.5, replaced by TYPE OF SERVICE (304,9) associated with a specific procedure.  Marked for deletion 6/11/93.
201 TOTAL CHARGES U1;1 NUMBER

  • LAST EDITED:  AUG 31, 1988
  • HELP-PROMPT:  Enter the total amount of the revenue code charges for this bill in dollars.
  • DESCRIPTION:  
    This is the total amount of the revenue code charges for this bill.
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^399^210
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"U1")):^("U1"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(399,201,1,1,1.4)
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U1")):^("U1"),1:""),DIV=X S $P(^("U1"),U,10)=DIV,DIH=399,DIG=210 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TOTAL CHARGES
    DELETE VALUE)= NO EFFECT
    FIELD)= #210
202 OFFSET AMOUNT U1;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  MAY 25, 1988
  • HELP-PROMPT:  Enter the dollar amount between 0 and 99999.99 that is to be subtracted from the total charges on this bill. Offset includes, but is not limited to, co-payments and deductibles.
  • DESCRIPTION:  
    This is the dollar amount which is to be subtracted from the total charges on this bill. Offset includes, but is not limited to, co-payments, credits, and deductibles.
  • CROSS-REFERENCE:  ^^TRIGGER^399^203
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"U1")):^("U1"),1:"") S X=$P(Y(1),U,2)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U1")):^("U1"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(399,202
    ,1,1,2.4)
    2.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U1")):^("U1"),1:""),DIV=X S $P(^("U1"),U,3)=DIV,DIH=399,DIG=203 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= OFFSET AMOUNT=""
    DELETE VALUE)= @
    FIELD)= #203
203 OFFSET DESCRIPTION U1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>24!($L(X)<3) X
  • LAST EDITED:  MAR 17, 1994
  • HELP-PROMPT:  Enter reason for Offset Amount. Offset Description may include, but is not limited to, deductibles, copayments, credits, etc.
  • DESCRIPTION:  
    This defines the reason for offset amount.  Maximum length is 24 characters.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the OFFSET AMOUNT field of the BILL/CLAIMS File
204 FORM LOCATOR 2 U1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter the information (2-30 characters) which is to appear in form locator 2 on the UB-82 form.
  • DESCRIPTION:  
    This allows the user to enter information which will appear in form locator 2 on the UB-82 form.
205 FORM LOCATOR 9 U1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<2) X
  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter the information (2-7 characters) which will appear in form locator 9 on the UB-82 form.
  • DESCRIPTION:  
    This allows the user to enter information which will appear in form locator 9 on the UB-82 form.
  • TECHNICAL DESCR:  
    Was temporarily used to hold Admitting DX for the UB-92 (FL 76), but was replaced by FL 215.
206 FORM LOCATOR 27 U1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<2) X
  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter the information (2-8 characters) which is to appear in form locator 27 on the UB-82 form.
  • DESCRIPTION:  
    This allows the user to enter information will will appear in form locator 27 on the UB-82 form.
207 FORM LOCATOR 45 U1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<2) X
  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter the information (2-17 characters) which will appear in form locator 45 on the UB-82 form.
  • DESCRIPTION:  
    This allows the user to enter information which will appear in form locator 45 on the UB-82 form.
208 BILL COMMENT U1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<2) X
  • LAST EDITED:  MAY 23, 1988
  • HELP-PROMPT:  Enter a comment associated with this bill, if desired, which you want to print on the UB claim forms [2-35 CHARACTERS].
  • DESCRIPTION:  
    This allows the user to enter an optional comment associated with this bill.
209 FISCAL YEAR 1 U1;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 11, 1988
  • HELP-PROMPT:  Enter the 2 digit fiscal year associated with this bill.
  • DESCRIPTION:  
    This defines the first fiscal year with which this bill is associated.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the STATEMENT COVERS FROM field of the BILL/CLAIMS File
210 FY 1 CHARGES U1;10 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  SEP 01, 1988
  • HELP-PROMPT:  Enter the charges incurred during the first fiscal year associated with this bill.
  • DESCRIPTION:  
    These are the charges incurred during the first fiscal year associated with this bill.
  • NOTES:  TRIGGERED by the TOTAL CHARGES field of the BILL/CLAIMS File
  • CROSS-REFERENCE:  ^^TRIGGER^399^212
    1)= X ^DD(399,210,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U1")):^("U1"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(399,210,1,1,1.1) X ^DD(399,210,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U1")):^("U1"),1:"") S X=$P(Y(1),U,1),Y(2)=X S X=DIV,Y=X,X=Y(2),X=X-Y
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"U1")):^("U1"),1:"") S X=$P(Y(1),U,11)]""
    1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U1")):^("U1"),1:""),DIV=X S $P(^("U1"),U,12)=DIV,DIH=399,DIG=212 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"U1")):^("U1"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(399,210,1,1,2.4)
    2.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U1")):^("U1"),1:""),DIV=X S $P(^("U1"),U,12)=DIV,DIH=399,DIG=212 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= (#211)]""
    CREATE VALUE)= (#201)-(#210)
    DELETE VALUE)= @
    FIELD)= #212
211 FISCAL YEAR 2 U1;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 08, 1988
  • HELP-PROMPT:  Enter the 2 digit second fiscal year associated with this bill.
  • DESCRIPTION:  
    This is the second fiscal year with which this bill is associated.
  • TECHNICAL DESCR:  
    Beginning with 1.5 bills can no longer span fical years, so this is no longer needed.
212 FY 2 CHARGES U1;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JUL 08, 1988
  • HELP-PROMPT:  Enter the charges incurred during the second fiscal year associated with this bill.
  • DESCRIPTION:  
    These are the charges incurred during the second fiscal year associated with this bill.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the FY 1 CHARGES field of the BILL/CLAIMS File
213 FORM LOCATOR 92 U1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>32!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-32 characters in length.
  • DESCRIPTION:  This is the Attending Physician ID (UPIN) and is printed on the UB-82 in form locator 92 and form locator 82 on the UB-92. This field will be loaded with the ATTENDING PHYSICIAN ID code required by the primary insurer, if
    that insurer has a code defined.
  • TECHNICAL DESCR:  This field may be null or a value the billing clerk inserted while editing on screen 8 or a value that the primary insurer requires to print in form locator 92 of the UB-82 or FL 82 of the UB-92. If the field is null then
    the print routines print the string 'Dept. of Veterans Affairs' in form locator 82/92.
214 FORM LOCATOR 93 U1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>32!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-32 characters in length.
  • DESCRIPTION:  Enter the 'Other Physician ID'. The name and/or number of the licensed physician other than the attending physician or what the primary insurer requires in this field on the form. Will print in form locator 93 on the
    UB-82 and form locator 83 on the UB-92.
215 ADMITTING DIAGNOSIS U2;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Enter the code for the admitting diagnosis.
  • DESCRIPTION:  The ICD-9 diagnosis code provided at the time of admission as stated by the physician.
    The admitting diagnosis code will be printed in Form Locator 76 on the UB-92.
216 COVERED DAYS U2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  The number of days covered by the primary payer, as qualified by the payer organization.
    Form Locator 7 on the UB-92.
217 NON-COVERED DAYS U2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Days of care not covered by the primary payer.  Form Locator 8 on the UB-92.
301 PRIMARY NODE I1;E1,240 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  JAN 29, 1990
  • HELP-PROMPT:  This is the information pertaining to the primary insurance carrier associated with this bill.
  • DESCRIPTION:  
    This is the information pertaining to the primary insurance carrier which is associated with this bill.
  • TECHNICAL DESCR:  Set by trigger on Primary Insurance Carrier (399,101) and at UPDT^IBSCSE. This node is a duplicate of the insurance's node in the patient file. ^DGCR(399,IBIFN,"I1")=^DPT(DFN,.312,X)
    where +^DPT(DFN,.312,X)=(399,101)  primary insurer
302 SECONDARY NODE I2;E1,240 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  JAN 29, 1990
  • HELP-PROMPT:  This is the information pertaining to the secondary insurance carrier which is associated with this bill.
  • DESCRIPTION:  
    This is the information pertaining to the secondary insurance carrier which is associated with this bill.
  • TECHNICAL DESCR:  Set by trigger on Secondary Insurance Carrier (399,102) and by UPDT^IBCSCE. This node is a duplicate of the insurance's node in the patient file. ^DGCR(399,IBIFN,"I2")=^DPT(DFN,.312,X)
    where +^DPT(DFN,.312,X)=(399,102)  secondary insurer for bill
303 TERTIARY NODE I3;E1,240 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  JAN 29, 1990
  • HELP-PROMPT:  This is the information pertaining to the tertiary insurance carrier associated with this bill.
  • DESCRIPTION:  
    This is the information pertaining to the tertiary insurance carrier associated with this bill.
304 PROCEDURES CP;0 VARIABLE POINTER Multiple #399.0304 399.0304

  • LAST EDITED:  NOV 01, 1991
  • DESCRIPTION:  
    These are ICD or CPT procedures that are associated with this bill.
  • TECHNICAL DESCR:  
  • IDENTIFIED BY:  
    "WRITE":    N X S X=^(0) W "   ",$E($P($G(@(U_$P($P(X,U),";",2)_+X_",0)")),U,$S($P(X,U,1)["CPT":2,1:4)),1,30)
400 BLOCK 31 UF2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>63!($L(X)<3) X
  • LAST EDITED:  MAR 10, 1994
  • HELP-PROMPT:  Answer must be 3-63 characters in length.
  • DESCRIPTION:  Entry will be printed in block 31 of the HCFA 1500. This block is 3 lines of 21 characters each.
    Set up for the physicians name and number.
450 FORM LOCATOR 2 UF3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>59!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-59 characters in length.
  • DESCRIPTION:  
    FORM LOCATOR 2 ON THE UB-92.  Printed in Form Locator 2 on the UB-92.  If more than 30 characters are entered this will be printed on two lines.
  • TECHNICAL DESCR:  Unlabled Form Locator 2 on the UB-92. On the form the block is two lines of 29 and 30 characters, with the upper line optional. Therefore, if string is longer than 30 characters it must be split and printed on both
    lines.
451 FORM LOCATOR 11 UF3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-25 characters in length.
  • DESCRIPTION:  
    Printed in Form Locator 11 on the UB-92.  If more than 13 characters are entered this will be printed on two lines.
  • TECHNICAL DESCR:  Unlabled Form Locator 11 on the UB-92. On the form the block is two lines of 12 and 13 characters, with the upper line optional. Therefore, if string is longer than 13 characters it must be split and printed on both
    lines.
452 FORM LOCATOR 31 UF3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-11 characters in length.
  • DESCRIPTION:  
    Printed in Form Locator 31 on the UB-92.  If more than 6 characters are entered this will be printed on two lines.
  • TECHNICAL DESCR:  
    Unlabled Form Locator 31 on the UB-92.  On the form the block is two lines of 5 and 6 characters.  Therefore, if the string is longer than 6 characters it must be split and printed on both lines.
453 FORM LOCATOR 37A UF3;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-23 characters in length.
  • DESCRIPTION:  Unlabled Form Locator 37A on the UB-92. This field is nationally reserved on adjustment/replacement type bills for the Internal Control Number (ICN)/Document Control Number (DCN) assigned to the original bill by the
    primary payer (in 50A).
454 FORM LOCATOR 37B UF3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-23 characters in length.
  • DESCRIPTION:  Unlabled Form Locator 37B on the UB-92. This field is nationally reserved on adjustment/replacement type bills for the Internal Control Number (ICN)/Document Control Number (DCN) assigned to the original bill by the
    secondary payer (in 50B).
455 FORM LOCATOR 37C UF3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-23 characters in length.
  • DESCRIPTION:  Unlabled Form Locator 37C on the UB-92. This field is nationally reserved on adjustment/replacement type bills for the Internal Control Number (ICN)/Document Control Number (DCN) assigned to the original bill by the
    tertiary payer (in 50C).
456 FORM LOCATOR 56 UF3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>69!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-69 characters in length.
  • DESCRIPTION:  
    Printed in Form Locator 56 on the UB-92.  If more than 14 characters are entered this will be printed on multiple lines.
  • TECHNICAL DESCR:  Unlabled Form Locator 56 on the UB-92. On the form the block is five lines of 13 and 14 characters. Therefore, if the string is longer than 14 characters it must be split and printed on multiple lines. The top line of
    13 characters will be used last.
457 FORM LOCATOR 57 UF31;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>27!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-27 characters in length.
  • DESCRIPTION:  
    Unlabled Form Locator 57 on the UB-92.
458 FORM LOCATOR 78 UF31;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<3) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Answer must be 3-5 characters in length.
  • DESCRIPTION:  
    Printed in Form Locator 78 on the UB-92.  If more than 3 characters are entered this will be printed on two lines.
  • TECHNICAL DESCR:  
    Unlabled Form Locator 78 on the UB-92.  On the form the block is two lines of 2 and 3 characters, with the upper line optional.  Therefore, if string is longer than 3 characters it must be split and printed on both lines.

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #1992
  • Automated Information Collection System
  • ACCOUNTS RECEIVABLE
  • BILL NUMBER (.01).
    Access: Direct Global Read & w/Fileman

    DATE ENTERED (1).
    Access: Direct Global Read & w/Fileman

    DATE FIRST PRINTED (12).
    Access: Direct Global Read & w/Fileman

    DATE BILL CANCELLED (17).
    Access: Direct Global Read & w/Fileman

    OP VISITS DATE(S) (43).
    Access: Direct Global Read & w/Fileman

    TOTAL CHARGES (201).
    Access: Direct Global Read & w/Fileman

    ICR #2281
  • SCHEDULING
  • STATEMENT COVERS FROM (151).
    Access: Direct Global Read & w/Fileman

    STATEMENT COVERS TO (152).
    Access: Direct Global Read & w/Fileman

    'C' xref.
    ICR #3820
  • ACCOUNTS RECEIVABLE
  • BILL CHARGE TYPE (.27).
    Access: Direct Global Read & w/Fileman

    DEFAULT DIVISION (.22).
    Access: Direct Global Read & w/Fileman

    RATE TYPE (.07).
    Access: Direct Global Read & w/Fileman

    SC AT TIME OF CARESC (.18).
    Access: Direct Global Read & w/Fileman

    AUTO (.2).
    Access: Direct Global Read & w/Fileman

    CURRENT BILL PAYER SEQUENCE (.21).
    Access: Direct Global Read & w/Fileman

    EVENT DATE (.03).
    Access: Direct Global Read & w/Fileman

    LOCATION OF CARE (.04).
    Access: Direct Global Read & w/Fileman

    BILL CLASSIFICATION (.05).
    Access: Direct Global Read & w/Fileman

    TIMEFRAME OF BILL (.06).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODING METHOD (.09).
    Access: Direct Global Read & w/Fileman

    STATUS (.13).
    Access: Direct Global Read & w/Fileman

    STATUS DATE (.14).
    Access: Direct Global Read & w/Fileman

    UB92 LOCATION OF CARE (.24).
    Access: Direct Global Read & w/Fileman

    UB92 BILL CLASSIFICATION (.25).
    Access: Direct Global Read & w/Fileman

    UB92 TIMEFRAME OF BILL (.26).
    Access: Direct Global Read & w/Fileman

    BILL NUMBER (.01).
    Access: Direct Global Read & w/Fileman

    PATIENT NAME (.02).
    Access: Direct Global Read & w/Fileman

    STATEMENT COVERS FROM (151).
    Access: Direct Global Read & w/Fileman

    STATEMENT COVERS TO (152).
    Access: Direct Global Read & w/Fileman

    IS THIS A SENSITIVE RECORD (155).
    Access: Direct Global Read & w/Fileman

    ASSIGNMENT OF BENEFITS (156).
    Access: Direct Global Read & w/Fileman

    TREATMENT AUTHORIZATION (163).
    Access: Direct Global Read & w/Fileman

    OFFSET AMOUNT (202).
    Access: Direct Global Read & w/Fileman

    ADMITTING DIAGNOSIS (215).
    Access: Direct Global Read & w/Fileman

    COVERED DAYS (216).
    Access: Direct Global Read & w/Fileman

    NON-COVERED DAYS (217).
    Access: Direct Global Read & w/Fileman

    PRIMARY PRIOR PAYMENT (218).
    Access: Direct Global Read & w/Fileman

    SECONDARY PRIOR PAYMENT (219).
    Access: Direct Global Read & w/Fileman

    TERTIARY PRIOR PAYMENT (220).
    Access: Direct Global Read & w/Fileman

    AUTHORIZATION DATE (10).
    Access: Direct Global Read & w/Fileman

    DATE FIRST PRINTED (12).
    Access: Direct Global Read & w/Fileman

    BILL PAYER CARRIER (135).
    Access: Direct Global Read & w/Fileman

    PRIMARY PROVIDER (122).
    Access: Direct Global Read & w/Fileman

    SECONDARY PROVIDER (123).
    Access: Direct Global Read & w/Fileman

    TERTIARY PROVIDER (124).
    Access: Direct Global Read & w/Fileman

    WHO'S RESPONSIBLE FOR BILL? (.11).
    Access: Direct Global Read & w/Fileman

    VALUE CODE (.01).
    Access: Direct Global Read & w/Fileman

    VALUE (.02).
    Access: Direct Global Read & w/Fileman

    REVENUE CODE (.01).
    Access: Direct Global Read & w/Fileman

    CHARGES (.02).
    Access: Direct Global Read & w/Fileman

    UNITS OF SERVICE (.03).
    Access: Direct Global Read & w/Fileman

    TOTAL (.04).
    Access: Direct Global Read & w/Fileman

    BEDSECTION (.05).
    Access: Direct Global Read & w/Fileman

    NON-COVERED DAYS (.09).
    Access: Direct Global Read & w/Fileman

    TYPE (.1).
    Access: Direct Global Read & w/Fileman

    ITEM (.11).
    Access: Direct Global Read & w/Fileman

    OP VISIT DATE (.01).
    Access: Direct Global Read & w/Fileman

    OCCURENCE CODE (.01).
    Access: Direct Global Read & w/Fileman

    (DGCR(399,D0,CV).
    Access:

    External References

    Name Field # of Occurrence
    ^%DT .03+1, .14+1, .16+1, 1+1, 4+1, 7+1, 10+1, 12+1, 14+1, 17+1
    , 61+1, 62+1, 63+1, 151+1, 152+1, 166+1, 167+1
    NOW^%DTC .01(XREF 3S), .13(XREF 1S), 3(XREF 1S), 6(XREF 1S), 9(XREF 1S), 12(XREF 1S), 16(XREF 1S)
    ^DIC .07+1, .08+1, .15+1, 51+1, 52+1, 53+1, 101+1, 102+1, 103+1, 161+1
    , 162+1
    IX^DIC 57+1, 58+1, 59+1
    ^DICR .01(XREF 3n1.4), .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), .01(XREF 7n1.4), .07(XREF 1n1.4), .07(XREF 1n2.4), .07(XREF 2n1.4), .08(XREF 1n1.4), .08(XREF 2n1.4)
    .08(XREF 3n1.4), .08(XREF 4n1.4), .08(XREF 4n2.4), .08(XREF 6n1.4), .11(XREF 1n1.4), .13(XREF 1n1.4), .19(XREF 1n1.4), 3(XREF 1n1.4), 3(XREF 2n1.4), 3(XREF 3n1.4)
    6(XREF 1n1.4), 6(XREF 2n1.4), 6(XREF 3n1.4), 9(XREF 1n1.4), 9(XREF 2n1.4), 9(XREF 3n1.4), 12(XREF 1n1.4), 12(XREF 2n1.4), 12(XREF 3n1.4), 14(XREF 1n1.4)
    14(XREF 3n1.4), 16(XREF 1n1.4), 16(XREF 2n1.4), 17(XREF 1n1.4), 64(XREF 1n1.4), 64(XREF 1n2.4), 101(XREF 4n1.4), 101(XREF 5n1.4), 102(XREF 2n1.4), 103(XREF 2n1.4)
    112(XREF 1n1.4), 112(XREF 1n2.4), 113(XREF 1n1.4), 113(XREF 1n2.4), 114(XREF 1n1.4), 114(XREF 1n2.4), 151(XREF 1n1.4), 151(XREF 3n1.4), 152(XREF 1n1.4), 161(XREF 1n1.4)
    201(XREF 1n1.4), 202(XREF 1n2.4), 210(XREF 1n1.4), 210(XREF 1n2.4)
    Y^DIQ ID.02+1, ID.07+1
    DD^IBCNS 101+1
    $$INSCO^IBCNS2 112(XREF 1n1.1), 113(XREF 1n1.1), 114(XREF 1n1.1)
    $$TRANS^IBCNS2 112OT+1, 113OT+1, 114OT+1
    DD^IBCNS2 112+1, 113+1, 114+1
    DDHELP^IBCNS2 112(HELP ), 113(HELP ), 114(HELP )
    IX^IBCNS2 112(XREF 2S), 113(XREF 2S), 114(XREF 2S)
    KIX^IBCNS2 112(XREF 2K), 113(XREF 2K), 114(XREF 2K)
    DIS^IBCU .08(XREF 4S), 161(XREF 1S)
    PTF^IBCU .08+1
    YN^IBCU .18+1, 3+1, 6+1, 9+1, 16+1, 153+1, 155+1, 156+1, 157+1
    $$FT^IBCU3 101(XREF 4S)
    DDAT^IBCU4 151+1
    DDAT1^IBCU4 152+1
    DEL^IBCU5 .11(XREF 2K), 111(XREF 1K)
    EN^IBCU5 .11(XREF 2S)
    EN1^IBCU5 .11(XREF 1S)
    MAILA^IBCU5 101(XREF 1S)
    MAILIN^IBCU5 111(XREF 1S)
    $$LOS1^IBCU64 .08(XREF 6S), 151(XREF 1S), 152(XREF 1S)
    DTMES^IBCU7 61+1, 62+1, 63+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .01(XREF 3n1.4), .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), .01(XREF 7n1.4), .07(XREF 1n1.4), .07(XREF 1n2.4), .07(XREF 2n1.4), .08(XREF 1n1.4), .08(XREF 2n1.4)
    .08(XREF 3n1.4), .08(XREF 4n1.4), .08(XREF 4n2.4), .08(XREF 6n1.4), .11(XREF 1n1.4), .13(XREF 1n1.4), .19(XREF 1n1.4), 3(XREF 1n1.4), 3(XREF 2n1.4), 3(XREF 3n1.4)
    6(XREF 1n1.4), 6(XREF 2n1.4), 6(XREF 3n1.4), 9(XREF 1n1.4), 9(XREF 2n1.4), 9(XREF 3n1.4), 12(XREF 1n1.4), 12(XREF 2n1.4), 12(XREF 3n1.4), 14(XREF 1n1.4)
    14(XREF 3n1.4), 16(XREF 1n1.4), 16(XREF 2n1.4), 17(XREF 1n1.4), 64(XREF 1n1.4), 64(XREF 1n2.4), 101(XREF 4n1.4), 101(XREF 5n1.4), 102(XREF 2n1.4), 103(XREF 2n1.4)
    112(XREF 1n1.4), 112(XREF 1n2.4), 113(XREF 1n1.4), 113(XREF 1n2.4), 114(XREF 1n1.4), 114(XREF 1n2.4), 151(XREF 1n1.4), 151(XREF 3n1.4), 152(XREF 1n1.4), 161(XREF 1n1.4)
    201(XREF 1n1.4), 202(XREF 1n2.4), 210(XREF 1n1.4), 210(XREF 1n2.4)
    ^DD(2 ID.02+1
    ^DD(399 .01(XREF 3S), .01(XREF 4S), .01(XREF 5S), .01(XREF 6S), .01(XREF 7S), .07(XREF 1S), .07(XREF 1n1.3), .07(XREF 1K), .07(XREF 1n2.3), .07(XREF 2S)
    .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 3S), .08(XREF 4S), .08(XREF 4K), .08(XREF 6S), .11(XREF 1S), .13(XREF 1S)
    .19(XREF 1S), .19(XREF 1n1.3), .19(XREF 1n69.2), 3(XREF 1S), 3(XREF 2S), 3(XREF 3S), 3(XREF 3n1.3), 6(XREF 1S), 6(XREF 2S), 6(XREF 3S)
    9(XREF 1S), 9(XREF 2S), 9(XREF 3S), 12(XREF 1S), 12(XREF 2S), 12(XREF 3S), 14(XREF 1S), 14(XREF 3S), 16(XREF 1S), 16(XREF 2S)
    17(XREF 1S), 19+1, 64(XREF 1S), 64(XREF 1K), 101(XREF 4S), 101(XREF 5S), 102(XREF 2S), 103(XREF 2S), 112(XREF 1S), 112(XREF 1K)
    113(XREF 1S), 113(XREF 1K), 114(XREF 1S), 114(XREF 1K), 151(XREF 1S), 151(XREF 3S), 152(XREF 1S), 156+1, 161(XREF 1S), 201(XREF 1S)
    202(XREF 1K), 210(XREF 1S), 210(XREF 1K)
    ^DD(399.3 ID.07+1, .07(XREF 1n69.2), .07(XREF 1n79.2)
    ^DGCR(399 - [#399] .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4)
    .01(XREF 7S), .01(XREF 7n1.3), .01(XREF 7n1.4), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S)
    .03(XREF 3K), .05(XREF 1S), .05(XREF 1K), .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .07(XREF 1n79.2), .07(XREF 2S), .07(XREF 2n1.1)
    .07(XREF 2n1.4), .07(XREF 3S), .07(XREF 3K), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 1n1.4), .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 2n1.4), .08(XREF 3S)
    .08(XREF 3n1.4), .08(XREF 4S), .08(XREF 4n1.3), .08(XREF 4n1.4), .08(XREF 4K), .08(XREF 4n2.4), .08(XREF 5S), .08(XREF 5K), .08(XREF 6S), .08(XREF 6n1.4)
    .11(XREF 1S), .11(XREF 1n1.3), .11(XREF 1n1.4), .13(XREF 1S), .13(XREF 1n1.4), .13(XREF 2S), .13(XREF 2K), .13(XREF 3S), .13(XREF 3K), .17(XREF 1S)
    .17(XREF 1K), .19(XREF 1S), .19(XREF 1n1.4), .19(XREF 1n69.2), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 2S), 3(XREF 2n1.3)
    3(XREF 2n1.4), 3(XREF 3S), 3(XREF 3n1.3), 3(XREF 3n1.4), 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 2S), 6(XREF 2n1.3), 6(XREF 2n1.4), 6(XREF 3S)
    6(XREF 3n1.4), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 2S), 9(XREF 2n1.3), 9(XREF 2n1.4), 9(XREF 3S), 9(XREF 3n1.4), 12(XREF 1S), 12(XREF 1n1.4)
    12(XREF 2S), 12(XREF 2n1.3), 12(XREF 2n1.4), 12(XREF 3S), 12(XREF 3n1.3), 12(XREF 3n1.4), 12(XREF 4S), 12(XREF 4K), 14(XREF 1S), 14(XREF 1n1.4)
    14(XREF 3S), 14(XREF 3n1.4), 16(XREF 1S), 16(XREF 1n1.4), 16(XREF 2S), 16(XREF 2n1.4), 17(XREF 1S), 17(XREF 1n1.4), 64(XREF 1S), 64(XREF 1n1.4)
    64(XREF 1K), 64(XREF 1n2.4), 101(XREF 3S), 101(XREF 3K), 101(XREF 4S), 101(XREF 4n1.4), 101(XREF 5S), 101(XREF 5n1.4), 102(XREF 2S), 102(XREF 2n1.4)
    103(XREF 2S), 103(XREF 2n1.4), 105OF9.3+1*, 112(XREF 1S), 112(XREF 1n1.1), 112(XREF 1n1.4), 112(XREF 1K), 112(XREF 1n2.4), 113(XREF 1S), 113(XREF 1n1.1)
    113(XREF 1n1.4), 113(XREF 1K), 113(XREF 1n2.4), 114(XREF 1S), 114(XREF 1n1.1), 114(XREF 1n1.4), 114(XREF 1K), 114(XREF 1n2.4), 151(XREF 1S), 151(XREF 1n1.4)
    151(XREF 3S), 151(XREF 3n1.1), 151(XREF 3n1.4), 152(XREF 1S), 152(XREF 1n1.4), 156OF9.3+1, 161(XREF 1S), 161(XREF 1n1.3), 161(XREF 1n1.4), 201(XREF 1S)
    201(XREF 1n1.4), 202(XREF 1K), 202(XREF 1n2.4), 210(XREF 1S), 210(XREF 1n1.1), 210(XREF 1n1.3), 210(XREF 1n1.4), 210(XREF 1K), 210(XREF 1n2.4)
    ^DGCR(399.1 - [#399.1] .08(XREF 4n1.3), 161(XREF 1n1.3)
    ^DGCR(399.3 - [#399.3] ID.07+1, .07(XREF 1n2.3), .07(XREF 1n69.2), .07(XREF 1n79.2), .07(XREF 2n1.1), 156OF9.3+1
    ^DIC(36 - [#36] .11(XREF 1n1.3), 101(XREF 5n1.1), 102(XREF 2n1.1), 103(XREF 2n1.1), 105OF9.3+1
    ^DPT - [#2] ID.02+1
    ^IBE(350.9 - [#350.9] .01(XREF 5n1.1), .01(XREF 7S)
    ^IBE(353 - [#353] .01(XREF 7n1.3), .19(XREF 1n69.2)
    ^ICD9 - [#80] 64(XREF 1S)
    ^VA(200 - [#200] 3(XREF 2n1.3), 6(XREF 2n1.3), 9(XREF 2n1.3), 12(XREF 2n1.3), 12(XREF 3n1.3)

    Naked Globals

    Name Field # of Occurrence
    ^("C" 64(XREF 1S), 64(XREF 1n1.4), 64(XREF 1K), 64(XREF 1n2.4)
    ^("M" .11(XREF 1S), .11(XREF 1n1.3), .11(XREF 1n1.4), 112(XREF 1S), 112(XREF 1n1.4), 112(XREF 1K), 112(XREF 1n2.4), 113(XREF 1S), 113(XREF 1n1.4), 113(XREF 1K)
    113(XREF 1n2.4), 114(XREF 1S), 114(XREF 1n1.4), 114(XREF 1K), 114(XREF 1n2.4)
    ^("M1" 101(XREF 5S), 101(XREF 5n1.4), 102(XREF 2S), 102(XREF 2n1.4), 103(XREF 2S), 103(XREF 2n1.4)
    ^("S" .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 2S), 3(XREF 2n1.3), 3(XREF 2n1.4), 3(XREF 3S)
    3(XREF 3n1.3), 3(XREF 3n1.4), 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 2S), 6(XREF 2n1.3), 6(XREF 2n1.4), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 2S)
    9(XREF 2n1.3), 9(XREF 2n1.4), 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 2S), 12(XREF 2n1.3), 12(XREF 2n1.4), 12(XREF 3S), 12(XREF 3n1.3), 12(XREF 3n1.4)
    14(XREF 3S), 14(XREF 3n1.4), 16(XREF 1S), 16(XREF 1n1.4), 16(XREF 2S), 16(XREF 2n1.4)
    ^("U" .01(XREF 5S), .01(XREF 5n1.4), .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 1n1.4), .08(XREF 2S)
    .08(XREF 2n1.3), .08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.4), .08(XREF 4S), .08(XREF 4n1.3), .08(XREF 4n1.4), .08(XREF 4K), .08(XREF 4n2.4), .08(XREF 6S)
    .08(XREF 6n1.4), 151(XREF 1S), 151(XREF 1n1.4), 152(XREF 1S), 152(XREF 1n1.4), 161(XREF 1S), 161(XREF 1n1.3), 161(XREF 1n1.4)
    ^("U1" 151(XREF 3S), 151(XREF 3n1.4), 201(XREF 1S), 201(XREF 1n1.4), 202(XREF 1K), 202(XREF 1n2.4), 210(XREF 1S), 210(XREF 1n1.1), 210(XREF 1n1.3), 210(XREF 1n1.4)
    210(XREF 1K), 210(XREF 1n2.4)
    ^(0 ID.02+1, ID.03+1, ID.05+1, ID.07+1, .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S), .01(XREF 7n1.3), .01(XREF 7n1.4), .07(XREF 1n2.3)
    .07(XREF 1n69.2), .07(XREF 1n79.2), .07(XREF 2S), .07(XREF 2n1.4), .08(XREF 1n1.3), .08(XREF 2n1.3), .08(XREF 4n1.3), .13(XREF 1S), .13(XREF 1n1.4), .13(XREF 2S)
    .13(XREF 2K), .19(XREF 1S), .19(XREF 1n1.4), .19(XREF 1n69.2), 3(XREF 2n1.3), 6(XREF 2n1.3), 6(XREF 3S), 6(XREF 3n1.4), 9(XREF 2n1.3), 9(XREF 3S)
    9(XREF 3n1.4), 12(XREF 2n1.3), 12(XREF 3n1.3), 14(XREF 1S), 14(XREF 1n1.4), 17(XREF 1S), 17(XREF 1n1.4), 101(XREF 3S), 101(XREF 3K), 101(XREF 4S)
    101(XREF 4n1.4), 101(XREF 5n1.1), 102(XREF 2n1.1), 103(XREF 2n1.1), 156OF9.3+1, 161(XREF 1n1.3)
    ^(1 .01(XREF 5n1.1)
    ^(2 3(XREF 3n1.3), 6(XREF 3S), 9(XREF 3S)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % .01(XREF 3S), .13(XREF 1S), 3(XREF 1S), 3(XREF 3n1.4), 6(XREF 1S), 9(XREF 1S), 12(XREF 1S), 16(XREF 1S)
    >> %DT .03+1*, .14+1*, .16+1*, 1+1*, 4+1*, 7+1*, 10+1*, 12+1*, 14+1*, 17+1*
    , 61+1*, 62+1*, 63+1*, 151+1*, 152+1*, 166+1*, 167+1*
    >> %DT(0 .03+1*
    %H .01(XREF 3S), .13(XREF 1S), 3(XREF 1S), 6(XREF 1S), 9(XREF 1S), 12(XREF 1S), 16(XREF 1S)
    %I ID.02+1*!, ID.07+1*!, .01(XREF 3S), .13(XREF 1S), 3(XREF 1S), 6(XREF 1S), 9(XREF 1S), 12(XREF 1S), 16(XREF 1S)
    >> C ID.02+1*, ID.07+1*
    >> D 57+1*, 58+1*, 59+1*
    >> D0 .01(XREF 3S), .01(XREF 4S), .01(XREF 5S), .01(XREF 6S), .01(XREF 7S), .01(XREF 7n1.3), .07(XREF 1S), .07(XREF 1n1.3), .07(XREF 1K), .07(XREF 1n2.3)
    .07(XREF 1n69.2), .07(XREF 1n79.2), .07(XREF 2S), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 3S), .08(XREF 4S), .08(XREF 4n1.3)
    .08(XREF 4K), .08(XREF 6S), .11(XREF 1S), .11(XREF 1n1.3), .13(XREF 1S), .19(XREF 1S), .19(XREF 1n1.3), .19(XREF 1n69.2), 3(XREF 1S), 3(XREF 2S)
    3(XREF 2n1.3), 3(XREF 3S), 3(XREF 3n1.3), 6(XREF 1S), 6(XREF 2S), 6(XREF 2n1.3), 6(XREF 3S), 9(XREF 1S), 9(XREF 2S), 9(XREF 2n1.3)
    9(XREF 3S), 12(XREF 1S), 12(XREF 2S), 12(XREF 2n1.3), 12(XREF 3S), 12(XREF 3n1.3), 14(XREF 1S), 14(XREF 3S), 16(XREF 1S), 16(XREF 2S)
    17(XREF 1S), 64(XREF 1S), 64(XREF 1K), 101(XREF 4S), 101(XREF 5S), 101(XREF 5n1.1), 102(XREF 2S), 102(XREF 2n1.1), 103(XREF 2S), 103(XREF 2n1.1)
    , 105OF9.3+1, 112(XREF 1S), 112(XREF 1K), 113(XREF 1S), 113(XREF 1K), 114(XREF 1S), 114(XREF 1K), 151(XREF 1S), 151(XREF 3S), 152(XREF 1S)
    161(XREF 1S), 161(XREF 1n1.3), 201(XREF 1S), 202(XREF 1K), 210(XREF 1S), 210(XREF 1n1.1), 210(XREF 1n1.3), 210(XREF 1K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 4S), .01(XREF 5S), .01(XREF 6S), .01(XREF 7n1.3), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S)
    .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .05(XREF 1S), .05(XREF 1K), .07(XREF 1n1.3), .07(XREF 1n2.3), .07(XREF 2S)
    .07(XREF 2n1.1), .07(XREF 3S), .07(XREF 3K), .08(XREF 1n1.3), .08(XREF 2n1.3), .08(XREF 3S), .08(XREF 4n1.3), .08(XREF 4K), .08(XREF 5S), .08(XREF 5K)
    .08(XREF 6S), .11(XREF 1n1.3), .13(XREF 1S), .13(XREF 2S), .13(XREF 2K), .13(XREF 3S), .13(XREF 3K), .17(XREF 1S), .17(XREF 1K), .19(XREF 1n1.3)
    1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 2n1.3), 3(XREF 3n1.3), 6(XREF 1S), 6(XREF 2n1.3), 6(XREF 3S), 9(XREF 1S), 9(XREF 2n1.3)
    9(XREF 3S), 12(XREF 1S), 12(XREF 2n1.3), 12(XREF 3n1.3), 12(XREF 4S), 12(XREF 4K), 14(XREF 1S), 14(XREF 3S), 16(XREF 1S), 16(XREF 2S)
    17(XREF 1S), 64(XREF 1S), 64(XREF 1K), 101(XREF 3S), 101(XREF 3K), 101(XREF 4S), 101(XREF 5S), 102(XREF 2S), 103(XREF 2S), 112+1
    , 112OT+1, 112(HELP ), 112(XREF 1S), 112(XREF 1n1.1), 112(XREF 1K), 112(XREF 2S), 112(XREF 2K), 113+1, 113OT+1, 113(HELP )
    113(XREF 1S), 113(XREF 1n1.1), 113(XREF 1K), 113(XREF 2S), 113(XREF 2K), 114+1, 114OT+1, 114(HELP ), 114(XREF 1S), 114(XREF 1n1.1)
    114(XREF 1K), 114(XREF 2S), 114(XREF 2K), 151(XREF 1S), 151(XREF 3S), 151(XREF 3n1.1), 152(XREF 1S), 156OF9.3+1, 161(XREF 1n1.3), 201(XREF 1S)
    202(XREF 1K), 210(XREF 1n1.3), 210(XREF 1K)
    >> DGRVRCAL .11(XREF 3S), .11(XREF 3K), .19(XREF 2S), .19(XREF 2K), 101(XREF 2S), 101(XREF 2K), 111(XREF 2S), 111(XREF 2K), 151(XREF 2S), 151(XREF 2K)
    152(XREF 2S), 152(XREF 2K)
    DIC ID.02+1, ID.05+1, ID.07+1, ID.13+1, .07+1!*, .08+1*!, .15+1!*, 51+1!*, 52+1!*, 53+1!*
    , 57+1!*, 58+1!*, 59+1!*, 101+1!*, 102+1!*, 103+1!*, 161+1!*, 162+1!*
    DIC("S" .07+1*, .07SCR+1*, .08+1*, .15+1*, .15SCR+1*, 51+1*, 51SCR+1*, 52+1*, 52SCR+1*, 53+1*
    , 53SCR+1*, 57SCR+1*, 58SCR+1*, 59SCR+1*, 101+1*, 101SCR+1*, 102SCR+1*, 103SCR+1*, 161+1*, 161SCR+1*
    , 162+1*, 162SCR+1*
    DIC(0 .08+1*
    >> DIE .07+1, .08+1, .15+1, 51+1, 52+1, 53+1, 57+1, 58+1, 59+1, 101+1
    , 102+1, 103+1, 161+1, 162+1
    >> DIG .01(XREF 3n1.4), .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), .01(XREF 7n1.4), .07(XREF 1n1.4), .07(XREF 1n2.4), .07(XREF 2n1.4), .08(XREF 1n1.4), .08(XREF 2n1.4)
    .08(XREF 3n1.4), .08(XREF 4n1.4), .08(XREF 4n2.4), .08(XREF 6n1.4), .11(XREF 1n1.4), .13(XREF 1n1.4), .19(XREF 1n1.4), 3(XREF 1n1.4), 3(XREF 2n1.4), 3(XREF 3n1.4)
    6(XREF 1n1.4), 6(XREF 2n1.4), 6(XREF 3n1.4), 9(XREF 1n1.4), 9(XREF 2n1.4), 9(XREF 3n1.4), 12(XREF 1n1.4), 12(XREF 2n1.4), 12(XREF 3n1.4), 14(XREF 1n1.4)
    14(XREF 3n1.4), 16(XREF 1n1.4), 16(XREF 2n1.4), 17(XREF 1n1.4), 64(XREF 1n1.4), 64(XREF 1n2.4), 101(XREF 4n1.4), 101(XREF 5n1.4), 102(XREF 2n1.4), 103(XREF 2n1.4)
    112(XREF 1n1.4), 112(XREF 1n2.4), 113(XREF 1n1.4), 113(XREF 1n2.4), 114(XREF 1n1.4), 114(XREF 1n2.4), 151(XREF 1n1.4), 151(XREF 3n1.4), 152(XREF 1n1.4), 161(XREF 1n1.4)
    201(XREF 1n1.4), 202(XREF 1n2.4), 210(XREF 1n1.4), 210(XREF 1n2.4)
    >> DIH .01(XREF 3n1.4), .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), .01(XREF 7n1.4), .07(XREF 1n1.4), .07(XREF 1n2.4), .07(XREF 2n1.4), .08(XREF 1n1.4), .08(XREF 2n1.4)
    .08(XREF 3n1.4), .08(XREF 4n1.4), .08(XREF 4n2.4), .08(XREF 6n1.4), .11(XREF 1n1.4), .13(XREF 1n1.4), .19(XREF 1n1.4), 3(XREF 1n1.4), 3(XREF 2n1.4), 3(XREF 3n1.4)
    6(XREF 1n1.4), 6(XREF 2n1.4), 6(XREF 3n1.4), 9(XREF 1n1.4), 9(XREF 2n1.4), 9(XREF 3n1.4), 12(XREF 1n1.4), 12(XREF 2n1.4), 12(XREF 3n1.4), 14(XREF 1n1.4)
    14(XREF 3n1.4), 16(XREF 1n1.4), 16(XREF 2n1.4), 17(XREF 1n1.4), 64(XREF 1n1.4), 64(XREF 1n2.4), 101(XREF 4n1.4), 101(XREF 5n1.4), 102(XREF 2n1.4), 103(XREF 2n1.4)
    112(XREF 1n1.4), 112(XREF 1n2.4), 113(XREF 1n1.4), 113(XREF 1n2.4), 114(XREF 1n1.4), 114(XREF 1n2.4), 151(XREF 1n1.4), 151(XREF 3n1.4), 152(XREF 1n1.4), 161(XREF 1n1.4)
    201(XREF 1n1.4), 202(XREF 1n2.4), 210(XREF 1n1.4), 210(XREF 1n2.4)
    >> DIU .01(XREF 3S), .01(XREF 4S), .01(XREF 5S), .01(XREF 6S), .01(XREF 7S), .07(XREF 1S), .07(XREF 1K), .07(XREF 2S), .08(XREF 1S), .08(XREF 2S)
    .08(XREF 3S), .08(XREF 4S), .08(XREF 4K), .08(XREF 6S), .11(XREF 1S), .13(XREF 1S), .19(XREF 1S), 3(XREF 1S), 3(XREF 2S), 3(XREF 3S)
    3(XREF 3n1.4), 6(XREF 1S), 6(XREF 2S), 6(XREF 3S), 9(XREF 1S), 9(XREF 2S), 9(XREF 3S), 12(XREF 1S), 12(XREF 2S), 12(XREF 3S)
    14(XREF 1S), 14(XREF 3S), 16(XREF 1S), 16(XREF 2S), 17(XREF 1S), 64(XREF 1S), 64(XREF 1K), 101(XREF 4S), 101(XREF 5S), 102(XREF 2S)
    103(XREF 2S), 112(XREF 1S), 112(XREF 1K), 113(XREF 1S), 113(XREF 1K), 114(XREF 1S), 114(XREF 1K), 151(XREF 1S), 151(XREF 3S), 152(XREF 1S)
    161(XREF 1S), 201(XREF 1S), 202(XREF 1K), 210(XREF 1S), 210(XREF 1K)
    DIV .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5n1.1), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S)
    .01(XREF 7n1.3), .01(XREF 7n1.4), .07(XREF 1S), .07(XREF 1n1.3), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.3), .07(XREF 1n2.4), .07(XREF 2S), .07(XREF 2n1.1)
    .07(XREF 2n1.4), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 1n1.4), .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.4), .08(XREF 4S)
    .08(XREF 4n1.3), .08(XREF 4n1.4), .08(XREF 4K), .08(XREF 4n2.4), .08(XREF 6S), .08(XREF 6n1.4), .11(XREF 1S), .11(XREF 1n1.3), .11(XREF 1n1.4), .13(XREF 1S)
    .13(XREF 1n1.4), .19(XREF 1S), .19(XREF 1n1.3), .19(XREF 1n1.4), 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 2S), 3(XREF 2n1.3), 3(XREF 2n1.4), 3(XREF 3S)
    3(XREF 3n1.3), 3(XREF 3n1.4), 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 2S), 6(XREF 2n1.3), 6(XREF 2n1.4), 6(XREF 3S), 6(XREF 3n1.4), 9(XREF 1S)
    9(XREF 1n1.4), 9(XREF 2S), 9(XREF 2n1.3), 9(XREF 2n1.4), 9(XREF 3S), 9(XREF 3n1.4), 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 2S), 12(XREF 2n1.3)
    12(XREF 2n1.4), 12(XREF 3S), 12(XREF 3n1.3), 12(XREF 3n1.4), 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 3S), 14(XREF 3n1.4), 16(XREF 1S), 16(XREF 1n1.4)
    16(XREF 2S), 16(XREF 2n1.4), 17(XREF 1S), 17(XREF 1n1.4), 64(XREF 1S), 64(XREF 1n1.4), 64(XREF 1K), 64(XREF 1n2.4), 101(XREF 4S), 101(XREF 4n1.4)
    101(XREF 5S), 101(XREF 5n1.1), 101(XREF 5n1.4), 102(XREF 2S), 102(XREF 2n1.1), 102(XREF 2n1.4), 103(XREF 2S), 103(XREF 2n1.1), 103(XREF 2n1.4), 112(XREF 1S)
    112(XREF 1n1.1), 112(XREF 1n1.4), 112(XREF 1K), 112(XREF 1n2.4), 113(XREF 1S), 113(XREF 1n1.1), 113(XREF 1n1.4), 113(XREF 1K), 113(XREF 1n2.4), 114(XREF 1S)
    114(XREF 1n1.1), 114(XREF 1n1.4), 114(XREF 1K), 114(XREF 1n2.4), 151(XREF 1S), 151(XREF 1n1.4), 151(XREF 3S), 151(XREF 3n1.1), 151(XREF 3n1.4), 152(XREF 1S)
    152(XREF 1n1.4), 161(XREF 1S), 161(XREF 1n1.3), 161(XREF 1n1.4), 201(XREF 1S), 201(XREF 1n1.4), 202(XREF 1K), 202(XREF 1n2.4), 210(XREF 1S), 210(XREF 1n1.1)
    210(XREF 1n1.3), 210(XREF 1n1.4), 210(XREF 1K), 210(XREF 1n2.4)
    DIV(0 .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7n1.3), .01(XREF 7n1.4)
    .07(XREF 1n1.3), .07(XREF 1n1.4), .07(XREF 1n2.3), .07(XREF 1n2.4), .07(XREF 2S), .07(XREF 2n1.4), .08(XREF 1n1.3), .08(XREF 1n1.4), .08(XREF 2n1.3), .08(XREF 2n1.4)
    .08(XREF 3S), .08(XREF 3n1.4), .08(XREF 4n1.3), .08(XREF 4n1.4), .08(XREF 4K), .08(XREF 4n2.4), .08(XREF 6S), .08(XREF 6n1.4), .11(XREF 1n1.3), .11(XREF 1n1.4)
    .13(XREF 1S), .13(XREF 1n1.4), .19(XREF 1n1.3), .19(XREF 1n1.4), 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 2n1.3), 3(XREF 2n1.4), 3(XREF 3n1.3), 3(XREF 3n1.4)
    6(XREF 1S), 6(XREF 1n1.4), 6(XREF 2n1.3), 6(XREF 2n1.4), 6(XREF 3S), 6(XREF 3n1.4), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 2n1.3), 9(XREF 2n1.4)
    9(XREF 3S), 9(XREF 3n1.4), 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 2n1.3), 12(XREF 2n1.4), 12(XREF 3n1.3), 12(XREF 3n1.4), 14(XREF 1S), 14(XREF 1n1.4)
    14(XREF 3S), 14(XREF 3n1.4), 16(XREF 1S), 16(XREF 1n1.4), 16(XREF 2S), 16(XREF 2n1.4), 17(XREF 1S), 17(XREF 1n1.4), 64(XREF 1S), 64(XREF 1n1.4)
    64(XREF 1K), 64(XREF 1n2.4), 101(XREF 4S), 101(XREF 4n1.4), 101(XREF 5S), 101(XREF 5n1.4), 102(XREF 2S), 102(XREF 2n1.4), 103(XREF 2S), 103(XREF 2n1.4)
    112(XREF 1S), 112(XREF 1n1.4), 112(XREF 1K), 112(XREF 1n2.4), 113(XREF 1S), 113(XREF 1n1.4), 113(XREF 1K), 113(XREF 1n2.4), 114(XREF 1S), 114(XREF 1n1.4)
    114(XREF 1K), 114(XREF 1n2.4), 151(XREF 1S), 151(XREF 1n1.4), 151(XREF 3S), 151(XREF 3n1.4), 152(XREF 1S), 152(XREF 1n1.4), 161(XREF 1n1.3), 161(XREF 1n1.4)
    201(XREF 1S), 201(XREF 1n1.4), 202(XREF 1K), 202(XREF 1n2.4), 210(XREF 1n1.3), 210(XREF 1n1.4), 210(XREF 1K), 210(XREF 1n2.4)
    DUZ .01(XREF 4S), 3(XREF 2S), 6(XREF 2S), 9(XREF 2S), 12(XREF 2S), 12(XREF 3S), 14(XREF 3S), 16(XREF 2S)
    >> I(0 .07(XREF 1n1.3), .07(XREF 1n2.3), .07(XREF 1n69.2), .07(XREF 1n79.2), 101(XREF 5n1.1), 102(XREF 2n1.1), 103(XREF 2n1.1)
    IB00 151+1!, 152+1!
    IBDD 101+1!, 102+1!, 103+1!
    IBDD1 .08+1!
    >> IBIMA 105OF9.3+1*
    >> IBITY 105OF9.3+1*
    IBN .03(XREF 2S), .03(XREF 2K)
    >> IBNWBL .03+1
    IBRATY 156+1!, 156OF9.3+1*
    U ID.02+1, ID.03+1, ID.05+1, ID.07+1, .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5n1.1)
    .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S), .01(XREF 7n1.3), .01(XREF 7n1.4), .07(XREF 1S), .07(XREF 1n1.3), .07(XREF 1n1.4), .07(XREF 1K)
    .07(XREF 1n2.3), .07(XREF 1n2.4), .07(XREF 1n69.2), .07(XREF 1n79.2), .07(XREF 2S), .07(XREF 2n1.1), .07(XREF 2n1.4), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 1n1.4)
    .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.4), .08(XREF 4S), .08(XREF 4n1.3), .08(XREF 4n1.4), .08(XREF 4K), .08(XREF 4n2.4)
    .08(XREF 6S), .08(XREF 6n1.4), .11(XREF 1S), .11(XREF 1n1.4), .13(XREF 1S), .13(XREF 1n1.4), .13(XREF 2S), .13(XREF 2K), .19(XREF 1S), .19(XREF 1n1.3)
    .19(XREF 1n1.4), .19(XREF 1n69.2), 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 2S), 3(XREF 2n1.3), 3(XREF 2n1.4), 3(XREF 3S), 3(XREF 3n1.3), 3(XREF 3n1.4)
    6(XREF 1S), 6(XREF 1n1.4), 6(XREF 2S), 6(XREF 2n1.3), 6(XREF 2n1.4), 6(XREF 3S), 6(XREF 3n1.4), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 2S)
    9(XREF 2n1.3), 9(XREF 2n1.4), 9(XREF 3S), 9(XREF 3n1.4), 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 2S), 12(XREF 2n1.3), 12(XREF 2n1.4), 12(XREF 3S)
    12(XREF 3n1.3), 12(XREF 3n1.4), 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 3S), 14(XREF 3n1.4), 16(XREF 1S), 16(XREF 1n1.4), 16(XREF 2S), 16(XREF 2n1.4)
    17(XREF 1S), 17(XREF 1n1.4), 64(XREF 1S), 64(XREF 1n1.4), 64(XREF 1K), 64(XREF 1n2.4), 101(XREF 3S), 101(XREF 3K), 101(XREF 4S), 101(XREF 4n1.4)
    101(XREF 5S), 101(XREF 5n1.1), 101(XREF 5n1.4), 102(XREF 2S), 102(XREF 2n1.1), 102(XREF 2n1.4), 103(XREF 2S), 103(XREF 2n1.1), 103(XREF 2n1.4), 112(XREF 1S)
    112(XREF 1n1.1), 112(XREF 1n1.4), 112(XREF 1K), 112(XREF 1n2.4), 113(XREF 1S), 113(XREF 1n1.1), 113(XREF 1n1.4), 113(XREF 1K), 113(XREF 1n2.4), 114(XREF 1S)
    114(XREF 1n1.1), 114(XREF 1n1.4), 114(XREF 1K), 114(XREF 1n2.4), 151(XREF 1S), 151(XREF 1n1.4), 151(XREF 3S), 151(XREF 3n1.4), 152(XREF 1S), 152(XREF 1n1.4)
    161(XREF 1S), 161(XREF 1n1.3), 161(XREF 1n1.4), 201(XREF 1S), 201(XREF 1n1.4), 202(XREF 1K), 202(XREF 1n2.4), 210(XREF 1S), 210(XREF 1n1.1), 210(XREF 1n1.3)
    210(XREF 1n1.4), 210(XREF 1K), 210(XREF 1n2.4)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5n1.1), .01(XREF 5n1.4)
    .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S), .01(XREF 7n1.3), .01(XREF 7n1.4), .02(XREF 1S), .02(XREF 1K), .03+1*!, .03(XREF 1S), .03(XREF 1K)
    .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .05(XREF 1S), .05(XREF 1K), .07+1*!, .07(XREF 1S), .07(XREF 1n1.3), .07(XREF 1n1.4)
    .07(XREF 1K), .07(XREF 1n2.3), .07(XREF 1n2.4), .07(XREF 2S), .07(XREF 2n1.1), .07(XREF 2n1.4), .07(XREF 3S), .07(XREF 3K), .08+1*!, .08(XREF 1S)
    .08(XREF 1n1.3), .08(XREF 1n1.4), .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.4), .08(XREF 4S), .08(XREF 4n1.3), .08(XREF 4n1.4)
    .08(XREF 4K), .08(XREF 4n2.4), .08(XREF 5S), .08(XREF 5K), .08(XREF 6S), .08(XREF 6n1.4), .11(XREF 1S), .11(XREF 1n1.3), .11(XREF 1n1.4), .13(XREF 1S)
    .13(XREF 1n1.4), .13(XREF 2S), .13(XREF 3S), .13(XREF 3K), .14+1*!, .15+1*!, .16+1*!, .17(XREF 1S), .17(XREF 1K), .18+1
    .19(XREF 1S), .19(XREF 1n1.3), .19(XREF 1n1.4), .19(XREF 1n69.2), 1+1*!, 1(XREF 1S), 1(XREF 1K), 3+1, 3(XREF 1S), 3(XREF 1n1.4)
    3(XREF 2S), 3(XREF 2n1.3), 3(XREF 2n1.4), 3(XREF 3S), 3(XREF 3n1.3), 3(XREF 3n1.4), 4+1*!, 6+1, 6(XREF 1S), 6(XREF 1n1.4)
    6(XREF 2S), 6(XREF 2n1.3), 6(XREF 2n1.4), 6(XREF 3S), 6(XREF 3n1.4), 7+1*!, 9+1, 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 2S)
    9(XREF 2n1.3), 9(XREF 2n1.4), 9(XREF 3S), 9(XREF 3n1.4), 10+1*!, 12+1*!, 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 2S), 12(XREF 2n1.3)
    12(XREF 2n1.4), 12(XREF 3S), 12(XREF 3n1.3), 12(XREF 3n1.4), 12(XREF 4S), 12(XREF 4K), 14+1*!, 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 3S)
    14(XREF 3n1.4), 16+1, 16(XREF 1S), 16(XREF 1n1.4), 16(XREF 2S), 16(XREF 2n1.4), 17+1*!, 17(XREF 1S), 17(XREF 1n1.4), 19+1!
    , 51+1*!, 52+1*!, 53+1*!, 57+1*!, 58+1*!, 59+1*!, 60+1!, 61+1*, 62+1*, 63+1*
    64(XREF 1S), 64(XREF 1n1.4), 64(XREF 1K), 64(XREF 1n2.4), 101+1*!, 101(XREF 3S), 101(XREF 3K), 101(XREF 4S), 101(XREF 4n1.4), 101(XREF 5S)
    101(XREF 5n1.1), 101(XREF 5n1.4), 102+1*!, 102(XREF 2S), 102(XREF 2n1.1), 102(XREF 2n1.4), 103+1*!, 103(XREF 2S), 103(XREF 2n1.1), 103(XREF 2n1.4)
    , 104+1!, 105+1!, 106+1!, 107+1!, 109+1!, 110+1!, 112+1!, 112(XREF 1S), 112(XREF 1n1.1), 112(XREF 1n1.4)
    112(XREF 1K), 112(XREF 1n2.4), 113+1!, 113(XREF 1S), 113(XREF 1n1.1), 113(XREF 1n1.4), 113(XREF 1K), 113(XREF 1n2.4), 114+1!, 114(XREF 1S)
    114(XREF 1n1.1), 114(XREF 1n1.4), 114(XREF 1K), 114(XREF 1n2.4), 121+1!, 122+1!, 123+1!, 124+1!, 151+1*!, 151(XREF 1S)
    151(XREF 1n1.4), 151(XREF 3S), 151(XREF 3n1.1), 151(XREF 3n1.4), 152+1*!, 152(XREF 1S), 152(XREF 1n1.4), 153+1, 155+1, 156+1
    , 156OF9.3+1!, 157+1, 160+1!, 161+1*!, 161(XREF 1S), 161(XREF 1n1.3), 161(XREF 1n1.4), 162+1*!, 163+1!, 164+1!
    , 165+1!, 166+1*!, 167+1*!, 201(XREF 1S), 201(XREF 1n1.4), 202+1*!, 202(XREF 1K), 202(XREF 1n2.4), 203+1!, 204+1!
    , 205+1!, 206+1!, 207+1!, 208+1!, 209+1!, 210+1*!, 210(XREF 1S), 210(XREF 1n1.1), 210(XREF 1n1.3), 210(XREF 1n1.4)
    210(XREF 1K), 210(XREF 1n2.4), 211+1!, 212+1*!, 213+1!, 214+1!, 216+1!, 217+1!, 301+1!, 302+1!
    , 303+1!, 400+1!, 450+1!, 451+1!, 452+1!, 453+1!, 454+1!, 455+1!, 456+1!, 457+1!
    , 458+1!
    Y ID.02+1*, ID.07+1*, .01(XREF 3S), .01(XREF 4S), .01(XREF 5S), .01(XREF 6S), .01(XREF 7S), .03+1, .07+1, .07(XREF 1S)
    .07(XREF 1K), .07(XREF 2S), .08+1, .08(XREF 1S), .08(XREF 2S), .08(XREF 3S), .08(XREF 4S), .08(XREF 4K), .08(XREF 6S), .11(XREF 1S)
    .13(XREF 1S), .14+1, .15+1, .16+1, .18OT+1*, .19(XREF 1S), .19(XREF 1n1.3), 1+1, 3OT+1*, 3(XREF 1S)
    3(XREF 2S), 3(XREF 3S), 3(XREF 3n1.3), 4+1, 6OT+1*, 6(XREF 1S), 6(XREF 2S), 6(XREF 3S), 7+1, 9OT+1*
    9(XREF 1S), 9(XREF 2S), 9(XREF 3S), 10+1, 12+1, 12(XREF 1S), 12(XREF 2S), 12(XREF 3S), 14+1, 14(XREF 1S)
    14(XREF 3S), 16OT+1*, 16(XREF 1S), 16(XREF 2S), 17+1, 17(XREF 1S), 51+1, 52+1, 53+1, 57+1
    , 58+1, 59+1, 61+1, 62+1, 63+1, 64(XREF 1S), 64(XREF 1K), 101+1, 101(XREF 4S), 101(XREF 5S)
    , 102+1, 102(XREF 2S), 103+1, 103(XREF 2S), 112OT+1*, 112(XREF 1S), 112(XREF 1K), 113OT+1*, 113(XREF 1S), 113(XREF 1K)
    , 114OT+1*, 114(XREF 1S), 114(XREF 1K), 151+1, 151(XREF 1S), 151(XREF 3S), 152+1, 152(XREF 1S), 153OT+1*, 155OT+1*
    , 156OT+1*, 157OT+1*, 161+1, 161(XREF 1S), 162+1, 166+1, 167+1, 201(XREF 1S), 202(XREF 1K), 210(XREF 1S)
    210(XREF 1n1.1), 210(XREF 1K)
    Y(0 .01(XREF 3S), .01(XREF 5S), .01(XREF 7n1.3), .07(XREF 1n1.3), .07(XREF 1n2.3), .07(XREF 1n69.2), .08(XREF 1n1.3), .08(XREF 2n1.3), .08(XREF 4n1.3), .08(XREF 6S)
    .11(XREF 1n1.3), .18OT+1*, .19(XREF 1n1.3), .19(XREF 1n69.2), 3OT+1*, 3(XREF 1S), 3(XREF 2n1.3), 3(XREF 3n1.3), 6OT+1*, 6(XREF 1S)
    6(XREF 2n1.3), 6(XREF 3S), 9OT+1*, 9(XREF 1S), 9(XREF 2n1.3), 9(XREF 3S), 12(XREF 1S), 12(XREF 2n1.3), 12(XREF 3n1.3), 16OT+1*
    17(XREF 1S), 64(XREF 1S), 112OT+1*, 113OT+1*, 114OT+1*, 151(XREF 1S), 152(XREF 1S), 153OT+1*, 155OT+1*, 156OT+1*
    , 157OT+1*, 161(XREF 1n1.3), 202(XREF 1K), 210(XREF 1n1.3)
    Y(1 .01(XREF 3S), .01(XREF 4S), .01(XREF 5S), .01(XREF 6S), .01(XREF 7S), .01(XREF 7n1.3), .07(XREF 1S), .07(XREF 1K), .07(XREF 1n79.2), .07(XREF 2S)
    .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 3S), .08(XREF 4S), .08(XREF 4n1.3), .08(XREF 4K), .08(XREF 6S), .11(XREF 1S)
    .13(XREF 1S), .19(XREF 1S), .19(XREF 1n1.3), 3(XREF 1S), 3(XREF 2S), 3(XREF 2n1.3), 3(XREF 3S), 3(XREF 3n1.3), 6(XREF 1S), 6(XREF 2S)
    6(XREF 2n1.3), 6(XREF 3S), 9(XREF 1S), 9(XREF 2S), 9(XREF 2n1.3), 9(XREF 3S), 12(XREF 1S), 12(XREF 2S), 12(XREF 2n1.3), 12(XREF 3S)
    12(XREF 3n1.3), 14(XREF 1S), 14(XREF 3S), 16(XREF 1S), 16(XREF 2S), 17(XREF 1S), 64(XREF 1S), 64(XREF 1K), 101(XREF 4S), 101(XREF 5S)
    102(XREF 2S), 103(XREF 2S), 112(XREF 1S), 112(XREF 1K), 113(XREF 1S), 113(XREF 1K), 114(XREF 1S), 114(XREF 1K), 151(XREF 1S), 151(XREF 3S)
    152(XREF 1S), 161(XREF 1S), 161(XREF 1n1.3), 201(XREF 1S), 202(XREF 1K), 210(XREF 1S), 210(XREF 1n1.1), 210(XREF 1n1.3), 210(XREF 1K)
    Y(101 .07(XREF 1n1.3), .07(XREF 1n2.3), .07(XREF 1n69.2), 101(XREF 5n1.1), 102(XREF 2n1.1), 103(XREF 2n1.1)
    Y(102 .07(XREF 1n1.3), .07(XREF 1n2.3), .07(XREF 1n69.2), .07(XREF 1n79.2)
    Y(2 .08(XREF 1n1.3), .08(XREF 2n1.3), .19(XREF 1n1.3), .19(XREF 1n69.2), 210(XREF 1n1.1)
    Y(3 .19(XREF 1n1.3), .19(XREF 1n69.2)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All