- IBY665PO ;EDE/JWS - POST-INSTALL FOR IB*2.0*665 ;01-APR-2021
- ;;2.0;INTEGRATED BILLING;**665**;21-MAR-94;Build 28
- ;;Per VA Directive 6402, this routine should not be modified.
- ;
- ; IA# 10141 - MES^XPDUTL
- ;
- EN ;Entry Point
- N IBA
- S IBA(2)="IB*2*665 Post-Install...",(IBA(1),IBA(3))=" " D MES^XPDUTL(.IBA) K IBA
- D UPDERR
- S IBA(2)="IB*2*665 Post-Install Complete.",(IBA(1),IBA(3))=" " D MES^XPDUTL(.IBA) K IBA
- Q
- ;
- UPDERR ; Update existing error code message for 350.8
- N IBCODE,IBMESN,IBIEN,DIE,DIC,DA,DR,X,Y
- S IBCODE="IB383",IBMESN="Claim cannot contain more than 24 Occurrence Codes for EDI submission."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB384",IBMESN="If claim needs more than 24 Occurrence Codes, then select 'Force to Print'."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB385",IBMESN="Claim cannot contain more than 24 Occurrence Span Codes for EDI submission."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB386",IBMESN="If claim needs more than 24 Occurrence Span Codes, select 'Force to Print'."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB387",IBMESN="Inpt. Inst. claim cannot exceed 25 Procedure Codes for EDI submission."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB388",IBMESN="If claim needs more than 25 Procedure Codes, then select 'Force to Print'."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB389",IBMESN="Cannot enter more than 23 Value Codes for EDI Submission."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB390",IBMESN="If more than 23 Value Codes need to be entered, select 'Force to Print'."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB391",IBMESN="Claim cannot contain more than 24 Condition Codes for EDI Submission."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB392",IBMESN="If more than 24 Condition Codes are needed, select 'Force to Print'."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB393",IBMESN="17 other diagnosis codes are allowed on a printed UB04."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB394",IBMESN="24 other diagnosis codes are allowed on an electronic institutional claim."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB395",IBMESN="3 e-diagnosis codes are allowed on a printed UB04."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB396",IBMESN="12 e-diagnosis codes are allowed on an electronic institutional claim."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB397",IBMESN="12 diagnosis codes are allowed on a professional claim."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB398",IBMESN="4 diagnosis codes are allowed on a dental claim."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- S IBCODE="IB399",IBMESN="Institutional claim cannot contain more than 999 Revenue Codes."
- S IBIEN=$O(^IBE(350.8,"C",IBCODE,0)) I 'IBIEN D CREATE
- Q
- ;
- CREATE ;Create entry for IB error file in D350.8 if not there
- S DIC="^IBE(350.8,",DIC(0)="",X=IBCODE D FILE^DICN K DIC,X
- I Y=-1 D MES^XPDUTL(">> IB ERROR - Entry '"_IBCODE_"' was unable to be created <<") Q
- S IBIEN=+Y
- S DIE="^IBE(350.8,",DA=IBIEN,DR=".02////"_IBMESN_";.03////"_IBCODE_";.04////1;.05////1" D ^DIE K DIE,DIC,DA,DR
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY665PO 3465 printed Apr 23, 2025@18:49:38 Page 2
- IBY665PO ;EDE/JWS - POST-INSTALL FOR IB*2.0*665 ;01-APR-2021
- +1 ;;2.0;INTEGRATED BILLING;**665**;21-MAR-94;Build 28
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 ; IA# 10141 - MES^XPDUTL
- +5 ;
- EN ;Entry Point
- +1 NEW IBA
- +2 SET IBA(2)="IB*2*665 Post-Install..."
- SET (IBA(1),IBA(3))=" "
- DO MES^XPDUTL(.IBA)
- KILL IBA
- +3 DO UPDERR
- +4 SET IBA(2)="IB*2*665 Post-Install Complete."
- SET (IBA(1),IBA(3))=" "
- DO MES^XPDUTL(.IBA)
- KILL IBA
- +5 QUIT
- +6 ;
- UPDERR ; Update existing error code message for 350.8
- +1 NEW IBCODE,IBMESN,IBIEN,DIE,DIC,DA,DR,X,Y
- +2 SET IBCODE="IB383"
- SET IBMESN="Claim cannot contain more than 24 Occurrence Codes for EDI submission."
- +3 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +4 SET IBCODE="IB384"
- SET IBMESN="If claim needs more than 24 Occurrence Codes, then select 'Force to Print'."
- +5 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +6 SET IBCODE="IB385"
- SET IBMESN="Claim cannot contain more than 24 Occurrence Span Codes for EDI submission."
- +7 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +8 SET IBCODE="IB386"
- SET IBMESN="If claim needs more than 24 Occurrence Span Codes, select 'Force to Print'."
- +9 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +10 SET IBCODE="IB387"
- SET IBMESN="Inpt. Inst. claim cannot exceed 25 Procedure Codes for EDI submission."
- +11 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +12 SET IBCODE="IB388"
- SET IBMESN="If claim needs more than 25 Procedure Codes, then select 'Force to Print'."
- +13 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +14 SET IBCODE="IB389"
- SET IBMESN="Cannot enter more than 23 Value Codes for EDI Submission."
- +15 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +16 SET IBCODE="IB390"
- SET IBMESN="If more than 23 Value Codes need to be entered, select 'Force to Print'."
- +17 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +18 SET IBCODE="IB391"
- SET IBMESN="Claim cannot contain more than 24 Condition Codes for EDI Submission."
- +19 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +20 SET IBCODE="IB392"
- SET IBMESN="If more than 24 Condition Codes are needed, select 'Force to Print'."
- +21 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +22 SET IBCODE="IB393"
- SET IBMESN="17 other diagnosis codes are allowed on a printed UB04."
- +23 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +24 SET IBCODE="IB394"
- SET IBMESN="24 other diagnosis codes are allowed on an electronic institutional claim."
- +25 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +26 SET IBCODE="IB395"
- SET IBMESN="3 e-diagnosis codes are allowed on a printed UB04."
- +27 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +28 SET IBCODE="IB396"
- SET IBMESN="12 e-diagnosis codes are allowed on an electronic institutional claim."
- +29 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +30 SET IBCODE="IB397"
- SET IBMESN="12 diagnosis codes are allowed on a professional claim."
- +31 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +32 SET IBCODE="IB398"
- SET IBMESN="4 diagnosis codes are allowed on a dental claim."
- +33 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +34 SET IBCODE="IB399"
- SET IBMESN="Institutional claim cannot contain more than 999 Revenue Codes."
- +35 SET IBIEN=$ORDER(^IBE(350.8,"C",IBCODE,0))
- IF 'IBIEN
- DO CREATE
- +36 QUIT
- +37 ;
- CREATE ;Create entry for IB error file in D350.8 if not there
- +1 SET DIC="^IBE(350.8,"
- SET DIC(0)=""
- SET X=IBCODE
- DO FILE^DICN
- KILL DIC,X
- +2 IF Y=-1
- DO MES^XPDUTL(">> IB ERROR - Entry '"_IBCODE_"' was unable to be created <<")
- QUIT
- +3 SET IBIEN=+Y
- +4 SET DIE="^IBE(350.8,"
- SET DA=IBIEN
- SET DR=".02////"_IBMESN_";.03////"_IBCODE_";.04////1;.05////1"
- DO ^DIE
- KILL DIE,DIC,DA,DR
- +5 QUIT
- +6 ;
