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

IBCVA.m

Go to the documentation of this file. 
IBCVA	;ALB/MJB - SET MCCR VARIABLES  ;09 JUN 15:40

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;;Per VHA Directive 10-93-142, this routine should not be modified.

	;

	;MAP TO DGCRVA

	;

EN	S IBKILL=1 D Q5 K IBKILL

EN1	D:$D(IBIFN) ALL^IBCVA0 Q

Q5	K IBBS,IBCH,IBLS,IBOX,IBPTF,IBRATY,IBREVC,IBREV,IBTOT Q:'$D(IBKILL)

Q4	K C,D,IBC,IBCC,IBCCN,IBCPT,IBDI,IBDIN,IBHC,IBICD,IBIP,IBNO,IBO,IBOC,IBOCD,IBOCN,IBOCD2,IBPR,IBPRD,IBPRDT,IBPRN Q:'$D(IBKILL)

Q3	K IB3X,IBDD,IBDD1,IBIMA,IBIN,IBINDT,IBINT,IBIR,IBIRN,IBISEX,IBIT,IBITY,IBIUTL,IBMAIL,IBOUTP,IBPIN,IBPST,IBXX,IBXXX,IBIDS Q:'$D(IBKILL)

Q2	K IBEC,IBEMPD,IBSEST Q:'$D(IBKILL)

Q1	K IBA,IBAD,IBADD,IBADD1,IBDR,IBI1,IBICD,IBHC,IBCC,IBCCN,IBID,IBID0,IBO,IBOCD,IBOC,IBPTF,IBSITE,IBMAR,IBT1,IBTADD,IBTST,PRCASV,VAEL Q:'$D(IBKILL)

Q0	K IB0,IB99,IBADD,IBBNO,IBBT,IBDA,IBDPT,IBD,IBDT,IBG,IBI,IBL,IBM,IBOA,IBOP,IBPS,IBQ,IBSCR,IBSR,IBSR1,IBSITE,IBST,IBT,IBX,IBZ,IBX,IBCUBFT

	K %,D0,D1,DA,DIC,DIE,DIV,DR,I,J,M,POP,VADM,VAEL,X,Y,Z,IBKILL Q:'$D(IBKILL)

Q	K DFN,IBIFN,DIC Q

	;

123	D Q1,Q2,Q3

	Q

	;

1234	D Q1,Q2,Q3,Q4

	Q

	;

	;IBCVA