IBEMTSCU ;ALB/RFJ-print billable types for visit copay ;23 Nov 01
Source file <IBEMTSCU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EFFDT() | ;effect date Visit Copay 2
|
|
ADD(IBSTOPCD,IBEFFDT,IBBILTYP,IBDESC,IBOVER) | ; add a stop code to file 352.5
; ibstopcd = 3 or 6 digit stop code to add ; ibeffdt = effective date, internal fileman form (ex:3011206) ; if effective date is not passed, it uses today (dt) ; ibbiltyp = billable type (B=basic, S=specialty, N=non-billable) ; default is non-billable if a B or S is not passed ; ibdesc = description of stop code ; ibover = if the code belongs to Override table ; returns 1 if added, -#^error if not added |
|
DIQ407(DA,DR) | ; diq call to retrieve data for dr fields in file 40.7
|
|
ISINACT(IBCODE) | ;
|
|
INACTIVE(IBSTCODE) | ; return 1 if inactive in file 40.7
; also, return ibscdata(da for stop code entries in 40.7) |
|
ASK() | ; ask if the user wants to enter a stop code or select a clinic
; return will be what entry point to use |
|
ASKSCODE(IBPROMPT) | ; ask and return selected stop code from file 352.5
; ibprompt = optional prompt to display |
|
STOPSCRN(IBX) | ; screens out so only active and current ones are selectable
|
|
ASKSC(IBVISTDT) | ; ask for a clinic to look up the stop code
; it will prompt for a clinic selection, and return the stop ; code number in 352.5 associated with the clinic |
|
GETTYPE(IBSTOPCD,IBVISTDT) | ; lookup billable type
; input ibstopcd = stop code (.01 field entry in file 352.5) ; ibvistdt = visit date in fileman format |
|
GETSC(IBSL,IBVISTDT) | ; return the ien of the entry in file 352.5.
; ibsl is the clinic stop code in 409.68. find the matching ; entry in file 352.5. the 352.5 entry is populated in the 350 field ; for reference using the ibstopda variable ; input ibsl = 409.68:ien |
|
GET3525(IBCODE1,IBCODE2,IBVISTDT) | ;
|
|
OPT | ; perform outpatient copay edits for visits after 11/29/01
; called from IBECEA3 |
|
GETCRED(IBCLIN) | ;
|
|
GETCODE(IB407) | ;
; get the stop code in IBSCDATA(40.7,IB407,1,"E") |
|
ISSEC(IBCODE) | ;check if the code has secondary restriction type in DSS IB*502
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(352.5 - [#352.5] | Classic Fileman Calls |
^DIC(40.7 - [#40.7] | Classic Fileman Calls |
^SC - [#44] | Classic Fileman Calls |