IBY254PO ;ALB/TMK - IB*2*254 POST-INSTALL ;21-NOV-2003
 ;;2.0;INTEGRATED BILLING;**254**;21-MAR-94
 ;
EN N X,Y,DIC,DIE,DR,DA,DO,DD,DINUM,IBDT
 I '$D(^IBE(351.71,"3031000",0)) D BMES^XPDUTL("NO DIAGNOSTIC MEASURE REPORTS FOUND FOR OCT 2003.") G END
 I $P($G(^IBE(351.71,3031000,0)),U,2)=3 D BMES^XPDUTL("DIAGNOSTIC MEASURES DATA ALREADY SENT FOR OCT 2003.") G END
 D BMES^XPDUTL("Setting status of UNBILLED REPORT for OCT 2003 to complete.")
 S DA(1)="3031000",DA=37
 I '$D(^IBE(351.71,DA(1),1,37,0)) D
 . K DO,DD
 . S DINUM=37,DIC="^IBE(351.71,"_DA(1)_",1,",X=37,DIC(0)="L" D FILE^DICN K DO,DD,DIC
 S DIE="^IBE(351.71,"_DA(1)_",1,",DR=".02////3" D ^DIE
 D BMES^XPDUTL("Step complete.")
 D BMES^XPDUTL("Transmitting diagnostic measure reports for OCT 2003.")
 S IBDT=3031000 I '$$CHK^IBJDE(IBDT) D COMP^IBJDE
 D BMES^XPDUTL("Step complete.")
END D BMES^XPDUTL("Post-install complete.")
 Q
 ;