IBCF3 ;ALB/BGA -UB92 HCFA-1450 (gather demographics) ;19-AUG-93
Source file <IBCF3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEV | ;
|
|
| Q | ||
| EN | ;This routine gathers demographics for printing of ub92 form.
|
|
| PAT | ; patient info
|
|
| 19 | ; type of admission if outpatient leave blank
|
|
| 20 | ; source of admission
|
|
| 21 | ; discharge hour: ptf (45,70), non-va (399,16), 99
|
|
| 22 | ;
|
|
| EXIT | ||
| DATE(X) | ;returns date in form format MMDDYY
|
|
| DATEY(X) | ;returns date in form format MMDDYYYY
|
|
| TIME(X) | ;returns hour stripped from date
|
|
| SPLIT(FLN,LINES,MAXCH,STRG) | ;sets the string broken into lines that will fit in the FL block, in IBFL(FLN,x)=strg where max x=LINES
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
