Routine: IBACCWLAIBILL

Information

IBACCWLAIBILL ;EDE/TPF - ACC (Automated Community Care) Claims - Action Items related to actions on a Bill; 12-SEP-2023

Name	Comments	DBIA/ICR reference
CANCEL	;EP - CANCEL ACC CLAIM
BILLCOMP	;BILL COMPLETE
RESUBMIT	;EP - RESUBMIT
RESUBMITLOOP(IBDAIEN,BATCHITEM,BATCHCOMMENT,SUCCESS,LASTONEPUBLISHED)	;
SEL(IBDA,OPTION)	;EP -
EDITPREVACT(DA,DEFSTATUS,ASSIGNTOGRP,ESCAPE,BATCHITEM,BATCHCOMMENT)	;EP- EDIT PREV. ACT.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"VistA claim ",$$GET1^DIQ(399,IBIFN_",",.01)," with status of ",$$GET1^DIQ(399,IBIFN_",",.13)," can no longer be cancelled." Line Location: CANCEL+50
Function Call: WRITE	Prompt: !,"VistA claim ",$$GET1^DIQ(399,IBIFN_",",.01)," with status of ",$$GET1^DIQ(399,IBIFN_",",.13)," can no longer be edited." Line Location: BILLCOMP+52
Function Call: WRITE	Prompt: !!,"PROCESSING RECORD(S): " Line Location: RESUBMIT+18
Function Call: WRITE	Prompt: !,"RESUBMITTING X12 ENCOUNTER NUMBER: ",$P($G(^IBA(364.9,IBENCIFN,0)),U,15) Line Location: RESUBMITLOOP+43
Function Call: WRITE	Prompt: !!,"CAN NOT COMPLETE RESUBMIT FROM RU ACTION!" Line Location: RESUBMITLOOP+58
Function Call: WRITE	Prompt: !!,"ERROR ATTEMPTING TO UPDATE FIELD #.31 OF FILE #364.9" Line Location: RESUBMITLOOP+61
Function Call: WRITE	Prompt: !,"There was a problem updating field .05 for Encounter "_$G(IBENCIFN) Line Location: RESUBMITLOOP+108