IBOHLS1 ;ALB/BAA - IB HELD CHARGES LIST MANAGER ;08-SEP-2015
Source file <IBOHLS1.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 |
|---|---|---|
| SORT | ; get the data
|
|
| CHRGS(IBN,PATS) | ; charges on hold
|
|
| INST(RF) | ; figure out where performed
|
|
| PAT | ; patient name
|
|
| BILLS | ; find bills for charges on hold
|
|
| INP | ; inpatient bills
|
|
| INPTCK | ; does bill belong to charge? returns IBOK=0 if no
|
|
| CK1 | ; for same patient?
|
|
| CK2 | ; same type- inp or opt?
|
|
| CK3 | ; overlap in date range?
|
|
| CK4 | ; insurance bill?
|
|
| OTP | ; outpatient bills
|
|
| RX | ; rx refill bills
|
|
| GETINS | ; get insurance information
|
|
| SETINS(PLNCOV,PEFDT,PCOVD,PCOM,IBCNT) | ; SET GLOBAL ENTRY
|
|
| SETCOV(PCOM) | ; SET COVERAGE WHEN MULTIPLE
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | INP+6 |
| FIND^DIC | INST+10 |
| $$GET1^DIQ | INST+9, INST+13, INST+14, INST+17, INST+18, INST+19, INST+22, INST+23, INP+11, INP+13 , INP+14, INP+17, OTP+7, OTP+9, OTP+10, OTP+13, RX+20, RX+22, RX+23, RX+26 |
| ALL^IBCNS1 | GETINS+6 |
| $$FNDBTYP^IBOHLD1 | BILLS+3 |
| $$IBACTYPE^IBOHLD2 | BILLS+7 |
| $$DAT1^IBOUTL | GETINS+21, GETINS+22, GETINS+34 |
| $$FILE^IBRXUTL | CHRGS+24, RX+9 |
| $$SUBFILE^IBRXUTL | CHRGS+23, RX+8 |
| DEM^VADPT | PAT+1 |
| $$FMDIFF^XLFDT | CHRGS+26, INP+12, OTP+8, RX+21 |
| FileNo | Call Tags |
|---|---|
| ^IBT(356 - [#356] | GET1^DIQ |
| ^DGCR(399 - [#399] | GET1^DIQ |
| ^DIC(4 - [#4] | FIND^DIC |
| ^DG(40.8 - [#40.8] | GET1^DIQ |
| ^DGPM - [#405] | GET1^DIQ |
| ^SCE - [#409.68] | GET1^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| ^PRCA(430 - [#430] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| ^DGPT - [#45] | GET1^DIQ |
| ^PSRX - [#52] | GET1^DIQ |
| ^PS(59 - [#59] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | INP+8, INP+9, INPTCK+2, OTP+3, OTP+4, OTP+5, OTP+15, RX+18, RX+28 |
| ^DIC(36 - [#36] | GETINS+13 |
| ^DIC(4 - [#4] | CHRGS+10 |
| ^IB - [#350] | CHRGS+4, CHRGS+13, INP+5 |
| ^IB("AC" | SORT+5 |
| ^IB("AH" | SORT+8 |
| ^IBA(355.3 - [#355.3] | GETINS+12 |
| ^IBA(355.32 - [#355.32] | GETINS+32, GETINS+33, GETINS+38, GETINS+39, GETINS+41 |
| ^IBA(362.4 - [#362.4] | RX+14, RX+16 |
| ^IBE(350.1 - [#350.1] | BILLS+6, INP+3, RX+5 |
| ^IBE(355.31 - [#355.31] | GETINS+29, GETINS+30 |
| ^IBT(356 - [#356] | INP+16, OTP+12, RX+25 |
| ^TMP($J | BILLS+9*, BILLS+10*, BILLS+14, INP+22*, INP+23*, OTP+16*, OTP+17*, RX+7*, RX+29*, RX+30* , GETINS+25*, GETINS+26*, SETINS+3*, SETINS+4*, SETINS+5*, SETCOV+2* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AUDT | INP+2~, INP+11*, INP+12, INP+22, OTP+7*, OTP+8, OTP+16, RX+20*, RX+21, RX+29 |
| B | CK2+1~*, CK2+2 |
| BCNT | INP+1~, INP+7*, INP+21*, INP+22, INP+23, OTP+1~, OTP+2*, OTP+14*, OTP+16, OTP+17 , RX+12~, RX+13*, RX+15*, RX+27*, RX+29, RX+30 |
| >> BDATE | CHRGS+25 |
| BILL | INP+1~, INP+10*, INP+22, OTP+1~, OTP+6*, OTP+14*, OTP+16, RX+19*, RX+29 |
| BLTRK | INP+1~, INP+15*, INP+16*, INP+17, INP+22, INP+23, OTP+11*, OTP+12*, OTP+13, OTP+16 , OTP+17, RX+24*, RX+25*, RX+26, RX+29, RX+30 |
| CKDT | GETINS+2~ |
| CLINIC | CHRGS+2~, CHRGS+6*, BILLS+10 |
| CLNM | INST+1~, INST+2*, INST+6*, INST+9*, INST+13*, INST+17*, INST+22*, INST+25 |
| CNT | SORT+1~, SORT+2*, BILLS+4*, BILLS+9, BILLS+10, BILLS+14, INP+22, INP+23, OTP+16, OTP+17 , RX+7, RX+29, RX+30, GETINS+25, SETINS+3 |
| COVFN | GETINS+2~, GETINS+33*, GETINS+38, GETINS+39, GETINS+41 |
| CVD | GETINS+1~, GETINS+37* |
| DFN | SORT+7*, SORT+8, CHRGS+1~, CHRGS+16*, BILLS+10, CK1+1, OTP+3, OTP+4, GETINS+6 |
| DIEN | INST+1~, INST+18*, INST+19 |
| DT | CHRGS+26, INP+12, OTP+8, RX+21 |
| >> EDATE | CHRGS+25 |
| EFDTCK | GETINS+1~, GETINS+18*, GETINS+20, GETINS+21 |
| EFFDT | GETINS+1~, GETINS+21*, GETINS+26 |
| EXDTCK | GETINS+1~, GETINS+17*, GETINS+19, GETINS+22 |
| EXPDT | GETINS+1~, GETINS+22*, GETINS+26 |
| F | CK3+1~, CK3+2*, CK3+3 |
| >> FILTERS(1 | CHRGS+12 |
| >> FILTERS(2 | SORT+7 |
| FL | INST+1~, INST+4*, INST+6, INST+8, INST+12, INST+16, INST+21 |
| FLAG | CHRGS+1~, CHRGS+7*, CHRGS+8*, CHRGS+9*, BILLS+10 |
| GRP | GETINS+2~, GETINS+11*, GETINS+26 |
| HDAYS | CHRGS+1~, CHRGS+26*, BILLS+9, INP+12, OTP+8, RX+21 |
| HINST | CHRGS+1~, CHRGS+6*, CHRGS+8*, CHRGS+9*, CHRGS+10, CHRGS+11, CHRGS+12 |
| HLDDT | INP+2~, INP+12*, INP+22, OTP+8*, OTP+16, RX+21*, RX+29 |
| HLDT | CHRGS+1~, CHRGS+14*, CHRGS+25, CHRGS+26 |
| HST | CHRGS+1~, CHRGS+18*, CHRGS+19 |
| IB0 | GETINS+3~, GETINS+39*, GETINS+41 |
| IBACT | CHRGS+1~, CHRGS+15* |
| IBATYPE | BILLS+1~, BILLS+3*, BILLS+11, BILLS+12, CK2+2 |
| IBBCHG | INP+1~, INP+13*, INP+22, OTP+1~, OTP+9*, OTP+15*, OTP+16, RX+12~, RX+22*, RX+28* , RX+29 |
| IBBILL | INP+1~, INP+8*, INP+9, INP+11, INP+13, INP+14, INP+16, INP+23, INPTCK+2, INPTCK+3* , OTP+1~, OTP+3*, OTP+4*, OTP+5, OTP+7, OTP+9, OTP+10, OTP+12, OTP+15, OTP+17 , RX+12~, RX+17*, RX+18, RX+20, RX+22, RX+23, RX+25, RX+28, RX+30 |
| IBBILL0 | INP+1~, INP+9*, INP+10, INPTCK+3, CK1+1, CK2+1, CK4+1, OTP+1~, OTP+5*, OTP+6 , OTP+14, RX+12~, RX+18*, RX+19 |
| IBBILLU | INPTCK+1~, INPTCK+2*, CK3+2, OTP+1~, OTP+5* |
| IBBILLU1 | INP+1~, OTP+1~, OTP+15*, RX+28* |
| IBCHG | CHRGS+1~, CHRGS+27*, BILLS+9 |
| IBCHRG | BILLS+1~ |
| IBCNT | GETINS+2~, GETINS+30*, GETINS+32, GETINS+35, GETINS+36*, GETINS+38, GETINS+42, SETINS~, SETINS+2 |
| IBEND | INP+1~, INP+6*, INP+8 |
| IBEV | INP+1~, INP+4*, INP+5*, INP+6, INP+8 |
| IBFILL | RX+12~, RX+14*, RX+16 |
| IBFILL0 | RX+12~, RX+16*, RX+17 |
| IBFR | CHRGS+1~, CHRGS+20*, CHRGS+23*, CHRGS+24*, BILLS+9, BILLS+10, CK3+3, OTP+3, GETINS+19 |
| IBIEN | INST+1~, INST+3*, INST+9, INST+13, INST+17, INST+22 |
| IBINS | GETINS+1~ |
| IBINS( | GETINS+8, GETINS+9, GETINS+10 |
| IBINS0 | GETINS+3~, GETINS+9*, GETINS+11, GETINS+13, GETINS+17, GETINS+18, GETINS+25, SETINS+4 |
| IBINS7 | GETINS+3~, GETINS+10*, GETINS+15, GETINS+16 |
| IBN | SORT+1~, SORT+5*, SORT+8*, CHRGS~, CHRGS+4, CHRGS+13, BILLS+10 |
| IBND | CHRGS+1~, CHRGS+4*, CHRGS+5, CHRGS+8, CHRGS+9, CHRGS+15, CHRGS+16, CHRGS+18, CHRGS+20, CHRGS+21 , CHRGS+22, CHRGS+27, BILLS+3, BILLS+6, INP+3, INP+4, RX+3, RX+5, RX+6 |
| IBND1 | CHRGS+2~, CHRGS+13*, CHRGS+14 |
| IBOK | INP+1~, INP+19, INPTCK+4*, CK1+2*, CK1+3, CK2+2*, CK2+3*, CK2+4, CK3+4*, CK3+5 , CK4+2*, OTP+1~, OTP+5, RX+12~, RX+18 |
| IBRDT | RX+1~, RX+2*, RX+8*, RX+9*, RX+11, RX+16, RX+29 |
| IBRF | CHRGS+22*, CHRGS+23, CHRGS+24, RX+1~, RX+2*, RX+6*, RX+8, RX+9 |
| IBRX | RX+1~, RX+2*, RX+6*, RX+7, RX+11, RX+14 |
| IBRXN | CHRGS+22*, CHRGS+23, CHRGS+24, INST+2*, INST+3, RX+1~, RX+2*, RX+6*, RX+8, RX+9 |
| IBS | GETINS+3~, GETINS+39*, GETINS+42, GETINS+43, GETINS+44* |
| IBSTA | INST+1~, INST+9*, INST+10 |
| IBT | BILLS+1~, INP+1~, INP+8*, INP+22 |
| IBTO | CHRGS+1~, CHRGS+20*, CHRGS+23*, CHRGS+24*, BILLS+9, BILLS+10, CK3+3, OTP+3, GETINS+20 |
| IBTP | BILLS+1~, BILLS+6*, BILLS+7*, BILLS+9 |
| IBTYPE | INP+2~, INP+3*, RX+1~, RX+5* |
| IBV | OTP+1~, OTP+3*, OTP+4, OTP+16 |
| IBX | GETINS+1~ |
| ICNT | GETINS+1~, GETINS+5*, GETINS+23*, GETINS+25, GETINS+26, SETINS+3, SETINS+4, SETINS+5, SETCOV+2 |
| ID | CHRGS+1~, PAT+4*, BILLS+9 |
| IEN | INST+1~, INST+13*, INST+14, INST+17*, INST+18, INST+22*, INST+23 |
| IENS | RX+2~ |
| >> IINS | BILLS+14 |
| INSCO | GETINS+1~, GETINS+13*, GETINS+14, GETINS+26 |
| >> INSTS | CHRGS+11, CHRGS+12 |
| INSTYP | GETINS+3~ |
| INT | INST+1~, INST+2*, INST+6*, INST+10*, INST+14*, INST+19*, INST+23*, INST+25 |
| LEDT | GETINS+1~, GETINS+31*, GETINS+32*, GETINS+33, GETINS+34 |
| LIM | GETINS+3~, GETINS+28*, GETINS+29*, GETINS+30, GETINS+32, GETINS+33 |
| >> MSG("DILIST" | INST+10 |
| NAME | CHRGS+1~, PAT+2*, PAT+4, BILLS+9, BILLS+10, BILLS+14, INP+22, INP+23, OTP+16, OTP+17 , RX+7, RX+29, RX+30, GETINS+25, GETINS+26, SETINS+3, SETINS+4, SETINS+5, SETCOV+2 |
| PATS | SORT+4, SORT+5, SORT+6, SORT+8, CHRGS~ |
| PCNT | GETINS+2~, GETINS+28*, SETINS+1*, SETINS+3, SETINS+5, SETCOV+1*, SETCOV+2 |
| PCOM | GETINS+2~, GETINS+4*, GETINS+31*, GETINS+35, GETINS+36*, GETINS+38, GETINS+40*, GETINS+41*, GETINS+42, GETINS+43 , SETINS~, SETINS+5, SETCOV~, SETCOV+2 |
| PCOVD | GETINS+2~, GETINS+4*, GETINS+31*, GETINS+33*, GETINS+35*, GETINS+37*, GETINS+38, GETINS+42, SETINS~, SETINS+5 |
| PEFDT | GETINS+2~, GETINS+4*, GETINS+30*, GETINS+34*, GETINS+35, GETINS+38, GETINS+42, SETINS~, SETINS+5 |
| PLNCOV | GETINS+2~, GETINS+4*, GETINS+30*, GETINS+35, GETINS+38, GETINS+42, SETINS~, SETINS+2*, SETINS+5 |
| PLNID | GETINS+1~, GETINS+4*, GETINS+11*, GETINS+12, GETINS+25, GETINS+32, GETINS+33, SETINS+4 |
| REIMB | GETINS+3~, GETINS+13* |
| RF | INST~, INST+2, INST+4 |
| RNB | INP+1~, INP+15*, INP+17*, INP+22, INP+23, OTP+11*, OTP+13*, OTP+16, RX+24*, RX+26* , RX+29, RX+30 |
| RSLTFRM | CHRGS+2~, CHRGS+5*, CHRGS+6 |
| SINST | SORT+1~, CHRGS+3*, CHRGS+10*, BILLS+10 |
| SS | CHRGS+1~, PAT+3*, PAT+4 |
| SSLE | CHRGS+1~, PAT+3*, PAT+4 |
| SSLS | CHRGS+1~, PAT+3*, PAT+4 |
| STATUS | INP+1~, INP+14*, INP+22, OTP+10*, OTP+16, RX+23*, RX+29 |
| SUBID | GETINS+1~, GETINS+15* |
| SUBNAM | GETINS+1~, GETINS+16*, GETINS+26 |
| T | CK3+1~, CK3+2*, CK3+3 |
| U | CHRGS+5, CHRGS+6, CHRGS+8, CHRGS+9, CHRGS+10, CHRGS+14, CHRGS+16, CHRGS+18, CHRGS+20, CHRGS+21 , CHRGS+22, CHRGS+27, INST+25, PAT+3, BILLS+9, BILLS+10, INP+4, INP+5, INP+10, INP+22 , INP+23, INPTCK+3, CK1+1, CK2+1, CK3+2, CK4+1, OTP+6, OTP+14, OTP+15, OTP+16 , OTP+17, RX+3, RX+6, RX+16, RX+17, RX+19, RX+28, RX+29, RX+30, GETINS+11 , GETINS+13, GETINS+14, GETINS+15, GETINS+16, GETINS+17, GETINS+18, GETINS+25, GETINS+26, GETINS+30, GETINS+37 , SETINS+4, SETINS+5, SETCOV+2 |
| VADM | PAT+1~! |
| VADM(1 | PAT+2 |
| VADM(2 | PAT+3 |
| VAERR | PAT+1~ |
| X | INP+1~, INP+6, OTP+1~, RX+12~ |
| X1 | INP+1~, INP+6* |
| X2 | INP+1~, INP+6* |
| XX | GETINS+1~, GETINS+7*, GETINS+8*, GETINS+9, GETINS+10 |
