IBNCPEV3 ;ALB/DMB - ECME RXS WITH NON-BILLABLE STATUS ;5/22/08
Source file <IBNCPEV3.m>
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) |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DIC(36 - [#36] | GET1^DIQ |