IBNCPDPI ;DALOI/SS - ECME SCREEN INSURANCE VIEW AND UTILITIES ;3/6/08 16:21
Source file <IBNCPDPI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(DFN) | ;
|
|
| INIT | ; -- set up initial variables
|
|
| HDR | ; -- screen header for initial screen
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| SELINSUR(PRMTMSG,DFLTVAL) | ;
|
|
| RNB(IBRX,IBFL) | ; Return the Claims Tracking Reason Not Billable for a Prescription
; API for ECME (DBIA #4729) ; Input: IBRX - prescription ien (required) ; IBFL - fill# (required) ; Output: function value ; [1] RNB ien (ptr to file# 356.8) ; [2] RNB description ; [3] RNB ECME flag ; [4] RNB ECME paper flag ; [5] RNB code ; [6] RNB active/inactive flag ; or 0 if no CT entry or if CT entry is billable |
|
| RNBX | ;
|
|
| BILLINFO(IBRX,IBREF,IBPSEQ) | ;
|
|
| TPJI(DFN) | ; entry point for TPJI option of the ECME User Screen
|
|
| INSNM(IBINSIEN) | ; api to return insurance company name
|
|
| ACPHONE() | ; API to return the default Pay-to provider phone#
|
|
| INSPL(IBPL) | ; api to return the insurance company IEN from the plan
; passed in. |
|
| MXTRNS(IBPLID) | ; api to return MAXIMUM NCPDP TRANSACTIONS for a plan
; Input: IBPLID = ID from the PLAN file. ; Returns: Numeric value from field 10.1 of Plan file ; Default's to 1 if undefined. |
|
| EPHON() | ; API to return if ePharmacy is on within IB
; 1 FOR Active ; 0 FOR Not Active |
| FileNo | Call Tags |
|---|---|
| ^DIC(36 - [#36] | Classic Fileman Calls |