Routine: IBCNEDE3

Information

IBCNEDE3 ;AITC/CKB - eIV Appointment Extract ;23-OCT-2023

Name	Comments	DBIA/ICR reference
STRIP(VALUE)	; check non-alpha numeric characters
STRIPX	;
UPDSD(PIEN,AIEN,SVDT)	;Update service date based on Payers allowed date range - Appointment Extract
ALL(DFN,VAR)	;Find all insurance data on a patient for the Appointment Extract
INSCHKQ	;
CHK(X,PIEN,PINS,Z)	; Check patient policy - logic from CHK^IBCNS1
CHKQ	;
TQUPDSV(DFN,PAYER,SRVDT,SUBID,GRPNUM)	; Update TQ service date for entries to be transmitted ; used by the Appointment Extract - logic from TQUPDSV^IBCNEUT5
TQUPDSVX	;TQUPDSV exit
TQCHKS(DFN,PAYER,SRVDT,SUBID,GRPNUM,FRESHNESS)	; Looks at the TQ file for an existing entry ; checks to see if a new entry can be added to the TQ - used by the Appointment Extract
TQCHKSX	;TQCHKS exit
ADDTQ(DFN,PAYER,SUBID,GRPNUM,SRVDT,FDAYS)	; Function - Returns flag (0/1) ; used by the Appointment Extract - logic from ADDTQ^IBCNEUT5 ; 1 - TQ File entry can be added as the service date for the patient ; and payer >= MAX TQ service date + Freshness Days ; 0 - otherwise
ADDTQX	; ADDTQ exit pt
TQMAXSV(DFN,PAYER,SUBID,GRPNUM)	; Returns MAX(TQ Service Date) for Patient & Payer
TQMAXSVX	;TQMAXSV exit
BFEXIST(DFN,INSNAME,SUBID,GRPNUM)	;Checks for the existence in the Buffer
BFEXIT	;BFEXIST exit