IB2P796 ;BAH/MBS - Claims Tracking IB 796 Post Filing Routine ; Nov 14, 2024@14:12
;;2.0;INTEGRATED BILLING;**796**;21-MAR-94;Build 34
;
Q
POST ; Post-Install Logic
;Run data migration for the CLAIMS TRACKING (#356) file
D CMTMIG
Q
CMTMIG ; Migrate claims tracking comments to new multiple
N CMT,IBFDA,IEN,PMAN
S PMAN=.5
S IEN=0 F S IEN=$O(^IBT(356,IEN)) Q:'+IEN D
.;If record has an existing comment and additional comments entries do NOT already exist, create move comment to additional comments
.S CMT=$P($G(^IBT(356,IEN,1)),U,8) I CMT]"",'+$O(^IBT(356,IEN,4,0)) D
..S IBFDA(356.04,"+1,"_IEN_",",.01)=DT,IBFDA(356.04,"+1,"_IEN_",",.02)=PMAN,IBFDA(356.04,"+1,"_IEN_",",1)=CMT
..D UPDATE^DIE(,"IBFDA")
Q
;
CMTRB ;CMT RollBack
;Rollback of the comment migration done in CMTMIG during the post install.
;Removes File 356 Field 4 (Multiple File 356.04) and the associated data.
N DIU
S DIU=356.04,DIU(0)="SD" D EN^DIU2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB2P796 965 printed Sep 23, 2025@19:41:57 Page 2
IB2P796 ;BAH/MBS - Claims Tracking IB 796 Post Filing Routine ; Nov 14, 2024@14:12
+1 ;;2.0;INTEGRATED BILLING;**796**;21-MAR-94;Build 34
+2 ;
+3 QUIT
POST ; Post-Install Logic
+1 ;Run data migration for the CLAIMS TRACKING (#356) file
+2 DO CMTMIG
+3 QUIT
CMTMIG ; Migrate claims tracking comments to new multiple
+1 NEW CMT,IBFDA,IEN,PMAN
+2 SET PMAN=.5
+3 SET IEN=0
FOR
SET IEN=$ORDER(^IBT(356,IEN))
if '+IEN
QUIT
Begin DoDot:1
+4 ;If record has an existing comment and additional comments entries do NOT already exist, create move comment to additional comments
+5 SET CMT=$PIECE($GET(^IBT(356,IEN,1)),U,8)
IF CMT]""
IF '+$ORDER(^IBT(356,IEN,4,0))
Begin DoDot:2
+6 SET IBFDA(356.04,"+1,"_IEN_",",.01)=DT
SET IBFDA(356.04,"+1,"_IEN_",",.02)=PMAN
SET IBFDA(356.04,"+1,"_IEN_",",1)=CMT
+7 DO UPDATE^DIE(,"IBFDA")
End DoDot:2
End DoDot:1
+8 QUIT
+9 ;
CMTRB ;CMT RollBack
+1 ;Rollback of the comment migration done in CMTMIG during the post install.
+2 ;Removes File 356 Field 4 (Multiple File 356.04) and the associated data.
+3 NEW DIU
+4 SET DIU=356.04
SET DIU(0)="SD"
DO EN^DIU2
+5 QUIT
