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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | 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.

Directly Accessed By Routines, Total: 8

Package	Total	Routines
Integrated Billing	8	IBCCC3 IBCF4 ^IBA(362.4 IBCF IBCSC5 IBCSC5A IBCSC5C IBCU3

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Integrated Billing	3	IBCCC3 IBCD3 IBCSC5A

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Integrated Billing	1	BILL/CLAIMS(#399)[.02]
Outpatient Pharmacy	1	PRESCRIPTION(#52)[.05]
Pharmacy Data Management	1	DRUG(#50)[.04]

Fields, Total: 8

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)<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 10, 1994` HELP-PROMPT: `Enter a bill number.` DESCRIPTION: The bill this rx refill is associated with. SCREEN: `S DIC("S")="I $P(^(0),U,13)<3"` EXPLANATION: `Only open bills may be modified.` 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)
.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>90)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 10, 1994` HELP-PROMPT: `Type a Number between 1 and 90, 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: `JAN 12, 1994` 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.

ICR, Total: 2

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #3825	ACCOUNTS RECEIVABLE	BILL NUMBER (.02). Access: Direct Global Read & w/Fileman
ICR #6033	ACCOUNTS RECEIVABLE	RX # (.01). Access: Direct Global Read & w/Fileman BILL NUMBER (.02). Access: Direct Global Read & w/Fileman DRUG (.04). Access: Direct Global Read & w/Fileman DATE (.03). Access: Direct Global Read & w/Fileman RECORD (.05). Access: Direct Global Read & w/Fileman DAYS SUPPLY (.06). Access: Direct Global Read & w/Fileman QTY (.07). Access: Direct Global Read & w/Fileman NDC # (.08). Access: Direct Global Read & w/Fileman FORMAT OF NDC# (.09). Access: Direct Global Read & w/Fileman FILL NUMBER (.1). Access: Direct Global Read & w/Fileman ORDER DATE (.11). Access: Direct Global Read & w/Fileman

External References

Name	Field # of Occurrence
^%DT	.03+1
^DIC	.02+1
^DICR	.01(XREF 3n2.4)
Y^DIQ	ID.02+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 3n2.4)
^DD(362.4	.01(XREF 3K)
^DD(399	ID.02+1
^DGCR(399 - [#399]	ID.02+1
^IBA(362.4 - [#362.4]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 3n2.4), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 3n2.4)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1*
%I	ID.02+1*!
>> C	ID.02+1*
>> D0	.01(XREF 3K)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
DIC	ID.02+1, .02+1!*
DIC("S"	.02+1, .02SCR+1
>> DIE	.02+1
>> DIG	.01(XREF 3n2.4)
>> DIH	.01(XREF 3n2.4)
>> DIU	.01(XREF 3K)
DIV	.01(XREF 3K), .01(XREF 3n2.4)
DIV(0	.01(XREF 3K), .01(XREF 3n2.4)
U	ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 3n2.4), .02(XREF 1S), .02(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 3n2.4), .02+1!, .02(XREF 1S), .02(XREF 1K) , .02(XREF 2S), .02(XREF 2K), .03+1!, .06+1!, .07+1!, .08+1!
Y	ID.02+1*, .01(XREF 3K), .02+1, .03+1
Y(1	.01(XREF 3K)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All