TIUFLP1 ;SLC/AJB - TIU FORM LETTER PRINT; 06 MAR 07
Source file <TIUFLP1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
; main entry point
|
||
CONTINUE() | ; controls paging
|
|
CONTX | ||
CONTY | ||
IDKID(TIUDA,KIDDA) | ; print ID children note
|
|
IDPAGES | ; calculates # of pages for ID child note
|
|
HFCPNT(NODE) | ; heading,footer,closing print (page numbers optional)
|
|
PAGES | ; calculates total # of pages
|
|
IDK | ||
REPORT | ; print parent note
|
|
FFTR | ||
ADDENDA | ; print addenda
|
|
GUIVIEW(TIUDA,SEG,TIUL,TIUARR) | ;
|
|
SETUP(TIUTYP,TIUDA) | ;
|
|
SPACER(TEXT,LENGTH,REV) | ;
|
|
STOP() | ;
|
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 |
|