IBCBB ;ALB/AAS - EDIT CHECK ROUTINE TO BE INVOKED BEFORE ALL BILL APPROVAL ACTIONS ;2-NOV-89
Source file <IBCBB.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 12 | EDITS^IBCB2 (BP,ICD10V,PAYERADD,PAYTO)^IBCBB0 ^IBCBB1 WARN^IBCBB11 ($$COB,$$COBN,$$FT,$$INSADDR,$$INSDEM,$$NOPUNCT,$$POLICY,$$PTADDR)^IBCEF $$CURR^IBCEF2 $$TXMT^IBCEF4 $$NAME^IBCEFG1 $$BPP^IBCNS2 $$PTCOV^IBCNSU3 $$ICD10S^IBCU4 ($$MCRWNR,$$REQMRA)^IBEFUNC |
| VA FileMan | 3 | H^%DTC $$GET1^DIQ ^DIR |
| Accounts Receivable | 1 | $$CATN^PRCAFN |
| 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 |
|---|---|---|
| GVAR | ;set up variables for mccr
|
|
| EN | ;Entry to check for errors
|
|
| EDIT(IBIFN) | ; Run edits from within the billing edit screens
|
|
| TOB(IBND0) | ;
; IBND0 = the 0-node of the bill (file 399) |
|
| ERR(Z) | ; update IBER variable from the above insurance checks
; Z is the IB error code# for the primary insurance error |
|
| DTCK(DATE) | ; IB*2.0*623 - check for valid date
|
| Name | Field # of Occurrence |
|---|---|
| H^%DTC | DTCK+2 |
| $$GET1^DIQ | EN+11, EN+12, EN+14, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23 , EN+24, EN+25, EN+26, EN+27, EN+28, EN+29, EN+190 |
| ^DIR | EDIT+4 |
| EDITS^IBCB2 | EDIT+3 |
| BP^IBCBB0 | EN+76 |
| ICD10V^IBCBB0 | EN+73 |
| PAYERADD^IBCBB0 | EN+200 |
| PAYTO^IBCBB0 | EN+79 |
| ^IBCBB1 | EN+201 |
| WARN^IBCBB11 | EN+64 |
| $$COB^IBCEF | EN+65 |
| $$COBN^IBCEF | EN+63, EN+146, EN+156, EN+166, EN+176, EN+215 |
| $$FT^IBCEF | EN+54, EN+60 |
| $$INSADDR^IBCEF | EN+138 |
| $$INSDEM^IBCEF | EN+95 |
| $$NOPUNCT^IBCEF | EN+114, EN+115, EN+128, EN+139, EN+144, EN+154, EN+164, EN+174, EN+194, EN+195 , EN+196, EN+197 |
| $$POLICY^IBCEF | EN+112, EN+128, EN+134 |
| $$PTADDR^IBCEF | EN+187, EN+194, EN+195, EN+196, EN+197 |
| $$CURR^IBCEF2 | EN+49, EN+65 |
| $$TXMT^IBCEF4 | EN+49, EN+209 |
| $$NAME^IBCEFG1 | EN+119 |
| $$BPP^IBCNS2 | EN+66 |
| $$PTCOV^IBCNSU3 | EN+57 |
| $$ICD10S^IBCU4 | EN+70 |
| $$MCRWNR^IBEFUNC | EN+49, EN+65 |
| $$REQMRA^IBEFUNC | EN+211 |
| $$CATN^PRCAFN | EN+43 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^DGCR(399 - [#399] | GET1^DIQ |
| ^HL(779.004 - [#779.004] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | GVAR+1, EN+57, EN+63, EN+65, EN+93, EN+209, EN+212 |
| ^DGCR(399.1 - [#399.1] | TOB+2 |
| ^DGCR(399.3 - [#399.3] | EN+41, EN+42, EN+43 |
| ^DIC(36 - [#36] | EN+63 |
| ^DPT - [#2] | EN+9, EN+13 |
| ^TMP($J | GVAR+9!, EN+3! |
| ^UTILITY("VADM" | EN+94!, EN+96! |
| ^UTILITY("VAPA" | EN+94!, EN+96!, EN+184!, EN+198! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %Y | DTCK+3 |
| CAS | EN+107~, EN+139*, EN+148, EN+158, EN+168, EN+178 |
| CODE | EN+189~, EN+190*, EN+191 |
| DATE | DTCK~, DTCK+1, DTCK+2 |
| >> DFN | GVAR+2*, EN+8, EN+9, EN+11, EN+12, EN+13, EN+14, EN+57 |
| DIR | EDIT+1~, EDIT+4! |
| DIR("A" | EDIT+4* |
| DIR(0 | EDIT+4* |
| FN | EN+107~, EN+113*, EN+115*, EN+120* |
| >> I | GVAR+1* |
| >> IBARTP | EN+43*, EN+45 |
| >> IBAT | GVAR+4*, EN+40, EN+41, EN+42*, EN+43 |
| >> IBAU | GVAR+7* |
| >> IBBNO | GVAR+2* |
| IBC | EN+1~, EN+187*, EN+188, EN+190 |
| >> IBCL | GVAR+3*, EN+70 |
| IBDISP | EDIT+1~, EDIT+2* |
| IBDX | EN+1~, EN+13*, EN+14 |
| IBDX1 | EN+1~, EN+14*, EN+15 |
| >> IBER | EN+5*, EN+8*, EN+9*, EN+11*, EN+12*, EN+15*, EN+17*, EN+18*, EN+19*, EN+20* , EN+21*, EN+22*, EN+23*, EN+24*, EN+25*, EN+26*, EN+27*, EN+28*, EN+29*, EN+34* , EN+35*, EN+37*, EN+40*, EN+41*, EN+42*, EN+45*, EN+48*, EN+57*, EN+60*, EN+64* , EN+66*, EN+67*, EN+70*, EN+100*, EN+194*, EN+195*, EN+196*, EN+197*, EN+212*, EN+218* , ERR+4, ERR+5* |
| IBERRNO | ERR+2~, ERR+3*, ERR+4, ERR+5 |
| >> IBEU | GVAR+7* |
| >> IBEVDT | GVAR+2*, EN+34, EN+35, EN+37 |
| >> IBFDT | GVAR+5*, EN+70 |
| IBFL | EN+2~ |
| IBFOR | EN+1~, EN+186*, EN+191*, EN+196, EN+197 |
| >> IBFT | GVAR+4* |
| >> IBFY | GVAR+6* |
| >> IBFYC | GVAR+6* |
| IBIFN | GVAR+1, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23, EN+24, EN+25 , EN+26, EN+27, EN+28, EN+29, EN+49, EN+54, EN+57, EN+60, EN+63, EN+65 , EN+66, EN+73, EN+76, EN+79, EN+93, EN+95, EN+112, EN+128, EN+134, EN+138 , EN+146, EN+156, EN+166, EN+176, EN+187, EN+194, EN+195, EN+196, EN+197, EN+200 , EN+209, EN+211, EN+212, EN+215, EDIT~ |
| IBISEQ | EN+1~, EN+92*, EN+93, EN+95, EN+112, EN+128, EN+134, EN+138, EN+146, EN+156 , EN+166, EN+176, ERR+3 |
| >> IBLOC | GVAR+3* |
| >> IBMRA | EN+49*, EN+58 |
| IBND0 | GVAR+2, GVAR+3, GVAR+4, GVAR+8, EN+5, TOB~, TOB+2 |
| >> IBNDM | EN+67 |
| >> IBNDMP | EN+66 |
| >> IBNDS | GVAR+7 |
| >> IBNDU | GVAR+5 |
| >> IBNDU1 | GVAR+6 |
| IBNOFIX | EDIT+1~, EDIT+2* |
| IBQ | EN+1~ |
| IBQUIT | EN+1~ |
| >> IBRU | GVAR+7* |
| >> IBST | GVAR+4* |
| >> IBTC | GVAR+6* |
| >> IBTDT | GVAR+5*, EN+70 |
| >> IBTF | GVAR+3* |
| >> IBTOB | GVAR+8* |
| >> IBTOB12 | GVAR+8* |
| IBVIEW | EDIT+1~, EDIT+2* |
| >> IBWHO | GVAR+4*, EN+45, EN+48, EN+52, EN+67 |
| IBXDATA | EN+1~ |
| IBXERR | EN+1~ |
| IBXSAVE | EN+1~ |
| IBZ | EN+61~, EN+62*, EN+63*, EN+64 |
| IBZPRC92 | EN+1~ |
| IDDATA | EN+1~, EN+95*, EN+98, EN+100, EN+102 |
| INNAME | EN+107~, EN+112*, EN+113, EN+119 |
| INSONBIL | EN+55~, EN+57! |
| INSONBIL( | EN+57* |
| LN | EN+107~, EN+113*, EN+114*, EN+118, EN+119*, EN+120, EN+121*, EN+123 |
| LOOP | EN+55~, EN+57* |
| PTREL | EN+107~, EN+134*, EN+135, EN+146, EN+156, EN+166, EN+176 |
| SFA | EN+107~, EN+138*, EN+139, EN+144, EN+154, EN+164, EN+174 |
| SUBID | EN+107~, EN+128*, EN+129 |
| U | EN+63, EN+66, EN+93, EN+98, EN+100, EN+102, EN+120, EN+121, EN+139, EN+144 , EN+154, EN+164, EN+174, EN+212, TOB+2 |
| X | EDIT+1~, DTCK+2* |
| Y | EDIT+1~ |
| Z | EN+61~, EN+63*, ERR~, ERR+3 |
