IBCNEUT4 ;DAOU/ESG - eIV MISC. UTILITIES ;17-JUN-2002
Source file <IBCNEUT4.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 4 | $$SYMBOL^IBCNBLL $$PYRAPP^IBCNEUT5 $$ERROR^IBCNEUT8 $$PYRDEACT^IBCNINSU |
| VA FileMan | 2 | ^DIE $$EXTERNAL^DILFD |
| Kernel | 1 | $$FMTE^XLFDT |
| 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 |
|---|---|---|
| ACTIVE(INSDA) | ; Is this insurance company currently active? 1:yes or 0:no
; Insurance company name returned in the second piece. ; Input: INSDA - insurance company ien |
|
| ACTIVEX | ;
|
|
| EXCLUDE(NAME) | ; This function determines if we should exclude the insurance
; company based on the name. ; This function returns 1 if we should exclude the insurance company. ; This function returns 0 if we should not exclude it (i.e. include it) |
|
| EXCLUDX | ;
|
|
| CLEAR(DA,EDITED,FORCE) | ; This procedure will clear the eIV status field from an
; Insurance Buffer entry (pass in the internal entry number of the ; buffer entry). If the FORCE variable is not passed then the eIV ; status will only be cleared if the existing status is an error status |
|
| CLEARX | ;
|
|
| INFO(IBBUFDA) | ; Return original and current buffer data
; This procedure will retrieve the following data from the buffer and ; from the transmission queue file. The buffer holds the current data ; and the TQ file holds the original buffer data. ; Input ; IBBUFDA - buffer internal entry number ; Output ; a pieced string as follows ; [1] Has this buffer entry been transmitted? 1/0 ; [2] Current buffer source of information (external) ; [3] Current buffer source of information (internal) ; [4] Current buffer insurance company name ; [5] Current buffer group number ; [6] Current buffer group name ; [7] Current buffer subscriber ID ; [8] Original buffer insurance company name ; [9] Original buffer group number ; [10] Original buffer group name ; [11] Original buffer subscriber ID |
|
| INFOX | ;
|
|
| VALID(INSIEN,PAYIEN,PAYID,SYMIEN) | ; Validate an Ins Co IEN
; Input parameter: INSIEN - Ins co IEN, passed by value ; Output parameters: PAYIEN, PAYID, SYMIEN, passed by reference |
|
| VALIDX | ;
|
|
| PAYER(PAYIEN) | ;
; Entry pt for Most Pop Payer (called by POP^IBCNEDE4) ; IB*2*601/DM comments and adjust return to add PAYIEN ; Additionally, called from INSERROR^IBCNEUT3() for MBI Inquiries ; Returned value consists of the following "^"-delimited pcs: ; [1] The IEN of the IIV SYMBOL File (#365.15) entry for ; the first error condition encountered by the function. ; This is only present if a valid Payer was not found. ; [2] Payer IEN if a Payer was found, "" otherwise ; [3] National ID if a Payer was found |
|
| VALPYR(INSNM) | ;
; Payer Val'n - note: PAYIEN (payer IEN) must be set ; If INSNM="" val'n is for Most Pop Payer |
|
| MULTNAME(TEXT,LIST) | ; Function to return an error message with a list of multiple names
; Input parameters: ; TEXT - Error text to display ; LIST - List of items, can be either a list of ins co ; names or National ID names ; Output parameter: Function value - Formatted list of items in 1 string |
| FileNo | Call Tags |
|---|---|
| ^IBA(355.33 - [#355.33] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | ACTIVE+6, ACTIVE+9, ACTIVEX+1, VALID+5, VALID+10 |
| ^IBA(355.33 - [#355.33] | INFO+23, INFO+24, INFO+25, INFO+26 |
| ^IBCN(365 - [#365] | INFO+38, INFO+39 |
| ^IBCN(365.1 - [#365.1] | INFO+41, INFO+42 |
| ^IBE(365.12 - [#365.12] | VALPYR+7, VALPYR+10, VALPYR+16, VALPYR+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CLEAR+12~ |
| ACTFLG | ACTIVE+3~, ACTIVE+4*, ACTIVE+10*, ACTIVEX+1 |
| APPDATA | VALID+3~, PAYER+11~, VALPYR+18*, VALPYR+24, VALPYR+25 |
| APPIEN | VALID+3~, PAYER+11~, VALPYR+13*, VALPYR+14, VALPYR+16, VALPYR+18 |
| ARRAY | PAYER+14~ |
| COLIST | MULTNAME+6~, MULTNAME+7*, MULTNAME+10*, MULTNAME+11*, MULTNAME+13, MULTNAME+14*, MULTNAME+16 |
| D | CLEAR+12~ |
| D0 | CLEAR+12~ |
| DA | CLEAR~, CLEAR+13, CLEAR+15 |
| DATA | INFO+20~, INFO+21*, INFO+27*, INFO+28*, INFO+29*, INFO+30*, INFO+31*, INFO+32*, INFO+33*, INFO+44* , INFO+45*, INFO+46*, INFO+47*, INFO+51*, INFOX+1 |
| DEACT | VALPYR+3~, VALPYR+28*, VALPYR+29 |
| DI | CLEAR+12~ |
| DIC | CLEAR+12~ |
| DIE | CLEAR+12~, CLEAR+16* |
| DISYS | CLEAR+12~, INFO+20~ |
| DQ | CLEAR+12~ |
| DR | CLEAR+12~, CLEAR+16* |
| EDITED | CLEAR~, CLEAR+18* |
| EXCL | EXCLUDE+6~, EXCLUDE+7*, EXCLUDE+10*, EXCLUDE+13*, EXCLUDX+1 |
| FORCE | CLEAR~, CLEAR+14*, CLEAR+15 |
| FOUND | INFO+20~, INFO+37*, INFO+38, INFO+48*, INFO+51 |
| I | MULTNAME+6~, MULTNAME+8*, MULTNAME+10 |
| IB0 | INFO+20~, INFO+24*, INFO+28, INFO+29 |
| IB20 | INFO+20~, INFO+25*, INFO+30 |
| IB90 | INFO+20~, INFO+26*, INFO+31, INFO+32, INFO+33 |
| IBBUFDA | INFO~, INFO+22, INFO+23, INFO+24, INFO+25, INFO+26, INFO+38 |
| INSDA | ACTIVE~, ACTIVE+5, ACTIVE+6, ACTIVE+9, ACTIVEX+1 |
| INSDATA | ACTIVE+3~, ACTIVE+6*, ACTIVE+7, ACTIVE+8 |
| INSIEN | VALID~, VALID+5, VALID+6, VALID+10 |
| INSNAME | VALID+3~, VALID+5*, VALID+6, VALID+8, VALID+11, VALID+12 |
| INSNM | VALPYR~, VALPYR+5*, VALPYR+16, VALPYR+24, VALPYR+25, VALPYR+29 |
| LIST | MULTNAME~ |
| LIST( | MULTNAME+8 |
| NAME | EXCLUDE~, EXCLUDE+10, EXCLUDE+13, MULTNAME+6~, MULTNAME+7*, MULTNAME+8*, MULTNAME+10, MULTNAME+11 |
| PAYID | VALID~, PAYER+10~, PAYER+17*, PAYER+19, VALPYR+7*, VALPYR+8 |
| PAYIEN | VALID~, VALID+10*, VALID+11, PAYER~, PAYER+19, VALPYR+7, VALPYR+8, VALPYR+10, VALPYR+13, VALPYR+16 , VALPYR+18, VALPYR+28 |
| PAYNM | VALPYR+3~, VALPYR+10*, VALPYR+16, VALPYR+24, VALPYR+25, VALPYR+29 |
| RESPIEN | INFO+20~, INFO+37*, INFO+38*, INFO+39 |
| SYMIEN | VALID~, VALID+6*, VALID+8*, VALID+11*, PAYER+10~, PAYER+17*, PAYER+19, VALPYR+8*, VALPYR+14*, VALPYR+16* , VALPYR+24*, VALPYR+25*, VALPYR+29* |
| TEXT | MULTNAME~, MULTNAME+7 |
| TOOLONG | MULTNAME+6~, MULTNAME+7*, MULTNAME+8, MULTNAME+14* |
| TQDATA | INFO+20~, INFO+41*, INFO+43 |
| TQDATA1 | INFO+20~, INFO+42*, INFO+44, INFO+45, INFO+46, INFO+47 |
| TQIEN | INFO+20~, INFO+39*, INFO+40, INFO+41, INFO+42 |
| U | ACTIVE+8, ACTIVE+9, ACTIVEX+1, INFO+27, INFO+28, INFO+29, INFO+30, INFO+31, INFO+32, INFO+33 , INFO+39, INFO+44, INFO+45, INFO+46, INFO+47, INFO+51, VALID+5, VALID+10, PAYER+19, VALPYR+7 , VALPYR+10, VALPYR+24, VALPYR+25, VALPYR+29 |
| X | CLEAR+12~ |