IBCNSC ;ALB/NLR - INSURANCE COMPANY EDIT ;6/1/05 9:42am
Source file <IBCNSC.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 7 | EN^DDIOL ^DIC ^DIE ^DIK CLEAN^DILF $$GET1^DIQ ^DIR |
| Integrated Billing | 6 | INSOCAS^IBCNINSC ($$ADD2,CLAIMS1,CLAIMS2)^IBCNSC0 (MAIN,PARAM,PAYER,REMARKS,SYN)^IBCNSC01 DISP^IBCNSC02 (PRESCR,PROVID)^IBCNSC1 SET^IBCNSP |
| Kernel | 3 | $$UP^XLFSTR DISP^XQORM1 $$KCHK^XUSRB |
| List Manager | 2 | EN^VALM (CLEAN,KILL,SET)^VALM10 |
| 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 |
|---|---|---|
| EN | ; -- main entry point for IBCNS INSURANCE COMPANY, IBCNS VIEW INS CO
|
|
| ENQ | ||
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| BLD | ; -- list builder
|
|
| APPEALS | ;
|
|
| APPEALAD | ; KDM US2487 IB*2.0*592 call in tag from IBCNSI
|
|
| INQUIRY | ;
|
|
| INQAD | ; KDM US2487 IB*2.0*592 call in tag from IBCNSI
|
|
| DENTAL | ; Display Dental Claims office information
|
|
| DENTALAD | ; KDM US2487 IB*2.0*592 call in tag from IBCNSI
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| INSCO | ; -- select insurance company
|
|
| INSCOQ | ;
|
|
| BLANK(LINE) | ; -- Build blank line
|
|
| EDIKEY() | ; input transform code to determine if user is allowed to edit
; certain fields in the insurance company file |
|
| EDIKEYX | ;
|
|
| DUPQUAL(IBCNS,QUAL,FIELD) | ; input transform to make sure that the same qualifier is not used twice for
; payer secondary IDs. There are two sets of fields in file 36 that can not be duplicated. ; 6.01 EDI INST SECONDARY ID QUAL(1) can not be the same as 6.03 EDI INST SECONDARY ID QUAL(2) ; 6.05 EDI PROF SECONDARY ID QUAL(1) can not be the same as 6.07 EDI PROF SECONDARY ID QUAL(2) ; ; Input: ; IBCNS is the insurance company internal number ; QUAL is the internal code of the value being input. ; FIELD is the field it is being compare with. |
|
| ALLOWED(IBAC) | ; input transform to make sure that Administrative Contractor is set up in the site parameters.
; it will be set up for either commercial or medicare. Since the type is defined my the plan and we are at a higher ; level in the Insurance Company, we have to allow both. ; called from ^DD(36.015,.01,0) and ^DD(36.016,.01,0) |
|
| CLEANIDS(INSIEN) | ;
; INSIEN=Insurance Company IEN |
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | EDIKEY+4, EDIKEY+5 |
| ^DIC | INSCO+18 |
| ^DIE | INSCO+23 |
| ^DIK | CLEANIDS+9 |
| CLEAN^DILF | DUPQUAL+18 |
| $$GET1^DIQ | DUPQUAL+17, ALLOWED+15 |
| ^DIR | CLEANIDS+15 |
| INSOCAS^IBCNINSC | INSCO+6 |
| $$ADD2^IBCNSC0 | APPEALAD+1, INQAD+1, DENTALAD+3 |
| CLAIMS1^IBCNSC0 | BLD+10 |
| CLAIMS2^IBCNSC0 | BLD+11 |
| MAIN^IBCNSC01 | BLD+9 |
| PARAM^IBCNSC01 | BLD+8 |
| PAYER^IBCNSC01 | BLD+18 |
| REMARKS^IBCNSC01 | BLD+19 |
| SYN^IBCNSC01 | BLD+20 |
| DISP^IBCNSC02 | BLD+16 |
| PRESCR^IBCNSC1 | BLD+12 |
| PROVID^IBCNSC1 | BLD+17 |
| SET^IBCNSP | APPEALAD+2, APPEALAD+4, APPEALAD+5, APPEALAD+6, APPEALAD+8, APPEALAD+10, APPEALAD+11, APPEALAD+12, INQAD+2, INQAD+4 , INQAD+5, INQAD+6, INQAD+8, INQAD+10, INQAD+11, INQAD+12, DENTALAD+1, DENTALAD+5, DENTALAD+6, DENTALAD+7 , DENTALAD+10, DENTALAD+11, DENTALAD+12 |
| EN^VALM | EN+4, EN+5 |
| CLEAN^VALM10 | EXIT+2 |
| KILL^VALM10 | BLD+6 |
| SET^VALM10 | BLANK+1 |
| $$UP^XLFSTR | INSCO+17 |
| DISP^XQORM1 | HELP+1 |
| $$KCHK^XUSRB | EDIKEY+3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(36 - [#36] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | HDR+1, HDR+2, APPEALAD+4, INQAD+4, DENTALAD+5, INSCO+22, CLEANIDS+5 |
| ^DIC(5 - [#5] | APPEALAD+10, INQAD+10, DENTALAD+10 |
| ^IBE(350.9 - [#350.9] | ALLOWED+15 |
| ^IBE(355.2 - [#355.2] | HDR+2 |
| ^TMP("IBCNSC" | BLD+5!, BLD+21 |
| ^TMP("XQORS" | EN+2! |
| Name | Field # of Occurrence |
|---|---|
| ^( | CLEANIDS+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | INSCO+3~, INSCO+6, INSCO+7, INSCO+8, INSCO+9, INSCO+17 |
| ARRAY("" | INSCO+7 |
| BLNKI | BLD+3~, BLD+7* |
| CLEANUP | CLEANIDS+3~, CLEANIDS+10*, CLEANIDS+11 |
| DA | INSCO+23*, CLEANIDS+6~, CLEANIDS+7* |
| DA(1 | CLEANIDS+7* |
| DATA | CLEANIDS+3~, CLEANIDS+5* |
| DIC | INSCO+3~, INSCO+15*, INSCO+18!, INSCOQ+1! |
| DIC(0 | INSCO+15* |
| DIE | INSCO+23*! |
| DIK | CLEANIDS+6~, CLEANIDS+8* |
| DIR | CLEANIDS+12~ |
| DIR("A" | CLEANIDS+13*, CLEANIDS+14* |
| DIR(0 | CLEANIDS+14* |
| DLAYGO | INSCO+3~, INSCO+15* |
| DR | INSCO+3~, INSCO+23* |
| DTOUT | INSCO+3~ |
| DUOUT | INSCO+3~ |
| DUP | DUPQUAL+16~, DUPQUAL+17*, DUPQUAL+19 |
| FIELD | DUPQUAL~, DUPQUAL+17 |
| IB1ST | EN+1~ |
| IBAC | ALLOWED~, ALLOWED+15 |
| IBACMAX | BLD+3~, APPEALS+8, INQUIRY+9, DENTAL+4 |
| IBADD | APPEALS+1~, APPEALAD+8*, APPEALAD+10, APPEALAD+11, APPEALAD+12, INQUIRY+2~, INQAD+8*, INQAD+10, INQAD+11, INQAD+12 , DENTAL+3~, DENTALAD+8*, DENTALAD+10, DENTALAD+11, DENTALAD+12, DENTALAD+14, DENTALAD+15 |
| IBCHANGE | EN+3*, EXIT+1! |
| IBCNS | EN+2!, HDR+1, HDR+2, INIT+3, APPEALAD+1, INQAD+1, DENTALAD+3, EXIT+1!, INSCO+4, INSCO+7* , INSCO+9*, INSCO+13!, INSCO+19!, INSCO+20*, INSCO+22, INSCO+23, INSCO+25!, DUPQUAL~, DUPQUAL+15, DUPQUAL+17 , ALLOWED+15 |
| IBCNS14 | APPEALS+1~, APPEALAD+1*, APPEALAD+4, APPEALAD+5, APPEALAD+6, APPEALAD+8, APPEALAD+10, APPEALAD+11, APPEALAD+12 |
| IBCNS15 | INQUIRY+2~, INQAD+1*, INQAD+4, INQAD+5, INQAD+6, INQAD+8, INQAD+10, INQAD+11, INQAD+12 |
| IBCNS19 | DENTAL+3~, DENTALAD+3*, DENTALAD+5, DENTALAD+6, DENTALAD+7, DENTALAD+10, DENTALAD+11, DENTALAD+12 |
| IBCNS3 | INSCO+3~ |
| IBFASTXT | EN+2!, EXIT+1! |
| >> IBVIEW | EN+4, INSCO+13 |
| INSIEN | CLEANIDS~, CLEANIDS+5, CLEANIDS+7, CLEANIDS+8 |
| >> IORVOFF | APPEALAD+2, INQAD+2, DENTALAD+1 |
| >> IORVON | APPEALAD+2, INQAD+2, DENTALAD+1 |
| LINE | BLANK~, BLANK+1 |
| LOOP | CLEANIDS+3~, CLEANIDS+5*, CLEANIDS+7 |
| NODE | CLEANIDS+3~, CLEANIDS+4*, CLEANIDS+5, CLEANIDS+8 |
| OFFSET | APPEALS+1~, APPEALS+8*, APPEALAD+2, APPEALAD+4, APPEALAD+5, APPEALAD+6, APPEALAD+7~*, APPEALAD+8, APPEALAD+10, APPEALAD+11 , APPEALAD+12, INQUIRY+2~, INQUIRY+9*, INQAD+2, INQAD+4, INQAD+5, INQAD+6, INQAD+7~*, INQAD+8, INQAD+10 , INQAD+11, INQAD+12, DENTAL+3~, DENTAL+4*, DENTALAD+1, DENTALAD+5, DENTALAD+6, DENTALAD+7, DENTALAD+8*, DENTALAD+10 , DENTALAD+11, DENTALAD+12 |
| OK | EDIKEY+2~*, EDIKEY+3*, EDIKEYX+1 |
| QUAL | DUPQUAL~, DUPQUAL+14, DUPQUAL+19 |
| SCR | INSCO+3~, INSCO+5*, INSCO+6 |
| START | APPEALS+1~, APPEALS+8*, APPEALAD+2, APPEALAD+4, APPEALAD+5, APPEALAD+6, APPEALAD+8, APPEALAD+10, APPEALAD+11, APPEALAD+12 , INQUIRY+2~, INQUIRY+9*, INQAD+2, INQAD+4, INQAD+5, INQAD+6, INQAD+8, INQAD+10, INQAD+11, INQAD+12 , DENTAL+3~, DENTAL+4*, DENTALAD+1, DENTALAD+5, DENTALAD+6, DENTALAD+7, DENTALAD+10, DENTALAD+11, DENTALAD+12, DENTALAD+14 , DENTALAD+15 |
| U | CLEANIDS+5 |
| >> VALMBG | INIT+2* |
| >> VALMCNT | INIT+2*, BLD+21* |
| VALMEVL | EN+2! |
| >> VALMHDR(1 | HDR+1* |
| >> VALMHDR(2 | HDR+2* |
| VALMQUIT | EN+2!, INIT+1!, INIT+3, EXIT+1!, INSCO+4, INSCO+8*, INSCO+25* |
| X | HELP+1*, INSCO+3~, INSCO+17* |
| XQORS | EN+2! |
| Y | INSCO+3~, INSCO+19, INSCO+20 |
