Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: MCARDC1

Package: Medicine

Routine: MCARDC1


Information

MCARDC1 ;WISC/TJK-READ X, SET UP ID'S, ASK OK ;7/19/96 15:06

Source Information

Source file <MCARDC1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Medicine 4 (1,A,C,F,IX,NO,Q,R,X,Y)^MCARDC  L^MCARDCM  (NAME,Y)^MCARDCM2  YN^MCARDCN  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Medicine 8 MCARDC  MCARDCM  MCARDCM1  MCARDCM2  MCARDCM3  MCARDCN  MCARDCN1  MCARDCQ  

Entry Points

Name Comments DBIA/ICR reference
DO ;
; Naked references in DO+2 is the global in the variable DIC
RENUM ;
B
Y ;
MIX ;
WO
WOV
O
N
P
BAD
WR
W ;
TIME
DO2
OK ;
DS ;

External References

Name Field # of Occurrence
1^MCARDC RENUM+1
A^MCARDC Y+6, BAD
C^MCARDC Y+8
F^MCARDC RENUM+2
IX^MCARDC MIX+1
NO^MCARDC N
Q^MCARDC Y+1
R^MCARDC OK+2
X^MCARDC Y+7
Y^MCARDC Y+6
L^MCARDCM Y+6, OK+2
NAME^MCARDCM2 WR+1
Y^MCARDCM2 WR+4
YN^MCARDCN OK+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "// "
  • Timeout: DTIME
  • Variable: X
  • Line Location: B+0
Function Call: WRITE
  • Prompt: DD
  • Line Location: B+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: B+1
Function Call: WRITE
  • Prompt: DD
  • Line Location: B+1
Function Call: WRITE
  • Prompt: " "
  • Line Location: WO+0
Function Call: WRITE
  • Prompt: " "
  • Line Location: WO+0
Function Call: WRITE
  • Prompt: DINAME
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: DIY
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: +$E(DIY,4,5),"-"
  • Condition for execution: $E(DIY,4,5)
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: +$E(DIY,6,7),"-"
  • Condition for execution: $E(DIY,6,7)
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: DIY\10000+1700
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: "@"_$E(DIY_0,9,10)_":"_$E(DIY_"000",11,12)
  • Condition for execution: DIY["."
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: DIY
  • Line Location: WR+5
Function Call: WRITE
  • Prompt: !,"TYPE '^' TO STOP, OR"
  • Line Location: Y+2
Function Call: READ
  • Prompt: ": "
  • Timeout: DTIME
  • Variable: DIY
  • Line Location: Y+3
Function Call: WRITE
  • Prompt: !,"CHOOSE "_$O(DS(0))_"-"_DD
  • Line Location: Y+3
Function Call: WRITE
  • Prompt: !,"TYPE '^' TO STOP, OR "
  • Line Location: Y+4
Function Call: READ
  • Prompt: ": "
  • Timeout: DTIME
  • Variable: DIY
  • Line Location: Y+5
Function Call: WRITE
  • Prompt: "CHOOSE "_$O(DS(0))_"-"_DD
  • Line Location: Y+5
Function Call: WRITE
  • Prompt: *7
  • Line Location: TIME+0
Function Call: WRITE
  • Prompt: !?9,"...OK"
  • Line Location: OK+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( MCARDC1+3, DO2, DO2+1, DO2+2, W+1, P, RENUM+1, WR+4
^DD("OS" - [#.7] DS+1
^DIC - [#1] P

Label References

Name Line Occurrences
B MCARDC1+2
BAD Y+8
DO MCARDC1+3, B, RENUM+1, WR
N Y+4, Y+5, O
P DO2+2
TIME B, B+1, Y+5
W W+1
WO Y+1
WOV DO2+2, W+1
WR B, WO
Y Y+1, Y+4

Naked Globals

Name Field # of Occurrence
^( B, W+1
^("GL" P
^("OS" DS+1
^("SCR" DO2+1
^(0 B, DO+2, DO+3*, P, DS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D MCARDC1+3, Y+7*, MIX+1*
>> DD MCARDC1+2*, MCARDC1+4*, B, B+1, Y+1*, Y+4, Y+5, Y+6
>> DF RENUM+1, Y+7
>> DFAST O
>> DFOUT O*
>> DIC B, DO+2, DO2+2, WO
>> DIC("A" MCARDC1+2
>> DIC("B" B
>> DIC("P" DO+3
>> DIC("W" DO2+2*, W+1*, W+2*, P+1*, WOV*, WO, Y+4, Y+8!
>> DIC(0 B*, WR, Y+1, Y+4, BAD
>> DICR( Y+1*
>> DICRS Y+1
>> DID MIX+1*
>> DID(1 MIX+1*
DINAME WR+1!
>> DISMN DS+1*
DIVP1 Y+8!
>> DIX OK+2
DIY B*, WR+1*, WR+2, WR+3, WR+4*, WR+5, Y+1*, Y+5*, Y+6, Y+7!
, Y+8
DIY( Y+1, Y+8*
DIYS WR+1*!, WR+4*!
DJC WR+4*!
>> DJCP Y+6, Y+7, OK+2
>> DO MCARDC1+3, DO+2*, DO+3*, DO2*
>> DO("SCR" DO2+1*
>> DO(2 MCARDC1+3, DO2*, DO2+1, DO2+2, W+1, RENUM+1, WR+1, WR+3, WR+4, Y+6
DS Y+1, Y+4, Y+5, Y+6, Y+7!, OK+1
DS( Y+1, Y+8
DS(0 Y+5
DTIME B, B+1, Y+5
>> DTOUT TIME*
>> DUOUT Y+6*
>> DZ Y+1*
>> MCARDC RENUM+1
>> MCPCT DO2+2*, W+1*, P*, P+1, OK+1*, OK+2
>> MCPCTW P*, P+1
MCPCTX WR+1*!, WR+4*
>> MCPCTY DO2+2*, P+1
U B, DO+3, P, Y+1, Y+6, DS+1, MIX+1
>> X MCARDC1+3*, B*, B+1*, RENUM+1, WR, Y+1, Y+6*, Y+7*, Y+8, OK+2*
, O
>> Y MCARDC1+3*, MCARDC1+4, B*, RENUM+1*, WR+1*, WR+4*, Y+1*, Y+8*
>> Y( Y+1*
>> YMLH DO2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All