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~ |