IBCNEDE3 ;AITC/CKB - eIV Appointment Extract ;23-OCT-2023
Source file <IBCNEDE3.m>
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
|
FileNo | Call Tags |
---|---|
2.312 | GET1^DIQ |
^IBA(355.3 - [#355.3] | GET1^DIQ |
^DIC(36 - [#36] | GET1^DIQ |
^IBCN(365.1 - [#365.1] | GET1^DIQ |
365.121 | GET1^DIQ |