IBY721PO.m

IBY721PO ;YMG/EDE - IB*2.0*721 POST INSTALL;JUN 23 2023

 ;;2.0;Integrated Billing;**721**;21-MAR-94;Build 5

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

 ;

 Q

 ;

EN ; entry point

 D BMES^XPDUTL(" >>  Starting the Post-Initialization routine for IB*2.0*721")

 D NEWATYPE

 D BMES^XPDUTL(" >>  End of the Post-Initialization routine for IB*2.0*721")

 Q

 ;

NEWATYPE ; add new IB action types to file 350.1

 N FDA,FDAIEN,IBATYPE,IBCHRG,IBIEN,IBNAME,IBSRV,IENS,Z

 D MES^XPDUTL("     -> Adding new IB action types to file 350.1...")

 S IBCHRG=$$FIND1^DIC(430.2,,"X","CC OPT","B")

 S IBSRV=$$GET1^DIQ(350.9,1,1.14,"I")

 F IBNAME="CC MH (OPT) NEW","CC MH (OPT) UPDATE","CC MH (OPT) CANCEL" D

 .D MES^XPDUTL("        Adding "_IBNAME_"...")

 .S IBATYPE=+$$FIND1^DIC(350.1,,"X",IBNAME,"B"),IENS=$S(IBATYPE>0:IBATYPE_",",1:"+1,")

 .S FDA(350.1,IENS,.01)=IBNAME  ; name

 .S FDA(350.1,IENS,.02)=$S(IBNAME["UPDATE":"UPD CCMH",IBNAME["CANCEL":"CAN CCMH",1:"N CCMH")  ; abbreviation

 .S FDA(350.1,IENS,.03)=IBCHRG  ; charge category

 .S FDA(350.1,IENS,.04)=IBSRV  ; service

 .S FDA(350.1,IENS,.05)=$S(IBNAME["UPDATE":3,IBNAME["CANCEL":2,1:1)  ; sequence #

 .I IBNAME["NEW" D

 ..S FDA(350.1,IENS,.08)="CC MH OPT"  ; user lookup name

 ..S FDA(350.1,IENS,.1)=1  ; place on hold

 ..S FDA(350.1,IENS,.11)=4  ; billing group

 ..S FDA(350.1,IENS,20)="S IBDESC=""CC MH OPT COPAY"""

 ..Q

 .S FDA(350.1,IENS,.12)=0  ; inactive?

 .I 'IBATYPE D

 ..D UPDATE^DIE("","FDA","FDAIEN")

 ..I +$G(FDAIEN(1))>0 S IBIEN($S(IBNAME["UPDATE":"U",IBNAME["CANCEL":"C",1:"N"))=FDAIEN(1)

 ..K FDAIEN

 ..Q

 .I IBATYPE D

 ..D FILE^DIE("","FDA")

 ..S IBIEN($S(IBNAME["UPDATE":"U",IBNAME["CANCEL":"C",1:"N"))=IBATYPE

 ..Q

 .K FDA

 .D MES^XPDUTL("        Ok.")

 .Q

 F Z="U","C","N" D

 .S IENS=IBIEN(Z)_","

 .S FDA(350.1,IENS,.06)=IBIEN("C")  ; cancellation action type

 .S FDA(350.1,IENS,.07)=IBIEN("U")  ; update action type

 .S FDA(350.1,IENS,.09)=IBIEN("N")  ; new action type

 .D FILE^DIE("","FDA")

 .K FDA

 .Q

 D MES^XPDUTL("      Done.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY721PO   2066     printed  Apr 23, 2025@18:49:49                                                                                                                                                                                                    Page 2

IBY721PO  ;YMG/EDE - IB*2.0*721 POST INSTALL;JUN 23 2023

 +1       ;;2.0;Integrated Billing;**721**;21-MAR-94;Build 5

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

 +3       ;

 +4        QUIT 

 +5       ;

EN        ; entry point

 +1        DO BMES^XPDUTL(" >>  Starting the Post-Initialization routine for IB*2.0*721")

 +2        DO NEWATYPE

 +3        DO BMES^XPDUTL(" >>  End of the Post-Initialization routine for IB*2.0*721")

 +4        QUIT 

 +5       ;

NEWATYPE  ; add new IB action types to file 350.1

 +1        NEW FDA,FDAIEN,IBATYPE,IBCHRG,IBIEN,IBNAME,IBSRV,IENS,Z

 +2        DO MES^XPDUTL("     -> Adding new IB action types to file 350.1...")

 +3        SET IBCHRG=$$FIND1^DIC(430.2,,"X","CC OPT","B")

 +4        SET IBSRV=$$GET1^DIQ(350.9,1,1.14,"I")

 +5        FOR IBNAME="CC MH (OPT) NEW","CC MH (OPT) UPDATE","CC MH (OPT) CANCEL"

               Begin DoDot:1

 +6                DO MES^XPDUTL("        Adding "_IBNAME_"...")

 +7                SET IBATYPE=+$$FIND1^DIC(350.1,,"X",IBNAME,"B")

                   SET IENS=$SELECT(IBATYPE>0:IBATYPE_",",1:"+1,")

 +8       ; name

                   SET FDA(350.1,IENS,.01)=IBNAME

 +9       ; abbreviation

                   SET FDA(350.1,IENS,.02)=$SELECT(IBNAME["UPDATE":"UPD CCMH",IBNAME["CANCEL":"CAN CCMH",1:"N CCMH")

 +10      ; charge category

                   SET FDA(350.1,IENS,.03)=IBCHRG

 +11      ; service

                   SET FDA(350.1,IENS,.04)=IBSRV

 +12      ; sequence #

                   SET FDA(350.1,IENS,.05)=$SELECT(IBNAME["UPDATE":3,IBNAME["CANCEL":2,1:1)

 +13               IF IBNAME["NEW"

                       Begin DoDot:2

 +14      ; user lookup name

                           SET FDA(350.1,IENS,.08)="CC MH OPT"

 +15      ; place on hold

                           SET FDA(350.1,IENS,.1)=1

 +16      ; billing group

                           SET FDA(350.1,IENS,.11)=4

 +17                       SET FDA(350.1,IENS,20)="S IBDESC=""CC MH OPT COPAY"""

 +18                       QUIT 

                       End DoDot:2

 +19      ; inactive?

                   SET FDA(350.1,IENS,.12)=0

 +20               IF 'IBATYPE

                       Begin DoDot:2

 +21                       DO UPDATE^DIE("","FDA","FDAIEN")

 +22                       IF +$GET(FDAIEN(1))>0

                               SET IBIEN($SELECT(IBNAME["UPDATE":"U",IBNAME["CANCEL":"C",1:"N"))=FDAIEN(1)

 +23                       KILL FDAIEN

 +24                       QUIT 

                       End DoDot:2

 +25               IF IBATYPE

                       Begin DoDot:2

 +26                       DO FILE^DIE("","FDA")

 +27                       SET IBIEN($SELECT(IBNAME["UPDATE":"U",IBNAME["CANCEL":"C",1:"N"))=IBATYPE

 +28                       QUIT 

                       End DoDot:2

 +29               KILL FDA

 +30               DO MES^XPDUTL("        Ok.")

 +31               QUIT 

               End DoDot:1

 +32       FOR Z="U","C","N"

               Begin DoDot:1

 +33               SET IENS=IBIEN(Z)_","

 +34      ; cancellation action type

                   SET FDA(350.1,IENS,.06)=IBIEN("C")

 +35      ; update action type

                   SET FDA(350.1,IENS,.07)=IBIEN("U")

 +36      ; new action type

                   SET FDA(350.1,IENS,.09)=IBIEN("N")

 +37               DO FILE^DIE("","FDA")

 +38               KILL FDA

 +39               QUIT 

               End DoDot:1

 +40       DO MES^XPDUTL("      Done.")

 +41       QUIT