Routine: MCARDCQ

Information

MCARDCQ ;WISC/TJK-MODIFIED DICQ ROUTINE FOR MEDICINE SCREENS ;8/23/96 12:33

Source file <MCARDCQ.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: " Pointed-to File does not exist!" Line Location: DQ+0
Function Call: WRITE	Prompt: " ANSWER WITH ",$P(DO,U,1) Line Location: IX+5
Function Call: READ	Formatting: ! Prompt: "Press <RETURN> to Continue: " Variable: MCPCTY Timeout: DTIME Line Location: IX+6
Function Call: WRITE	Prompt: $P(", OR",U,X>1) Line Location: IX+6
Function Call: WRITE	Prompt: !?4 Condition for execution: $X+$L(DS(DS))>70 Line Location: IX+6
Function Call: WRITE	Prompt: " ",DS(DS) Line Location: IX+6
Function Call: WRITE	Prompt: !," DO YOU WANT THE ENTIRE " Line Location: 20+0
Function Call: WRITE	Prompt: S Condition for execution: DO(2)'["s"&'$D(DIC("S"))&'$D(DF) Y,"-ENTRY " W $P(DO,U,1)," LIST" S MCPCT=0 D YN^MCARDCN S:MCPCT=1 MCPCTY=1 I MCPCTY'="??" Line Location: 20+0
Function Call: WRITE	Prompt: *7 Line Location: 20+2