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 ---[H[J[2J[HIB20P597 1323 printed Dec 13, 2024@02:03:58 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
