Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^IBA(362.4

Package: Integrated Billing

Global: ^IBA(362.4

Information

FileMan FileNo	FileMan Filename	Package
362.4	IB BILL/CLAIMS PRESCRIPTION REFILL	Integrated Billing

Description

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.

Accessed By FileMan Db Calls, Total: 7

Pointer To FileMan Files, Total: 3

Fields, Total: 11

Field #	Name	Loc	Type	Details
.01	RX #	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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 ^DICR:$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.`
.02	BILL NUMBER	0;2	POINTER TO BILL/CLAIMS FILE (#399)	**********************REQUIRED FIELD********************** BILL/CLAIMS(#399) 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)`
.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.`
.04	DRUG	0;4	POINTER TO DRUG FILE (#50)	**********************REQUIRED FIELD********************** DRUG(#50) LAST EDITED: `DEC 23, 1993` HELP-PROMPT: `Enter the drug for this prescription.` DESCRIPTION: `The drug prescribed.`
.05	RECORD	0;5	POINTER TO PRESCRIPTION FILE (#52)	PRESCRIPTION(#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`
.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)`
.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)`
.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,DIH=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#`
.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`
.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.`
.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.`

ICR, Total: 2

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All