TIUPRDS1 ; SLC/SBW,JER - Print DS Form 10-1000 ;8/15/06 11:01
Source file <TIUPRDS1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRINT(TIUDA,TIUFLAG) | ; Print Summary
; TIUCONT=1 for Continue, 0 for Exit, NULL for Timeout. ; Returned from $$Stop |
|
REPORT | ; Report Text
|
|
AMENDMNT | ;If DCS has been amended, next lines are printed.
|
|
RPTSIG | ; Signature should be on bottom of form, Addenda on Subsequent pages
|
|
ADDENDA | ; Discharge Summary Addenda
|
|
ADDENSIG | ;
|
|
SETCONT(TIUHEAD) | ;Does footer and sets TIUCONT
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|