Routine: MCARDCN1

Information

MCARDCN1 ;WISC/TJK-MODIFIED DICN1 ROUTINE FOR MEDICINE SCREENS ;7/22/96 08:12

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SORRY! A VALUE FOR '"_$P(^(0),U,1)_"' MUST BE ENTERED," Line Location: MCARDCN1+8
Function Call: WRITE	Prompt: !?6,"BUT YOU DON'T HAVE 'WRITE ACCESS' FOR THIS FIELD" Line Location: MCARDCN1+9
Function Call: WRITE	Prompt: !?6,"<'",*7,$P(@(DIK_"DA,0)"),U,1),"' DELETED>" Line Location: ZAP+0
Function Call: READ	Variable: Y Timeout: DTIME Line Location: NUM+3
Function Call: WRITE	Prompt: !?3,$P(DO,U,1)_" "_$P(^DD(+Y,.001,0),U,1),": " Line Location: NUM+3
Function Call: WRITE	Prompt: X,"// " Condition for execution: X Line Location: NUM+3
Function Call: WRITE	Prompt: *7 Line Location: NUM+3
Function Call: WRITE	Prompt: *7,"??" Line Location: NUM+5
Function Call: WRITE	Prompt: !,^(3) Condition for execution: $D(^DD(+DO(2),.001,3)) Line Location: NUM+5