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

Package: Medicine

Routine: MCARDCN


Information

MCARDCN ;WISC/TJK-MODIFIED DICN ROUTINE FOR MEDICINE SCREENS ;7/24/96 07:35

Source Information

Source file <MCARDCN.m>

Entry Points

Name Comments DBIA/ICR reference
B
1
YN ;
RX
DS
VAL
I
R
FILE
F1
F2
LOCK
IX
D ;
INCR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "? ",$P("YES// ^NO// ",U,MCPCT)
  • Line Location: YN+1
Function Call: READ
  • Variable: MCPCTY
  • Timeout: DTIME
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: *7,"??",!?4,"ANSWER 'YES' OR 'NO': "
  • Line Location: RX+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>73
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: $P(" (YES)^ (NO)",U,MCPCT)
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: !?7
  • Line Location: VAL+4
Function Call: WRITE
  • Prompt: "A NEW "_MCPCT
  • Line Location: VAL+4
Function Call: WRITE
  • Prompt: !?7
  • Line Location: I+0
Function Call: WRITE
  • Prompt: "A NEW "_MCPCT
  • Line Location: I+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,^(3)
  • Condition for execution: $D(^DD(+DO(2),.01,3))
  • Line Location: R+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: LOCK+0
Info |  Source |  Entry Points |  Interaction Calls