TIUPRDS2 ;SLC/SBW - Header & Footer for Form 10-1000 ; 11/29/02
Source file <TIUPRDS2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
FOOTER(TIUDA,TIU,TIUFLAG,TIUPAGE,TIUCOPY,TIUHDR) | ; Control Pagination
; position, write footer when appropriate ; IF TIUHDR=1, HEADER WILL NOT BE PRINTED |
|
FOOTEXIT | ;
|
|
HEADER(TIUDA,TIU,TIUFLAG,TIUPAGE) | ; Header
|
|
HEADERX | ;Header exit
|
|
AGE(TIUDT,TIUDOB) | ; Compute patient's age as of discharge (or entry)
|
|
DISPTYP(TEXT) | ; NOIS SHE-1098-52553
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|