IBCVA.m

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 ---IBCVA   1104     printed  Apr 09, 2024@21:24:33                                                                                                                                                                                                       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