IBCNEDE3 ;AITC/CKB - eIV Appointment Extract ;23-OCT-2023
Source file <IBCNEDE3.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | UPDSD+17, ALL+31, ALL+32, CHK+15, CHK+16, CHK+17, CHK+23, CHK+25, TQUPDSV+15, TQUPDSV+18 , TQCHKS+15, TQCHKS+18, TQMAXSV+27, TQMAXSV+30, TQMAXSV+31 |
| $$STRIP^IBCNEDE3 | TQUPDSV+15, TQCHKS+15, TQMAXSV+27, BFEXIST+29 |
| SAVETQ^IBCNEUT2 | TQUPDSV+35, TQUPDSV+37, TQUPDSV+42, TQUPDSV+43 |
| $$VALIDDT^IBCNINSU | CHK+39, CHK+45, CHK+47 |
| $$ZND^IBCNS1 | ALL+22 |
| $$DT^XLFDT | UPDSD+21, UPDSD+25, UPDSD+26 |
| $$FMADD^XLFDT | UPDSD+25, UPDSD+26, ADDTQ+23 |
| $$FMDIFF^XLFDT | TQUPDSV+41 |
| $$TRIM^XLFSTR | BFEXIST+16, BFEXIST+25 |
| $$UP^XLFSTR | BFEXIST+16, BFEXIST+26 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | CHK+21 |
| ^DPT - [#2] | ALL+19, ALL+20, ALL+23, ALL+24, ALL+25, ALL+26, ALL+27, ALL+28, ALL+29 |
| ^IBA(355.3 - [#355.3] | ALL+30 |
| ^IBA(355.33 - [#355.33] | BFEXIST+20, BFEXIST+22, BFEXIST+25, BFEXIST+29, BFEXIST+31 |
| ^IBCN(365.1 - [#365.1] | TQUPDSV+9, TQUPDSV+11, TQUPDSV+20, TQUPDSV+31, TQCHKS+9, TQCHKS+11, TQCHKS+19, TQMAXSV+21, TQMAXSV+23 |
| ^IBE(365.12 - [#365.12] | UPDSD+13 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ALL+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ADDTQ | TQCHKS+23*, ADDTQ+15*, ADDTQ+17*, ADDTQ+23*, ADDTQX+1 |
| ADT | ALL+17~, ALL+18*, ALL+20 |
| AIEN | UPDSD~, UPDSD+10, UPDSD+13, UPDSD+17 |
| BSUBID | BFEXIST+14~, BFEXIST+29*, BFEXIST+30 |
| BUFFNAME | BFEXIST+14~, BFEXIST+25*, BFEXIST+26 |
| CSPAN | TQUPDSV+3~, TQUPDSV+41*, TQUPDSV+42, TQUPDSV+43 |
| CSRVDT | TQUPDSV+3~, TQUPDSV+31*, TQUPDSV+33, TQUPDSV+35*, TQUPDSV+37*, TQUPDSV+40, TQUPDSV+41, TQUPDSV+42 |
| DA | TQUPDSV+3~, TQUPDSV+10*, TQUPDSV+11*, TQUPDSV+15, TQUPDSV+18, TQUPDSV+20, TQUPDSV+27, TQUPDSV+31, TQUPDSV+35, TQUPDSV+37 , TQUPDSV+42, TQUPDSV+43, TQCHKS+3~, TQCHKS+10*, TQCHKS+11*, TQCHKS+15, TQCHKS+18, TQCHKS+19 |
| DATA | UPDSD+8~, UPDSD+13*, UPDSD+15 |
| DFN | ALL~, ALL+19, ALL+20, ALL+22, ALL+23, ALL+24, ALL+25, ALL+26, ALL+27, ALL+28 , ALL+29, TQUPDSV~, TQUPDSV+5, TQUPDSV+9, TQUPDSV+11, TQCHKS~, TQCHKS+5, TQCHKS+9, TQCHKS+11, TQCHKS+23 , ADDTQ~, ADDTQ+17, ADDTQ+20, TQMAXSV~, TQMAXSV+13, TQMAXSV+21, TQMAXSV+23, BFEXIST~, BFEXIST+17, BFEXIST+20 |
| DT | UPDSD+21, ALL+18, TQUPDSV+33, TQUPDSV+35, TQUPDSV+37, TQUPDSV+40, TQUPDSV+41 |
| EFFDT | CHK+12~, CHK+15*, CHK+29, CHK+33, CHK+37, CHK+39, CHK+41, CHK+43, CHK+45, CHK+47 |
| EVAL | CHK+12~, CHK+14*, CHK+29*, CHK+31*, CHK+33*, CHK+37*, CHK+39*, CHK+41*, CHK+43*, CHK+45* , CHK+47*, CHKQ+1 |
| EXIST | BFEXIST+14~, BFEXIST+15*, BFEXIST+20, BFEXIST+33*, BFEXIT+1 |
| EXPDT | CHK+12~, CHK+16*, CHK+31, CHK+33, CHK+37, CHK+39, CHK+41, CHK+43, CHK+45, CHK+47 |
| FDAYS | UPDSD+8~, UPDSD+12*, UPDSD+17*, UPDSD+19, UPDSD+21, UPDSD+25, UPDSD+26, ADDTQ~, ADDTQ+17, ADDTQ+23 |
| FRESHNESS | TQCHKS~, TQCHKS+23 |
| >> FSCSEND | TQUPDSV+24*, TQUPDSV+25* |
| GRP | CHK+12~, CHK+17*, CHK+25 |
| GRPNUM | TQUPDSV~, TQUPDSV+18, TQCHKS~, TQCHKS+18, TQCHKS+23, ADDTQ~, ADDTQ+20, TQMAXSV~, TQMAXSV+30, BFEXIST~ , BFEXIST+31 |
| IBI | STRIP+10~, STRIP+14* |
| IBIENS | ALL+17~, ALL+29*, ALL+30, ALL+31, ALL+32 |
| IBSP | ALL+17~ |
| IBTQS | TQMAXSV+15~, TQMAXSV+31*, TQMAXSV+32 |
| IBY | STRIP+10~, STRIP+13*, STRIP+14*, STRIP+16, STRIP+17, STRIP+18 |
| IEN | BFEXIST+14~, BFEXIST+19*, BFEXIST+20*, BFEXIST+22, BFEXIST+25, BFEXIST+29, BFEXIST+31 |
| IENS | TQMAXSV+15~ |
| INSIEN | CHK+12~, CHK+20*, CHK+21, CHK+23 |
| INSNAME | BFEXIST~, BFEXIST+16*, BFEXIST+17, BFEXIST+26 |
| LASTBYP | TQMAXSV+15~, TQMAXSV+20*, TQMAXSV+21*, TQMAXSV+23, TQMAXSV+33 |
| LEN | STRIP+10~, STRIP+12*, STRIP+14 |
| MAXDT | ADDTQ+14~, ADDTQ+20*, ADDTQ+21, ADDTQ+23 |
| PAYER | TQUPDSV~, TQUPDSV+5, TQUPDSV+9, TQUPDSV+11, TQCHKS~, TQCHKS+5, TQCHKS+9, TQCHKS+11, TQCHKS+23, ADDTQ~ , ADDTQ+17, ADDTQ+20, TQMAXSV~, TQMAXSV+13, TQMAXSV+21, TQMAXSV+23 |
| PIEN | UPDSD~, UPDSD+10, UPDSD+13, UPDSD+17, CHK~, CHK+15, CHK+16, CHK+17 |
| PINS | CHK~, CHK+15, CHK+16, CHK+17 |
| SPAN | TQUPDSV+3~, TQUPDSV+41*, TQUPDSV+42, TQUPDSV+43 |
| SRVDT | TQUPDSV~, TQUPDSV+5, TQUPDSV+35, TQUPDSV+37, TQUPDSV+40, TQUPDSV+41, TQUPDSV+43, TQCHKS~, TQCHKS+5, ADDTQ~ , ADDTQ+17, ADDTQ+23 |
| >> SRVICEDT | TQCHKS+23 |
| STATLIST | TQMAXSV+15~, TQMAXSV+18*, TQMAXSV+32 |
| STRNG | STRIP+10~, STRIP+11*, STRIP+13*, STRIP+18*, STRIPX+1 |
| STS | TQUPDSV+3~, TQUPDSV+20*, TQUPDSV+22, TQUPDSV+24, TQUPDSV+25, TQCHKS+3~, TQCHKS+19*, TQCHKS+21 |
| SUBID | TQUPDSV~, TQUPDSV+16, TQCHKS~, TQCHKS+16, TQCHKS+23, ADDTQ~, ADDTQ+20, TQMAXSV~, TQMAXSV+28, BFEXIST~ , BFEXIST+30 |
| SVDT | UPDSD~, UPDSD+21*, UPDSD+25, UPDSD+26*, TQUPDSV+3~, TQUPDSV+8*, TQUPDSV+9*, TQUPDSV+11, TQCHKS+3~, TQCHKS+8* , TQCHKS+9*, TQCHKS+11 |
| >> TQENT | TQUPDSV+27* |
| >> TQFOUND | TQUPDSV+11, TQUPDSV+26* |
| TQIEN | TQMAXSV+15~, TQMAXSV+22*, TQMAXSV+23*, TQMAXSV+27, TQMAXSV+30, TQMAXSV+31 |
| TQMAXSV | TQMAXSV+11~, TQMAXSV+12*, TQMAXSV+33*, TQMAXSVX+1 |
| TQSUBID | TQUPDSV+3~, TQUPDSV+15*, TQUPDSV+16, TQCHKS+3~, TQCHKS+15*, TQCHKS+16, TQMAXSV+15~, TQMAXSV+27*, TQMAXSV+28 |
| U | ALL+31, ALL+32, TQUPDSV+20, TQUPDSV+31, TQCHKS+19, BFEXIST+22, BFEXIST+25, BFEXIST+29, BFEXIST+31 |
| VALUE | STRIP~, STRIP+11, STRIP+12, STRIP+14 |
| VAR | ALL~, ALL+21, ALL+22, ALL+23, ALL+24, ALL+25, ALL+26, ALL+27, ALL+28, ALL+30 , ALL+31*, ALL+32* |
| X | ALL+17~, ALL+19*, ALL+20, ALL+22, ALL+23, ALL+24, ALL+25, ALL+26, ALL+27, ALL+28 , ALL+29, ALL+30, ALL+31, ALL+32, CHK~, CHK+20 |
| XX | STRIP+10~ |
| Z | CHK~, CHK+29, CHK+31, CHK+33, CHK+37, CHK+43, CHK+47 |
