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: 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>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: B+0
Function Call: WRITE
  • Prompt: DD
  • Line Location: B+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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: ": "
  • Variable: DIY
  • Timeout: DTIME
  • 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: ": "
  • Variable: DIY
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls