Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBNCPEV3

Package: Integrated Billing

Routine: IBNCPEV3


Information

IBNCPEV3 ;ALB/DMB - ECME RXS WITH NON-BILLABLE STATUS ;5/22/08

Source Information

Source file <IBNCPEV3.m>

Entry Points

Name Comments DBIA/ICR reference
COLLECT(BEGDT,ENDDT,MWC,RELNRL,IBDRUG,DRUGCLS,ALLRCNT,IBPHARM,IBINS,IBNBSTS,IBELIG1,IBGLTMP,IBPAT,IBBILL,IBMIN,IBMAX) ;
; Compile the data for the new Non-Billable Status report
; Input:
; BEGDT - Beginning Date
; ENDDT - Ending Date
; MWC - A:All; M:Mail; W:Window; C:CMOP, if multiple entries MWC="C,M"
; RELNRL - 1:All; 2:Released; 3:Not Released
; IBDRUG - 0:All; DRUG to report on (ptr to #50), if multiple entries IBDRUG=ptr,ptr,...
; DRUGCLS - 0:All; DRUG CLASS to report on (ptr to #50.5), if multiple entries DRUGCLS=ptr,ptr,...
; ALLRCNT - A:All; R:Most recent
; IBPHARM/IBPHARM(ptr) - 0:All pharmacies; 1:Array of IENs of pharmacies
; IBINS/IBINS(ptr) - 0:All insurances or list of file 36 IENs
; IBNBSTS/IBNBSTS(x) - 0:All; 1:Array of Non-Billable Status
; IBELIG1/IBELIG1(x) - 0:All; 1:Array of multiple eligibilities
; IBGLTMP - Temporary Global Storage (returned with extracted data)
; IBPAT - 0:All; ptr to #2 PATIENT, IBPAT=ptr,ptr,...
; IBBILL - 0:All; 1:Range of Billed Amount - then check IBMIN and IBMAX
; IBMIN=minimum billed amount entered, default is 0
; IBMAX=maximum billed amount entered, default is 999999
DRUGDIE(IEN,FLD,FORMAT,IBARR) ;
; Return field values for Drug file
; Function returns field data if one field is specified. If
; multiple fields, the function will return "" and the field
; values are returned in IBARR
; Example: W $$DRUGDIE^IBNCPEV3(134,25,"E",.ARR)
; IEN - IEN of DRUG FILE #50
; FLD - Field Number(s) (like .01)
; FORMAT - Specifies internal or external value of returned field
; - optional, defaults to "I"
; IBARR - Array to return value(s). Optional. Pass by reference.
; See EN^DIQ documentation for variable DIQ
CLSNAME(CLASS,IBLEN) ;
; Get Drug Class Name
GETINS(IEN,IEN1) ;
CHKINS(LIST,INS) ;
COST(RX,FILL) ;
; Calculate Drug Cost for RX/Fill
; Input:
; RX: Prescription IEN
; FILL: Fill Number
; Output:
; Drug Cost
GETDRGCL(BP50)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$DRUGDIE^IBNCPEV3(134,25,"E",.ARR)
  • Line Location: DRUGDIE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call