IBCNSU1 ;ALB/AAS - INSURANCE UTILITY ROUTINE ;19-MAY-93
Source file <IBCNSU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RCHK(X) | ; -- Input transform for different revenue codes in file 36
; Returns 1 if passes, 0 if not pass input transform |
|
| RCHKQ | ||
| BU(DFN,IBCPOL,IBYR,IBCDFN,IBASK) | ; -- Return entry in Benefits Used file
; Input: IBCDFN = pointer to patient file policy (2.312) ; DFN = patient pointer ; IBCPOL = pointer to health insurance policy file ; IBYR = fileman internal date, year will be calendar ; year of the internal date, Default = dt ; IBASK = 1 if want to ask okay to add new entry |
|
| BUQ | ||
| ADDBU(DFN,IBCPOL,IBYR,IBCDFN) | ; -- add entries to Benefits Used file
; Input: DFN = pointer to patient file ; IBCDFN = point to patient policy (2.312) ; IBCPOL = pointer to health insurance policy file ; IBYR = fileman internal date, year will be calendar ; year of the internal date, Default = dt |
|
| ADDBUQ | ||
| VET() | ; -- Input Transform for sub-file 2.312, Name of Insured (#17)
; Quit 1 to stuff Patient Name ; Quit 0 to not stuff and allow editing |
|
| VETQ | ||
| SUBID | ; -- Input Transform for sub-file #2.312, Subscriber ID (#1)
|
|
| HICN(DFN) | ; -- return Patient's Medicare HIC number
; Return HICN of Medicare WNR Part A or Part B ; Return -1 if none exits |
|
| HICNQ | ||
| CHKQUAL(DFN,IEN,QUAL,PC1,PC2) | ; check for duplicate qualifiers for patient
; and subscriber secondary ID's. All parameters required. |
|
| CHKQUALX | ;
|
|
| CQ1 | ; specific error message#1
|
|
| CQ2 | ; specific error message#2
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(355.5 - [#355.5] | Classic Fileman Calls |
