IB20P597.m

IB20P597 ;ALB/CXW - IB*2.0*597 POST-INIT: THIRD PARTY FOLLOW-UP SUMMARY ;Feb 09, 2018@10:11:43

 ;;2.0;INTEGRATED BILLING;**597**;21-MAR-94;Build 11

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

 Q

POST ;update the data in the Value field (#.02) of the file/subfile (#351.7/#351.702)

 N IBA,U S U="^"

 D MSG("IB*2.0*597 Post-Install starts.....")

 D MSG(""),TPFUS,MSG("")

 D MSG("IB*2.0*597 Post-Install is complete.")

 Q

 ;

TPFUS ; fix value of input variable for 3rd Party Follow-Up Summary

 ; ibsel = 5 is for all types

 N IBDA,IBDM,IBSEL,IBNM,IBIVA,DA,DIE,DR,X,Y

 S IBSEL="5,"

 S IBDM="IB DM EXTRACT REPORTS"

 S IBNM="THIRD PARTY FOLLOW-UP SUMMARY"

 S IBDA=$O(^IBE(351.7,"B",IBNM,0))

 I 'IBDA D MSG("  >>> "_IBNM_" of "_IBDM_" not found") Q

 S IBIVA=$O(^IBE(351.7,IBDA,1,"B","IBSEL",0))

 I 'IBIVA D MSG("  >>> Input variable IBSEL of "_IBNM_" not found") Q

 I $P($G(^IBE(351.7,IBDA,1,IBIVA,0)),U,2)=IBSEL D  Q 

 . D MSG("  >>> Value of input variable IBSEL of "_IBNM_" already")

 . D MSG("      updated in the "_IBDM_" file (#351.7)")

 S DA(1)=IBDA,DA=IBIVA

 S DIE="^IBE(351.7,"_DA(1)_",1,",DR=".02////"_IBSEL D ^DIE

 D MSG("  >>> Updating value of input variable IBSEL of "_IBNM)

 D MSG("      in the "_IBDM_" file (#351.7)")

 Q

 ;

MSG(IBA) ;

 D MES^XPDUTL(IBA)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P597   1323     printed  Apr 09, 2024@21:10:55                                                                                                                                                                                                    Page 2

IB20P597  ;ALB/CXW - IB*2.0*597 POST-INIT: THIRD PARTY FOLLOW-UP SUMMARY ;Feb 09, 2018@10:11:43

 +1       ;;2.0;INTEGRATED BILLING;**597**;21-MAR-94;Build 11

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4        QUIT 

POST      ;update the data in the Value field (#.02) of the file/subfile (#351.7/#351.702)

 +1        NEW IBA,U

           SET U="^"

 +2        DO MSG("IB*2.0*597 Post-Install starts.....")

 +3        DO MSG("")

           DO TPFUS

           DO MSG("")

 +4        DO MSG("IB*2.0*597 Post-Install is complete.")

 +5        QUIT 

 +6       ;

TPFUS     ; fix value of input variable for 3rd Party Follow-Up Summary

 +1       ; ibsel = 5 is for all types

 +2        NEW IBDA,IBDM,IBSEL,IBNM,IBIVA,DA,DIE,DR,X,Y

 +3        SET IBSEL="5,"

 +4        SET IBDM="IB DM EXTRACT REPORTS"

 +5        SET IBNM="THIRD PARTY FOLLOW-UP SUMMARY"

 +6        SET IBDA=$ORDER(^IBE(351.7,"B",IBNM,0))

 +7        IF 'IBDA

               DO MSG("  >>> "_IBNM_" of "_IBDM_" not found")

               QUIT 

 +8        SET IBIVA=$ORDER(^IBE(351.7,IBDA,1,"B","IBSEL",0))

 +9        IF 'IBIVA

               DO MSG("  >>> Input variable IBSEL of "_IBNM_" not found")

               QUIT 

 +10       IF $PIECE($GET(^IBE(351.7,IBDA,1,IBIVA,0)),U,2)=IBSEL

               Begin DoDot:1

 +11               DO MSG("  >>> Value of input variable IBSEL of "_IBNM_" already")

 +12               DO MSG("      updated in the "_IBDM_" file (#351.7)")

               End DoDot:1

               QUIT 

 +13       SET DA(1)=IBDA

           SET DA=IBIVA

 +14       SET DIE="^IBE(351.7,"_DA(1)_",1,"

           SET DR=".02////"_IBSEL

           DO ^DIE

 +15       DO MSG("  >>> Updating value of input variable IBSEL of "_IBNM)

 +16       DO MSG("      in the "_IBDM_" file (#351.7)")

 +17       QUIT 

 +18      ;

MSG(IBA)  ;

 +1        DO MES^XPDUTL(IBA)

 +2        QUIT