Routine: IBYPPH

IBYPPH ;ALB/ARH - IB*2*169 POST INIT: REASONABLE CHARGES V1.3 ; 01/06/02

 ;;2.0;INTEGRATED BILLING;**169**;21-MAR-94

POST ;

 N IBA

 S IBA(1)="",IBA(2)="    IB*2*169 Post-Install .....",IBA(3)="" D MES^XPDUTL(.IBA) K IBA

 D RVD^IBYPPH2 ; delete existing Revenue Code - CPT Links (#363.33)

 D RVL^IBYPPH2 ; add new/updated Revenue Code - CPT Links (#363.33)

 D CHGINA^IBYPPH1("") ; inactivate all RC charges in #363.2

 D CSEMPTY ; delete Charge Sets with no charges assigned

 S IBA(1)="",IBA(2)="    IB*2*169 Post-Install Complete",IBA(3)="" D MES^XPDUTL(.IBA) K IBA

CSEMPTY ; delete Charges Sets with no Charges assigned

 N IBA,IBCNT S IBCNT=0

 S IBA(1)="",IBA(2)="    >> Removing Charges Sets that have no Charges Assigned..." D MES^XPDUTL(.IBA) K IBA

 S IBCNT=$$CSEMPTY^IBCRED() ; delete Charge Sets that have no charges

 S IBA(1)="       Done.  "_IBCNT_" Charges Sets Removed." D MES^XPDUTL(.IBA) K IBA

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBYPPH   969     printed  Mar 13, 2025@21:41:41                                                                                                                                                                                                       Page 2

IBYPPH    ;ALB/ARH - IB*2*169 POST INIT: REASONABLE CHARGES V1.3 ; 01/06/02

 +1       ;;2.0;INTEGRATED BILLING;**169**;21-MAR-94

 +2       ;

 +3        QUIT

POST      ;

 +1        NEW IBA

 +2        SET IBA(1)=""

           SET IBA(2)="    IB*2*169 Post-Install ....."

           SET IBA(3)=""

           DO MES^XPDUTL(.IBA)

           KILL IBA

 +3       ;

 +4       ; delete existing Revenue Code - CPT Links (#363.33)

           DO RVD^IBYPPH2

 +5       ; add new/updated Revenue Code - CPT Links (#363.33)

           DO RVL^IBYPPH2

 +6       ;

 +7       ; inactivate all RC charges in #363.2

           DO CHGINA^IBYPPH1("")

 +8       ;

 +9       ; delete Charge Sets with no charges assigned

           DO CSEMPTY

 +10      ;

 +11       SET IBA(1)=""

           SET IBA(2)="    IB*2*169 Post-Install Complete"

           SET IBA(3)=""

           DO MES^XPDUTL(.IBA)

           KILL IBA

 +12       QUIT

 +13      ;

 +14      ;

CSEMPTY   ; delete Charges Sets with no Charges assigned

 +1        NEW IBA,IBCNT

           SET IBCNT=0

 +2        SET IBA(1)=""

           SET IBA(2)="    >> Removing Charges Sets that have no Charges Assigned..."

           DO MES^XPDUTL(.IBA)

           KILL IBA

 +3       ;

 +4       ; delete Charge Sets that have no charges

           SET IBCNT=$$CSEMPTY^IBCRED()

 +5       ;

 +6        SET IBA(1)="       Done.  "_IBCNT_" Charges Sets Removed."

           DO MES^XPDUTL(.IBA)

           KILL IBA

 +7        QUIT

IBYPPH.m