Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ONCOSCT2

Package: Oncology

Routine: ONCOSCT2


Information

ONCOSCT2 ;WASH ISC/SRR,MLH-CROSS TABS 2 ;8/21/93 11:09

Source Information

Source file <ONCOSCT2.m>

Entry Points

Name Comments DBIA/ICR reference
OUTPUT ;sum & write table
GETLAB ;get label
SETCOL ;setup col sum & get label
SUMLAB ;sum marginals & get labels
TOF ;top of form
WCHEAD ;write column header
WCH1
WCLAB ;write col label
WCLAB1
WPHEAD ;write page header
XX
YY
WROWS ;write rows
WR1 ;write row data lines

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Press Return for next table or '^' to Exit: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: OUTPUT+17
Function Call: WRITE
  • Prompt: !!,?POS,X,!
  • Line Location: WCHEAD+7
Function Call: WRITE
  • Prompt: !,$E($P(ROWDD,U,1),1,ROWHEAD),":",!
  • Line Location: WCH1+0
Function Call: WRITE
  • Prompt: ?+X,$P(X,";",2)
  • Line Location: WCH1+1
Function Call: WRITE
  • Prompt: ?Z,X
  • Line Location: WCLAB1+1
Function Call: READ
  • Formatting: "Press 'Return/Enter' to continue
  • Prompt: '^' to Exit: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: XX+0
Function Call: WRITE
  • Prompt: HLAB
  • Line Location: YY+1
Function Call: WRITE
  • Prompt: " Cross Tabs",?IOM-30,$P(HEADER,U,2)," Page ",NPG,!
  • Line Location: YY+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: YY+3
Function Call: WRITE
  • Prompt: !," Total",?CWID\2+ROWHEAD
  • Line Location: WROWS+4
Function Call: WRITE
  • Prompt: $J(^TMP($J,"CSUM",^TMP($J,"COL",C)),CWID)
  • Line Location: WROWS+5
Function Call: WRITE
  • Prompt: !," %",?CWID\2+ROWHEAD
  • Line Location: WROWS+6
Function Call: WRITE
  • Prompt: $J(^TMP($J,"CSUM",^TMP($J,"COL",C))*100/TOT,CWID,1)
  • Line Location: WROWS+7
Function Call: WRITE
  • Prompt: $J("100.0",CWID),!
  • Line Location: WROWS+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WROWS+8
Function Call: WRITE
  • Prompt: !,X,?CWID\2+ROWHEAD
  • Line Location: WR1+3
Function Call: WRITE
  • Prompt: $J(X,CWID)
  • Line Location: WR1+4
Function Call: WRITE
  • Prompt: $J(^TMP($J,"RSUM",R),CWID)
  • Line Location: WR1+5
Function Call: WRITE
  • Prompt: !,?CWID\2+ROWHEAD
  • Line Location: WR1+6
Function Call: WRITE
  • Prompt: $J(X,CWID,1)
  • Line Location: WR1+7
Function Call: WRITE
  • Prompt: $J(^TMP($J,"RSUM",R)*100/TOT,CWID,1)
  • Line Location: WR1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: WR1+9
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WR1+9
Info |  Source |  Entry Points |  Interaction Calls