- IBCVA ;ALB/MJB - SET MCCR VARIABLES ;09 JUN 15:40
- ;;2.0;INTEGRATED BILLING;**109,51**;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,IBBTP1,IBBTP2,IBBTP3 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,IBBT1,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 Q:'$D(IBKILL)
- Q K DFN,IBIFN,DIC Q
- ;
- 123 D Q1,Q2,Q3
- Q
- ;
- 1234 D Q1,Q2,Q3,Q4
- Q
- ;
- ;IBCVA
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCVA 1104 printed Jan 18, 2025@03:22:15 Page 2
- IBCVA ;ALB/MJB - SET MCCR VARIABLES ;09 JUN 15:40
- +1 ;;2.0;INTEGRATED BILLING;**109,51**;21-MAR-94
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- +4 ;MAP TO DGCRVA
- +5 ;
- EN SET IBKILL=1
- DO Q5
- KILL IBKILL
- EN1 if $DATA(IBIFN)
- DO ALL^IBCVA0
- QUIT
- Q5 KILL IBBS,IBCH,IBLS,IBOX,IBPTF,IBRATY,IBREVC,IBREV,IBTOT,IBBTP1,IBBTP2,IBBTP3
- if '$DATA(IBKILL)
- QUIT
- Q4 KILL C,D,IBC,IBCC,IBCCN,IBCPT,IBDI,IBDIN,IBHC,IBICD,IBIP,IBNO,IBO,IBOC,IBOCD,IBOCN,IBOCD2,IBPR,IBPRD,IBPRDT,IBPRN
- if '$DATA(IBKILL)
- QUIT
- Q3 KILL IB3X,IBDD,IBDD1,IBIMA,IBIN,IBINDT,IBINT,IBIR,IBIRN,IBISEX,IBIT,IBITY,IBIUTL,IBMAIL,IBOUTP,IBPIN,IBPST,IBXX,IBXXX,IBIDS
- if '$DATA(IBKILL)
- QUIT
- Q2 KILL IBEC,IBEMPD,IBSEST
- if '$DATA(IBKILL)
- QUIT
- Q1 KILL IBA,IBAD,IBADD,IBADD1,IBDR,IBI1,IBICD,IBHC,IBCC,IBCCN,IBID,IBID0,IBO,IBOCD,IBOC,IBPTF,IBSITE,IBMAR,IBT1,IBTADD,IBTST,PRCASV,VAEL
- if '$DATA(IBKILL)
- QUIT
- Q0 KILL IB0,IB99,IBADD,IBBNO,IBBT,IBBT1,IBDA,IBDPT,IBD,IBDT,IBG,IBI,IBL,IBM,IBOA,IBOP,IBPS,IBQ,IBSCR,IBSR,IBSR1,IBSITE,IBST,IBT,IBX,IBZ,IBX,IBCUBFT
- +1 KILL %,D0,D1,DA,DIC,DIE,DIV,DR,I,J,M,POP,VADM,VAEL,X,Y,Z
- if '$DATA(IBKILL)
- QUIT
- Q KILL DFN,IBIFN,DIC
- QUIT
- +1 ;
- 123 DO Q1
- DO Q2
- DO Q3
- +1 QUIT
- +2 ;
- 1234 DO Q1
- DO Q2
- DO Q3
- DO Q4
- +1 QUIT
- +2 ;
- +3 ;IBCVA