IBYPPH ;ALB/ARH - IB*2*169 POST INIT: REASONABLE CHARGES V1.3 ; 01/06/02
;;2.0;INTEGRATED BILLING;**169**;21-MAR-94
;
Q
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
Q
;
;
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBYPPH 969 printed Dec 13, 2024@02:36:28 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
