IBCF2 ;ALB/ARH - HCFA 1500 19-90 DATA (gather demographics) ;12-JUN-93
Source file <IBCF2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEV | ; IBIFN required
|
|
| Q | ||
| EN | ;begin gathering data for printing of HCFA 1500
|
|
| PAT | ||
| PATADD | ||
| NEXT | ||
| END | ;set print status
|
|
| ARRAY | ; Added "10D" for patch 488
|
|
| DATE(X,Y2K,NULL) | ; returns date in form format
; X = date in FM format, Y2K = 1 if 4 digit year required ; If NULL = 1, then the delimiter should be null, not space ; Format is MM DD YY or MMDDYY or MM DD YYYY or MMDDYYYY |
|
| STATE(X) | ; returns 2 letter abbreviation for state pointer
|
|
| ENF | ;Output the bill via formatter
|
|
| NAME31(IBIFN,IBZNM) | ; Returns the name of the provider
; formatted to print in Box 31 on the HCFA 1500. Max length is 21 ; IBZNM = PROVIDER NAME in last,first<space>middle^file 200 ien^cred |
|
| NAMEQ | ||
| DATE31(IBDT,IBIFN) | ; Returns date to print in box 31 of HCFA 1500
; Either first print date (IBDT) or today's date if never printed |
|
| DXIND(IBIFN) | ; Returns 0 for ICD10 codes and 9 for ICD9 codes.
; This sets the diagnosis ind to a 9. If the diagnosis is ICD10 ; it is set to zero |
