Routine: DENTDCN1

Information

DENTDCN1 ;WASH ISC/TJK-MODIFIED DICN1 ROUTINE ;6/29/92 14:36

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SORRY! A VALUE FOR '"_$P(^(0),U,1)_"' MUST BE ENTERED," Line Location: DENTDCN1+8
Function Call: WRITE	Prompt: !?6,"BUT YOU DON'T HAVE 'WRITE ACCESS' FOR THIS FIELD" Line Location: DENTDCN1+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