before any updates: ALL CASE RATE CODES AMOUNTS THAT WERE UPDATED TO LATEST MANUALLY MUST BE REVERTED TO OLD AMOUNTS AND NO PROCESSING OF PHILHEALTH AS OF THE MOMENT WHEN UPDATING STARTS
BACKUP AND UPDATE OF SIR PK THEN PROCEED TO PHILHEALTH UPDATES :
run step1. for backup tables 
run step2. for generation of update scripts

open scriptph.txt in OUTPUT folder of ICD SYNC copy then run in sql (update scripts)
open script.txt  in OUTPUT folder of ICD SYNC copy then run in sql	(insert scripts)

then in CREATE NEW PACKAGE FOR ICD BUTTON PART: Copy each code indicated in the text box below the button then paste it in the text box beside of the button (one at a time) then click button to generate its own PACKAGEID

insert in modtemp source code 
'added by arnold 2.20.2024
Public Function isPatient_ACRIncCirc20240001(stridnum As String) As Boolean
    Dim SQL As String
    
    isPatient_ACRIncCirc20240001 = False
    SQL = "Select Medicare.dbo.fn_isPxACRIncCirc20240001('" & stridnum & "') as isPatient_ACRIncCirc20240001"
        
        With Rec
            If .State > 0 Then .Close
            .CursorLocation = adUseClient
            .Open SQL, user.SQLConnection, adOpenDynamic, adLockReadOnly
            
            If .RecordCount > 0 Then
                isPatient_ACRIncCirc20240001 = !isPatient_ACRIncCirc20240001
            End If
            .Close
        End With
        Set Rec = Nothing
End Function

add in form load of frmMedComputationACR,frmMedComputationOPACR
'added by arnold 2.20.2024
If isPatient_ACRIncCirc20240001(Me.IdNum) = True Then
frmLookUp.txtOld.Visible = False
frmLookUp.txtOld.Text = ""
Else
frmLookUp.txtOld.Visible = False
frmLookUp.txtOld.Text = "_2_14_2024"
End If

add in form load of frmLookup
'added by arnold 2.20.2024
If frmMedComputationACR.IdNum = "" Then
With frmMedComputationOPACR
    If isPatient_ACRIncCirc20240001(frmMedComputationOPACR.IdNum) = True Then
    txtOld.Visible = False
    txtOld.Text = ""
    Else
    txtOld.Visible = False
    txtOld.Text = "_2_14_2024"
    End If
End With
ElseIf frmMedComputationOPACR.IdNum = "" Then
With frmMedComputationACR
    If isPatient_ACRIncCirc20240001(frmMedComputationACR.IdNum) = True Then
    txtOld.Visible = False
    txtOld.Text = ""
    Else
    txtOld.Visible = False
    txtOld.Text = "_2_14_2024"
    End If
End With
End If

added parameter in [Medic_CaseRateComputation] @idnum varchar(20) 
added parameter in [Medic_CaseRateComputation_New] @idnum varchar(20)
added parameter in [Medic_CaseRateComputation_New_SecondCase] @idnum varchar(20)
modified [Medic_CaseRateComputation] get it in 6.206 updated ( similar to 8.6 now)
modified [Medic_CaseRateComputation_New] get it in 8.6 updated 
modified [Medic_CaseRateComputation_New_SecondCase] get it in 8.6 updated 

added in source code for [Medic_CaseRateComputation] 5 parts in both ACR and OPACR    , '" & Replace(lblPatInfo(3), " ", "") & "'

added in source code for [Medic_CaseRateComputation_New] and 
[Medic_CaseRateComputation_New_SecondCase]  parts in both ACR and OPACR    , '" Replace(lblPatInfo(3), " ", "") & "'

added txtOld.text textbox in frmLookUP
added " & txtOld.Text & " in every tbmedpackage

----------------------------------------------------------------------------------------------------------------------------------------------------------------
INSERT IN TBMEDMODULESETTINGS 

Insert into medicare..tbMed_ModuleSettings (ModSet_ID,ModSet_Name,ModSet_Desc,ModSet_EffectiveDate,ModSet_Status) values ('30','All Case Rate Package amount Increased by 30% in PC2024-0001','To Enable only patients ADMITTED on feb 14 2024 in the ACR 30% increase Packages Amounts','2024-02-14 00:00:00.000','1')

create FUNCTION fn_isPxACRIncCirc20240001
create two tables (tbmed_ICDCASERATES and tbmed_RVSCASERATES) then import the lists to the tables

-------------------------------------------------------------------------


check this RVS codes packageid for 2nd case rate amounts before updating the percentages

  select packageid,* from medicare..tbMed_Procedures where RVSCODE in 
  ('11000','11010','11011','11012','11040','11041','11042','11043','11044',
  '11720','11721','16010','77401','77418','77761','77776','77781','77789',
  '90935','90945','96408','99432','66987','66983','66984','58300','58600','36430','49080','21630')