STANDARD DATA DICTIONARY #362.4 -- IB BILL/CLAIMS PRESCRIPTION REFILL FILE 9/29/25 PAGE 1
STORED IN ^IBA(362.4, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all prescription refills for bills in the Bill/Claims file.
Per VHA Directive 10-93-142, this file definition should not be modified.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: BILL NUMBER (#.02)[R], DATE (#.03)
CROSS
REFERENCED BY: RX #(AIFN), BILL NUMBER(AIFN1), RX #(B), BILL NUMBER(C)
INDEXED BY: BILL NUMBER (ABP)
362.4,.01 RX # 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<1) X
LAST EDITED: DEC 29, 1993
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
The prescription number for the refill.
TECHNICAL DESCR: A free text pointer (may correspond to 52,.01). Because prescriptions may be deleted from file 52
or prescriptions added that may not be from outpatient pharmacy this may not be defined in the
Prescription file (52).
CROSS-REFERENCE: 362.4^B
1)= S ^IBA(362.4,"B",$E(X,1,30),DA)=""
2)= K ^IBA(362.4,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 362.4^AIFN^MUMPS
1)= S:+$P(^IBA(362.4,+DA,0),U,2) ^IBA(362.4,"AIFN"_+$P(^(0),U,2),X,+DA)=""
2)= K:+$P(^IBA(362.4,+DA,0),U,2) ^IBA(362.4,"AIFN"_+$P(^(0),U,2),X,+DA)
Special x-ref set up specifically to provide a regular x-ref of a bill and all it's rx refills for
easy look-up.
CROSS-REFERENCE: ^^TRIGGER^362.4^.05
1)= Q
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S
DIU=X K Y S X="" X ^DD(362.4,.01,1,3,2.4)
2.4)= S DIH=$S($D(^IBA(362.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=362.4,DIG=.05 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE VALUE)= @
FIELD)= RECORD
Deletes the Prescription Record pointer if the Prescription Number is modified.
362.4,.02 BILL NUMBER 0;2 POINTER TO BILL/CLAIMS FILE (#399) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,13)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 22, 2008
HELP-PROMPT: Enter a bill number.
DESCRIPTION:
The bill this rx refill is associated with.
SCREEN: S DIC("S")="I $P(^(0),U,13)=1"
EXPLANATION: Only open bills may be modified.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 362.4^AIFN1^MUMPS
1)= S ^IBA(362.4,"AIFN"_X,$P(^IBA(362.4,+DA,0),U,1),DA)=""
2)= K ^IBA(362.4,"AIFN"_X,$P(^IBA(362.4,+DA,0),U,1),DA)
Special x-ref set up specifically to provide a regular x-ref of a bill and all it's rx refills for
easy look-up.
CROSS-REFERENCE: 362.4^C
1)= S ^IBA(362.4,"C",$E(X,1,30),DA)=""
2)= K ^IBA(362.4,"C",$E(X,1,30),DA)
FIELD INDEX: ABP (#821) MUMPS IR ACTION
Short Descr: Update default taxonomy codes and billing provider IDs
Description: When a claim is entered into this file it is considered a pharmacy claim and the billing provider
for this claim becomes the dispensing pharmacy institution. When a claim is removed from this
file, it ceases to be a pharmacy claim and the billing provider will change with this action.
This x-ref will update the billing provider and service facility default taxonomy codes based on a
potential new billing provider and service facility. It will also update the billing provider
secondary IDs and Qualifiers for every payer on the claim.
Please note that this x-ref will potentially update the values of 8 fields in file 399:
399,243 - SERVICE FACILITY TAXONOMY 399,252 - BILLING PROVIDER TAXONOMY 399,122 - PRIMARY PROVIDER
# 399,123 - SECONDARY PROVIDER # 399,124 - TERTIARY PROVIDER # 399,128 - PRIMARY ID QUALIFIER
399,129 - SECONDARY ID QUALIFIER 399,130 - TERTIARY ID QUALIFIER
Set Logic: D TAX^IBCEF79(X(1))
Kill Logic: D TAX^IBCEF79(X(1))
X(1): BILL NUMBER (362.4,.02) (forwards)
362.4,.03 DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 08, 1994
HELP-PROMPT: Enter the refill date.
DESCRIPTION:
The date of the refill that is being billed.
362.4,.04 DRUG 0;4 POINTER TO DRUG FILE (#50) (Required)
LAST EDITED: DEC 23, 1993
HELP-PROMPT: Enter the drug for this prescription.
DESCRIPTION:
The drug prescribed.
362.4,.05 RECORD 0;5 POINTER TO PRESCRIPTION FILE (#52)
LAST EDITED: DEC 29, 1993
HELP-PROMPT: This is the Prescription record for this refill.
DESCRIPTION:
Enter the Prescription record for this refill.
TECHNICAL DESCR: This should be automatically set by the system if a Prescription (52) refill is chosen. This is
not required because not all items may be outpatient prescriptions, such as fee basis charges.
Also, note that the Prescription (52) is not a permanent file.
NOTES: TRIGGERED by the RX # field of the IB BILL/CLAIMS PRESCRIPTION REFILL File
362.4,.06 DAYS SUPPLY 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>365)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: MAR 18, 2015
HELP-PROMPT: Type a number between 1 and 365, 0 decimal digits.
DESCRIPTION:
This should be the number of days supplied of the drug dispensed in this refill.
TECHNICAL DESCR:
Passed from (52,8)
362.4,.07 QTY 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 10, 1994
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: This should be the quantity (# of tablets, pills, items, etc.) of the drug dispensed in this
refill.
TECHNICAL DESCR:
Loaded from (52,52,1)
362.4,.08 NDC # 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: FEB 14, 2001
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
Enter the NDC number for this drug, if it should be printed on the bill.
TECHNICAL DESCR:
Not loaded from pharmacy.
CROSS-REFERENCE: ^^TRIGGER^362.4^.09
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S
DIU=X K Y S X=DIV S X=$$NDCNUM^IBCSC5A(X) S DIH=$G(^IBA(362.4,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,D
IH=362.4,DIG=.09 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S
DIU=X K Y S X="" S DIH=$G(^IBA(362.4,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=362.4,DIG=.09 D ^DICR
CREATE VALUE)= S X=$$NDCNUM^IBCSC5A(X)
DELETE VALUE)= @
FIELD)= FORMAT OF NDC#
362.4,.09 FORMAT OF NDC# 0;9 SET
'1' FOR 4-4-2 FORMAT;
'2' FOR 5-3-2 FORMAT;
'3' FOR 5-4-1 FORMAT;
'4' FOR 5-4-2 FORMAT;
LAST EDITED: AUG 08, 2001
HELP-PROMPT: Enter the NATIONAL DRUG CODE format for the NDC# of this prescription.
DESCRIPTION:
This is the NATIONAL DRUG CODE format in which the NDC# for the drug has been entered.
SCREEN: S DIC("S")="N Z S Z=$P($G(^IBA(362.4,+$G(DA),0)),U,8) I $S(Z="""":1,X'=4:$L($TR(Z,""-""))=10,1:$L($
TR(Z,""-""))=11)"
EXPLANATION: If format 1,2,3 - length of # (minus dashes) must be 10. For format code, it must be 11.
NOTES: TRIGGERED by the NDC # field of the IB BILL/CLAIMS PRESCRIPTION REFILL File
362.4,.1 FILL NUMBER 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1.N) X
LAST EDITED: AUG 27, 2008
HELP-PROMPT: Type a number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
This is the Fill Number for the prescription. Where 0 = original fill and 1 = 1st refill, etc.
362.4,.11 ORDER DATE 0;11 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 02, 2010
HELP-PROMPT: Enter the date the Rx was ordered.
DESCRIPTION: This field will be stuffed with the ISSUE DATE (#1) field of the Rx from the PRESCRIPTION (#52)
file, if a corresponding entry exists in that file. Otherwise, it will be blank.
FILES POINTED TO FIELDS
BILL/CLAIMS (#399) BILL NUMBER (#.02)
DRUG (#50) DRUG (#.04)
PRESCRIPTION (#52) RECORD (#.05)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):