Routine: MCARDCN

Information

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

Source file <MCARDCN.m>

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